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

Perlコーディング初心 ..

586:nobodyさん
08/05/28 01:46:51
>>576
目的が分からん。そもそも何がしたいの？
説明する気あるのか？

my $foo = 1;
my $bar = 2;

print $foo = func( $foo );
print $bar = func( $bar );
print $foo = func( $foo, 3 );
print $bar = func( $bar, 4 );
exit;

sub func {
return defined( $_[1] ) ? $_[1] : $_[0];
}

次ページ