我在为解析 CSV 文件而编写的 Perl 脚本中做错了什么？

Question

我有两个脚本正在尝试使用 CSV_XS。首先，我对所有内容进行了硬编码：源目录、文件名和我想要查找的 csv 分隔符。该脚本效果很好。然而，在第二个例子中，我尝试尽可能多地动态发现。该脚本似乎运行了，但没有输出任何内容。

我很难弄清楚为什么，我希望 Perl 的好朋友们不会介意用第二双眼睛来解决这个问题：

首先，成功的脚本：

#!/usr/bin/perl -w
use Text::CSV_XS;
my @records;
my $file = 'Data/space.txt';
my $csv=Text::CSV_XS->new({ sep_char => " " });

open(FILE,$file) || die "Couldn't open $file: $!\n";
while (<FILE>){
 $csv->parse($_);
 push(@records,[$csv->fields]);
}
close FILE;

foreach (@records){
 print $_->[0], ",", $_->[1], ",", $_->[2], ",", $_->[3], ",", $_->[4], "\n";
}

其次，“失败”的脚本：

#!/usr/bin/perl -w
use Text::CSV_XS;

$input_dir = $ARGV[0]; #I pass "Data" on the command line
my @records;

opendir(DIR, $input_dir) || die "cannot open dir $input_dir: $!";
my @filelist = grep {$_ ne '.' && $_ ne '..'} readdir DIR;
closedir DIR;

foreach $file (@filelist){
 print "Input file='",$input_dir,"/",$file,"'\n";
 if ($file =~ /comma/) {$sep=','}
    elsif ($file =~ /pipe/) {$sep='|'}
    elsif ($file =~ /space/) {$sep=' '}
    else {die "Cannot identify separator in $file: $!";}
 print "Delimiter='",$sep,"'\n";   
 open(FILE,$input_dir||"/"||$file) || die "Couldn't open $file: $!\n";
 my $csv=Text::CSV_XS->new({ sep_char => $sep });
 while (<FILE>){
  $csv->parse( $_ );
     push(@records,[$csv->fields]);
  print "File Input Line:'", $_ ,$csv->fields,"'\n";
 };
 close FILE;
}

foreach $record (@records){
 print $record->[0], ",", $record->[1], ",", $record->[2], ",", $record->[3], ",", $record->[4], "\n";
}

Answer 1

这行看起来有点可疑：

open(FILE,$input_dir||"/"||$file) || die "Couldn't open $file: $!\n";

我认为你不想把那些 || 放在那里。它的作用是检查 $input_dir 是否为真，如果不是，则检查 "/" 是否为真（它总是如此） 。您的 $input_dir 可能始终为 true，因此您只需打开 $input_dir。

您应该使用 File::Spec 来创建完全限定的文件：

my $fullfile = File::Spec->catfile( $input_dir, $file );
open( FILE, $fullfile ) || die "Couldn't open $fullfile: $!\n";

这将在适当的位置放置 / 来“做正确的事情”（或者，如果您'在 Windows 上，\）。然后将其传递给您的 open() 命令。

此外，您应该使用词法文件句柄和目录句柄，以及三个选项 open()：

open my $fh, '<', $fullfile or die "Could not open file $fullfile: $!\n";

词法文件句柄更安全，因为它们不能被定义 的其他模块覆盖。 >FILE 文件句柄。三选项 open() 更容易理解，并且当您的文件名包含 > 或 < 时不易出错> 或 | 。

如果您想真正疯狂，请将 use autodie; 放在顶部，这样您甚至不必检查 open() 或 的返回值>opendir()：

use autodie;
open my $fh, '<', $fullfile;