Getopt::Std を使ってコマンドライン引数を処理してみた

• getopt.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Std;

my %opt;
# 記号の後に「:」をつけるとオプション引数が取れる。「:」をつけないと「1」が取れる。
getopts("ali:o:" => \%opt);

map{print "$_: $opt{$_}\n"} keys %opt;

__END__

• 実行結果

$ perl getopts.pl -a -i input.txt -o out.txt
a: 1
o: out.txt
i: input.txt

[参考]
Perl - Getopt
use Getopt::Std::getopts; - ihirokyの日記
404 Blog Not Found:perl - use strict; # and be happy