［Perl］コマンドライン引数の個数を得る

$#ARGV変数を使えばよい。ただし、$#ARGVには「コマンドライン引数の個数 - 1」値が入っていることから、個数として判定する場合には1を足した値と評価を必要がある。以下、動作例。

以下をスクリプトをtest.plとして保存する。

#!/usr/bin/perl
printf "\$#ARGVの値               %d\n", $#ARGV;
printf "コマンドライン引数の個数 %d\n", $#ARGV + 1;

実行してみる。

$ ./test.pl
$#ARGVの値               -1
コマンドライン引数の個数 0
$ ./test.pl a
$#ARGVの値               0
コマンドライン引数の個数 1
$ ./test.pl a b c 1
$#ARGVの値               3
コマンドライン引数の個数 4