［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