Custom Search

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]
=>引数が多いのでエラーを返す


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2015-12-22 (火) 15:00:24 (644d)