perl grep list

本帖最后由 pengphy 于 2011-05-03 16:16 编辑

好， 今天碰到一个奇怪的问题，用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;

$input = shift 改成 $input = $_

回复 flw


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