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]です。