[perl]use strict時にgetoptをつかう

オプションに使う文字(たとえばx)に対する変数$opt_xをvarプラグマでグローバル宣言しておく。

use strict;
use vars qw($opt_o $opt_i);
use Getopt::Std;

getopt('oi'); # 自動的に$opt_o, $opt_iが設定される

プログラミングPerl〈VOLUME2〉 オライリー・ジャパン このアイテムの詳細を見る