[perl]サブルーチンの引数 2009/11/03

perlです。
サブルーチンの引数の指定の仕方。
この書き方すっきりしてるなと思った次第。
ちなみにこの方法だと引数のもとの値の上書きとか、副作用がないようですね。

#!/usr/bin/perl

sub func {
my ($a, $b, $c) = @_;
print "$a $b $c\n";
}

func("ok1", "ok2", "ok3");

参考

• サブルーチン [Perl講座 -Smart]
• 現代的なPerlの記述方法一覧 + α - Perl入門〜サンプルコードによるPerl入門〜