Perlでコマンドラインからの引数取得方法

今日は、プログラムをコマンドプロンプトから起動する時の引数取得方法です。
引数は、@ARGVというグローバルな特殊配列から取得することが出来ます。

tstARGV.plソース

print "\@ARGV = $ARGV[0] $ARGV[1] $ARGV[2] $ARGV[3]", "\n";
print "\@ARGV = @ARGV", "\n";

tstARGV.pl実行

D:\>tstARGV.pl aaa bbb ccc ddd
@ARGV = aaa bbb ccc ddd
@ARGV = aaa bbb ccc ddd

ちなみに、@ARGVと$ARGV[0]の関係は、わかるよね！
配列@ARGVのゼロ番目の要素が$ARGV[0]です。