くだすれPerl（超初心者用）2

くだすれPerl（超初心 ..

38:nobodyさん
08/04/03 19:35:33
失礼、$pt はグローバルじゃなかった、orz...
あと、（）の行は「（が、仮に規約があったとしても、…」って書いたつもりだった。
>>36
$yamadacount
　　= grep{
　　　my $line = $_ ;
　　　( my $name, undef ) = split /<>/, $line ;
　　　$name eq '山田' } @lines ;

後、それを $_ を用いて書くなら（エンコーディングの話しは抜きにして）
$yamadacount = grep /^山田<>/, @lines ;
なりなんなりもっとすっきりしたコードが書けるんじゃね?

次ページ