Perl的输入参数

2012-07-10 74 views 2 likes

可能重复：
How can I pass command-line arguments to a Perl program?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文件（可选）的输出文件。我已经有了程序的代码，但需要实现参数，以便它们可以在命令行中运行。谢谢。

来源

2012-07-10 rupes0610

muh，链接的帖子没有提到检查所有必需的参数。这是一个确切的副本？ – ikegami 2012-07-10 19:37:27

回答

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-10 05:42:48 ikegami

Perl的输入参数

回答

相关问题