「すぐわかるPerl」5.2引数は配列

■引数の特徴
・文字列である
・何個か分からない

Perlの場合には、引数は自動的にもともと備え付けられている配列変数@ARGVに自動的に代入されていく。
ARGVとはargument（引数）value（値）の略です。

#argtest -- 引数のテスト
print "$ARGV[0]\n";
print "$ARGV[1]\n";
print "$ARGV[2]\n";
print "$ARGV[3]\n";

このプログラムを実行すると、改行のみが表示される。

C:\Documents and Settings\sironekotoro>"C:\Documents and Settings\sironekotoro\デスクトップ\argtest"

C:\Documents and Settings\sironekotoro>

loveという引数を与えてみる

argtest love

C:\Documents and Settings\sironekotoro>"C:\Documents and Settings\sironekotoro\デスクトップ\argtest" love
love

C:\Documents and Settings\sironekotoro>

引数を増やしてみる

C:\Documents and Settings\sironekotoro>"C:\Documents and Settings\sironekotoro\デスクトップ\perl
test.pl" love kiss
love
kiss

C:\Documents and Settings\sironekotoro>

引数を3つにしてみる
C:\Documents and Settings\sironekotoro>"C:\Documents and Settings\sironekotoro\デスクトップ\perl
test.pl" love kiss hug
love
kiss
hug

C:\Documents and Settings\sironekotoro>

■引数の個数を調べる

#argtest -- 引数のテスト
$x = @ARGV;
print "$x\n";
print "$ARGV[0]\n";
print "$ARGV[1]\n";
print "$ARGV[2]\n";
print "$ARGV[3]\n";

結果。

C:\Documents and Settings\sironekotoro>"C:\Documents and Settings\sironekotoro\デスクトップ\perl
test.pl" love kiss hug
3
love
kiss
hug

C:\Documents and Settings\sironekotoro>