perl - オプションを Perl プログラムに取り込む

Question

私はしばらくグーグルで検索してきましたが、奇妙なことに、私の質問に答えるものは何も見つかりませんでした。

プログラムにオプションとして -n を渡したいのですが、ここで n は整数です。

これは私が持っているものです:

if($ARGV[0] eq "-A_NUMBER")

これに使用できるワイルドカードの種類はありますか? では、マイナス記号の後に任意の整数 (または文字) が続く場合、条件は true ですか?

Answer 1

Getopt::Stdについて読むことをお勧めします @ARGV を検査するよりも長くなりますが、より堅牢です

Answer 2

使用する

if ($ARGV[0] =~ /^-\d/)

この正規表現は、マイナス記号に続いて数字に一致します。

「^」は一致を行頭に固定し、「\d」は数字を表すエスケープ文字です。