2

重複の可能性:
コマンドライン引数を Perl プログラムに渡すにはどうすればよいですか?

入力ファイルを解析し、.stat ファイルと .csv ファイルを出力するコードがあります。このようなコマンド プロンプトから Perl スクリプトを実行するには、何をコーディングする必要がありますか?

perl myprogram.pl -i "C:\temp\inputfile.txt" -o "C:\temp\myoutput.csv" -s "C:\temp\myoutput.stat"

-i は入力ファイル (必須)、-o は csv の出力ファイルの場所 (必須)、-s は .stat ファイルの出力ファイル (オプション) です。プログラムのコードは既にありますが、コマンド ラインで実行できるように引数を実装する必要があります。ありがとうございました。

4

1 に答える 1

4
use Getopt::Long qw( GetOptions );

sub usage {
   print STDERR @_ if @_;
   print STDERR ...;
   exit(1);
}

sub help {
   print ...;
   exit(0);
}

my $input_qfn;
my $csv_qfn;
my $output_qfn;

GetOptions(
   "help|h|?" => \&help,
   "i=s"      => \$input_qfn,
   "o=s"      => \$csv_qfn,
   "s=s"      => \$stat_qfn,
) or usage();

defined( $input_qfn )
   or usage("-i option is required\n");
defined( $csv_qfn )
   or usage("-o option is required\n");
于 2012-07-10T05:42:48.163 に答える