perl getopt 的用法

程式

use strict;

use Getopt::Std;

getopt(‘a:b:c:’);

our ($opt_a,$opt_b,$opt_c);

print “$opt_a
” if $opt_a;
print “$opt_b
” if $opt_b;
print “$opt_c
” if $opt_c;

執行 perl cross.pl -a 1 -b 2 -c 3

結果

1
2
3

如果一定要 -aw 才可以顯示 1 的話
要這麼作
getopts(‘aw:b:c’);

加上 hash 使用方式

use strict;

use Getopt::Std;

my %args;

getopt(‘a:b:c:’,\%args);

foreach my $arg (sort keys %args) {
print “$arg = $args{$arg}
“;
}

結果

a = 1
b = 2
c = 3