答え。

コマンドライン引数の処理は、Perlプログラムにとって基本的なタスクです。歴史的にPerlは、スクリプトに渡された引数にアクセスするための変数@ARGVを提供してきました。問題は、複雑なシナリオにはフラグやキー-値パラメータが含まれる可能性があり、それにより@ARGV配列の手動解析が必要になることです。不適切なアプローチを取ると、パラメータを正しく処理できなかったり、必須の値をスキップしたり、余分な値を処理してしまい、プログラムのロジックにエラーが生じる可能性があります。

解決策は、システマティックな処理を使用することです：@ARGVを通過し、内容を解析し、キーとその値を処理します。

コードの例：

my %args;
while (my $arg = shift @ARGV) {
    if ($arg =~ /^--(\w+)=?(.*)/) {
        my ($key, $val) = ($1, $2);
        if ($val eq '' && @ARGV) {
            $val = shift @ARGV; # 次の値
        }
        $args{$key} = $val eq '' ? 1 : $val;
    } else {
        push @{$args{'_free'}}, $arg;
    }
}

print "Got foo: $args{foo}
" if exists $args{foo};

主な特徴：

位置指定および名前付きパラメータの柔軟な処理。
値の存在と長さを手動で確認。
自由な引数のリスト（_free）を別途保持。

騙しの質問。

引数が'--flag value'の形で渡された場合、'--flag=value'のように処理したらどうなりますか？

'='による分割だけを処理すると、値は空の文字列になり、配列の次の要素が独立した引数として無視されます。解決策は、解析時に両方の形式を考慮することです：

if ($arg =~ /^--(\w+)=?(.*)/)

そして、もし$valが空なら次の要素を取ります。

Perlは空白を含む引数に対してどのように動作しますか？

Perlは@ARGV内の引数を空白で分割せず、すべての分割はシェルが行います。したがって、"--foo=bar baz"は、コマンドラインで引用符を使わなければ2つの異なる要素として扱われます。これを考慮し、ユーザーには空白をエスケープするよう求める必要があります。

shiftを使用して@ARGVを変更しても元の引数を失わずに済みますか？

shiftは配列自体を変更するため、元の引数のリストを復元することはできません。@ARGVの元の内容を保持する必要がある場合は、事前にクローンする必要があります：

my @original_argv = @ARGV;

一般的なエラーとアンチパターン

キーの後に値があるかどうかを確認せず、配列を読み飛ばすことになる。
値のないフラグや自由な引数の処理を無視する。
'--key value'と'--key=value'の両方の形式を考慮しない。

実生活の例

ネガティブケース

スクリプトは'--foo=bar'形式のキーのみを処理し、'--foo bar'を無視して値がない場合にエラーを出していました。

利点：

コードはシンプルです。

欠点：

スクリプトの使用が不便で、ユーザーが頻繁にミスをしました。
スクリプトは予期しないコマンドラインシナリオでクラッシュしました。

ポジティブケース

両方の構文の処理と、@ARGVの長さの確認を追加し、フラグスイッチを許可しました。