Perlでは、コマンド引数が@ARGVという変数に入ります。
#!/usr/bin/perl
# 引数の配列
print "\@ARGV:";
print @ARGV;
# 配列の最大インデックス数値(配列数-1)
print "\n$#ARGV:";
print $#ARGV;
# 最初の引数
print "\n$ARGV[0]:";
print $ARGV[0];
# 最後の引数
print "\n$ARGV[$#ARGV]:";
print $ARGV[$#ARGV];
print "\n";
実行結果は次のようになります。引数を指定しなかった場合と、引数に「hello perl program」を指定した場合を例に挙げています。
$ ./argv.pl
@ARGV:
-1:-1
:
:
@ARGV:
-1:-1
:
:
$ ./argv.pl hello perl program
@ARGV:helloperlprogram
2:2
hello:hello
program:program