まくまくPerlノート
プログラムの起動パラメータ (-t filename) などを処理する
下記の例では、Perl スクリプトを起動するときに渡されたコマンドラインパラメータをループ処理しています。
while ($_ = shift) { # @ARGV から 1 つ取り出す
if (/^-(.*)/) {
process_option($1); # オプション（-t など）のを処理
} else {
process_file($_); # それ以外のパラメータはファイル名のはず
}
}
参考: Effective Perl
