perl - 如何使用GetOpt传递文件

Question

我有一个程序，需要将文件名(和位置)传递给该程序。我怎样才能做到这一点？我已经阅读了GetOpt文档，所以请不要指向我那里。我的命令行如下:

perl myprogram.pl -input C:\inputfilelocation -output C:\outputfilelocation

我的GetOptions看起来像这样:

GetOptions('input=s' => \$input,'output=s' => \$output);

基本上，我需要弄清楚如何在while循环中访问该文件，该循环对文件中的行进行迭代并将每个行放入$ _

while ($input) {

...不起作用。请注意，在我的文件可以正常使用之前:

open my $error_fh, '<', 'error_log';
while (<$error_fh>) { 

Answer 1

这对我有用。您的GetOptions似乎正确。打开文件并从文件句柄中读取，不要忘记检查错误:

use warnings;
use strict;
use Getopt::Long;

my ($input, $output);
GetOptions('input=s' => \$input,'output=s' => \$output) or die;

open my $fh, '<', $input or die;

while ( <$fh> ) { 
    ## Process file.
}