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);
～;
}
に変更されちゃったんですが、そういうものなんですか？
なんかいろんなところで不便なんですが…。