2

私はPerlの初心者です。引数を 1 つだけ読み取るスクリプトを作成しています。指定されたパラメーター以外のものが入れられた場合、使用関数を呼び出します。

getopt() を使用すると、スクリプトは何も出力しません。getopts() を使用すると、すべての引数が処理されます。私は何を間違っていますか?

use strict; 
use warnings;
use Getopt::Std;

sub main
{
    my %opts;   

    getopt('abcd', \%opts) or usage();

    if($opts{c}) {
        print "Got -c flag\n";
    }

    if($opts{a}) {
        print "Got -a flag\n";
    }

    if($opts{b}) {
        print "Got -b flag\n";
    }   
}

sub usage
{
    printf("There is an error in your options, try %s", $0);
}

main();
4

1 に答える 1