Falldog的程式戰場
27 9月 2007
[Perl] swap()
sub swap{
( $_[0], $_[1] ) = ( $_[1], $_[0] );
}
my $a = 100;
my $b = 200;
swap($a, $b);
print $a . ", " . $b . "n";
#結果會是200, 100
沒有留言:
張貼留言
較新的文章
較舊的文章
首頁
訂閱:
張貼留言 (Atom)
沒有留言:
張貼留言