11# bitterness 发表于 2008-12-19 11:45
呵呵，不错
@arr = ();

$#array = -1;

$#arr = undef;

foreach $index (0 .. $#ARRAY) {
                       delete $ARRAY[$index];
                   }