Perlコーディング初心者質問スレ Part 57

Perlコーディング初心 ..

569:nobodyさん
08/05/27 19:27:42
{
$global_foo = $foo;
$global_bar = $bar;
my $foo;
my $bar;
$foo = $_[0];
$bar = $_[1];
$foo = $global_foo if $foo eq undef;
$bar = $global_bar if $bar eq undef;
}
をコンパクトにまとめたいが、バグが混入しそうでいやん。

次ページ