求教grep的问题

finderla

1. #i/usr/bin/perl -w
   
2. use strict;
   
3. my @numers=(1,2,4,8,11,32,64);
   
4. my @sum =grep &odd($_), @numers;
   
5. print "@sum \n";
   
6. 
   
7. sub odd {
   
8.         my $input =shift;
   
9.         my @digts = split //, $input;
   
10.         my $sum;
    
11.         $sum += $_  for @digts;
    
12.         return $sum % 2;
    
13. }

复制代码

以上代码中 grep那句的$_指的是子函数的返回值么，还是别的什么？

$sum += $_  for @digts; 这句是一个简单的foreach语句么？

代码粘贴字中级perl，以上两个疑问求大牛指教。

Perlvim

以上代码中 grep那句的$_指的是子函数的返回值么，还是别的什么？

$sum += $_  for @digts; 这句是一个简单的foreach语句么？

1. 第一个$_ 是指 后面要遍历的数组的每个值的副本别名。
2. 是一个简单的 foreach 遍历语句变形。

相当于

1. foreach (@digts) {
   
2.     $sum += $_;
   
3. }

复制代码

toniz

大牛木有，小牛指点你：

1. perldoc -f grep
   
2. Evaluates the BLOCK or EXPR for each element of LIST (locally setting $_ to each element)
   
3.                and returns the list value consisting of those elements for which the expression evaluated
   
4.                to true.  In scalar context, returns the number of times the expression was true.
   

复制代码

1. foreach(@digts){$sum += $_ }

复制代码

finderla

回复 2# Perlvim


   

1. 第一个$_ 是指 后面要遍历的数组的每个值的副本别名。

这个依然不懂，什么是每个值的副本别名？

Perlvim

1. foreach my $element (@array) {
   
2.     # do something....
   
3.     print $element;
   
4. }
   
5. 
   
6. foreach (@array) {
   
7.     # do something...
   
8.     print $_;
   
9. }

复制代码

第一段代码中的 $element 相当于第二段代码中的 $_

就是默认的 $element.

finderla

回复 5# Perlvim


    这两段代码明白，看来我还是没有搞懂grep
    谢了。

毛xx总理

不懂