請(qǐng)問此段程序中的 $_表示什么內(nèi)容？

ztj2247

#!/usr/bin/perl -w
use Net:NS;
         my $res  = Net:NS::Resolver->new;
         $res->nameservers("202.106.0.20";

         my $query = $res->query("example.com",'A');

         foreach $rr (grep { $_->type eq "A"} $query->answer) {    // here 的$_ 指代 $res 還是$query???
             $rr->print;
         }

yybmsrs

$query->answer返回的是什么呢

珞水的大叔

1. grep EXPP, LIST
   
2. grep BLOCK LIST
   
3. 這個(gè)函數(shù)在布爾環(huán)境里為 LIST 里的每個(gè)元素計(jì)算 EXPR 或者 BLOCK，臨時(shí)地把 $_ 輪流設(shè)置為每個(gè)元素，非常類似 foreach 構(gòu)造。
   

復(fù)制代碼

也就是說 $query->answer 的返回值一定是個(gè)數(shù)組
而grep會(huì)遍歷整個(gè)數(shù)組，對(duì)數(shù)組的每個(gè)元素進(jìn)行一次以  $_->type eq "A"  為條件的判斷
這里的$_是數(shù)組 $query->answer 中的每個(gè)元素

shaneqi

應(yīng)該是$query->answer返回值吧