オプションを指定できるフィルタプログラムを書く - Perl入門ゼミPerl › ファイル入出力 › here コマンドライン引数で、オプションを指定できるフィルタプログラムを書いてみます。オプションに指定できるのは、切り出す列の位置と区切り文字です。 use strict; use warnings; # コマンドラインオプションを扱うためのモジュール use Getopt::Long 'GetOptions'; # Unix風のフィルタプログラミングを記述する。 # 今回はカンマ区切りの文字列の一列目を取り出すフィルタプログラムです。 # コマンドラインオプションが指定されなかった場合のデフォルト値 my $col = 1; my $sep = ','; # コマンドラインオプションを受け取る GetOptions( 'col=i' => \$col, 'sep=s' => \$sep, ); # . など正規表現で特別な意味を持つ文字が指定された #
