[Perl]コマンドライン引数の値を得る
$ARGV変数を使う。配列であり、1つ目のコマンドライン引数のインデックスが0で以下続く。
以下をtest.plとして保存、chmodコマンドで実行権限を付与する。
#!/usr/bin/perl
for ($i = 0; $i < ($#ARGV + 1); $i++) {
printf "%s\n", $ARGV[$i];
}
実行例。
$ ./test.pl
$ ./test.pl A
A
$ ./test.pl A 1
A
1
$ ./test.pl A 1 "2 3"
A
1
2 3