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

くだすれPerl（超初心 ..

34:nobodyさん
08/04/03 16:38:03 n0FZOeJi
会社で、サブルーチンの中でグローバル変数?($_とか)を
使わんほうがいいということで、
print &gokei('山田<>1','菊池<>2','田中<>3');

sub gokei{
　　local @lines = @_; local $gokei =0;
　　foreach(@lines){
　　　　my ($name,$pt) = split(/<>/,$_);#もしくはsplit(/<>/);
　　　　$gokei += $pt;
　　}
　　return $gokei;
}
ってやってたのを軒並み
foreach my $line(@lines){
～ = split(/<>/,$line);
～;
}
に変更されちゃったんですが、そういうものなんですか？
なんかいろんなところで不便なんですが…。

次ページ

続きを表示

1を表示