求教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. }

復(fù)制代碼

以上代碼中 grep那句的$_指的是子函數(shù)的返回值么，還是別的什么？

$sum += $_  for @digts; 這句是一個簡單的foreach語句么？

代碼粘貼字中級perl，以上兩個疑問求大牛指教。

Perlvim

以上代碼中 grep那句的$_指的是子函數(shù)的返回值么，還是別的什么？

$sum += $_  for @digts; 這句是一個簡單的foreach語句么？

1. 第一個$_ 是指 后面要遍歷的數(shù)組的每個值的副本別名。
2. 是一個簡單的 foreach 遍歷語句變形。

相當(dāng)于

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

復(fù)制代碼

toniz

大牛木有，小牛指點(diǎn)你：

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.
   

復(fù)制代碼

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

復(fù)制代碼

finderla

回復(fù) 2# Perlvim


   

1. 第一個$_ 是指 后面要遍歷的數(shù)組的每個值的副本別名。

這個依然不懂，什么是每個值的副本別名？

Perlvim

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

復(fù)制代碼

第一段代碼中的 $element 相當(dāng)于第二段代碼中的 $_

就是默認(rèn)的 $element.

finderla

回復(fù) 5# Perlvim


    這兩段代碼明白，看來我還是沒有搞懂grep
    謝了。

毛xx總理

不懂