perl grep list

pengphy

好， 今天碰到一个奇怪的问题，用grep来处理list时遇到的，在grep的block中不能输出？（intermediate perl第二章的一个例子）

my @list = (1..10);
my $sum_list = grep {
                my $input = shift;
                print $input;  # print打印不出东西
                print @_;
                my @digits = split //, $input;
                my $sum;
                $sum += $_ for @digits;
                $sum % 2;
} @list;

flw

$input = shift 改成 $input = $_

pengphy

回复 2# flw


    o 谢谢了 理解的不是很深入啊

zhlong8

好， 今天碰到一个奇怪的问题，用grep来处理list时遇到的，在grep的block中不能输出？（intermediate perl第 ...
pengphy 发表于 2011-05-03 15:56

    楼主如果用 use warnings; 就不会想出这么神奇的解释了