以前にも ちょっと書いた ことがある Getopt::Std; の使い方の話。まず話がそれるが、 Emacs か vi かという話があって、それと(僕は)似た話だと思うが、 Perl 手続を書く時に、 use strict; を使う か使わないかがある気がする。 どのような時でも use strict; を使う と決めているとすると、その Getopt::Std で少し悩むかも知れない。( 参考: perldoc Getopt::Std)

use strict;
use Getopt::Std;

と書いた時の話。まず、use strict; の有無に関係ない話として、 その時に使えるようになる二つの関数の getopt() と getopts() の違い。 はじめの getopt('r'); は r に引数をとる。

./test-script -r 2

の 2 が $opt_r に入る。一方二つ目の getopts('r') は r に引数をとらない。 getopts() の方で引数をとるようにするには getopts('r:') と書く。 初めの方の getopt では、(: を付けなくても) 並べて書いた全ての文字に引数をとる。

関数	引数の例	その時の動作	名前の覚え方
getopt	'r'	-r hoge の hoge が $opt_r に入る	方法が一つだけなので単数形
getopts	'ari:'	-a や -r は、有無で $opt_a や $opt_r に 1 か 0、i: のようにコロンを付けると、-i foo の foo が $opt_i に入る	二つの方式 (: の有無)があるので複数形

このようにして getopt() や getopts() は変数 $opt_文字 に値が代入される。で、 もう一つの使い方として hash の %opts 変数 を使うことも可能。

getopts('r', \%opts);

のようにしておくと %opts の $opts{'r'} に値が入る。 単数形の getopt の方が指定方法が一通り。 複数形の getopts は指定方法に二つあると覚えるのかな。 で、ここまでは use strict; とは関係なくどちらでも同じ。

＠ use strict;:

＠ @ARGV に与えた引数が入らない: