引数のチェック

JITAKU_SVR_Wiki

必須ではないが、ヘルプ代わりに書いておくといいかも。

引数をチェックする †

たとえば、test.plは引数を2個取るスクリプトの場合、条件を満たさない場合にはエラーを返したい。

簡単にスクリプトを作ると、

#!/usr/bin/perl

if ( @ARGV == 2 ) {

    print "$ARGV[0] $ARGV[1]\n";

} else {

    print "usage: perl $0 [引数1] [引数2]\n";

}

# perl test.pl
usage: perl error.pl [引数1] [引数2]
=>引数がないのでエラーを返す

# perl test.pl hello
usage: perl error.pl [引数1] [引数2]
=>引数が足りないのでエラーを返す

# perl test.pl hello world
hello world
=>条件に満たしているので結果を返す。

# perl test.pl hello world aaa
usage: perl error.pl [引数1] [引数2]
=>引数が多いのでエラーを返す