我有一个2Gb CSV文件，其中第1列包含时代，第二列包含10000+行XML文件（作为一行）。
我想遍历此CSV的每一行，并将第二列XML保存到其自己的文件中。我还使用XPath从XML文件获取客户名称，因此可以将文件命名为[CustomerName]-[time from Column 1].xml。但是，某些XML文件不是有效的XML，并且出现错误消息Unclosed Token on Line ...。有没有办法忽略该消息而只是跳过文件？以下是我的Perl代码：
my $file = '../FILENAME.csv';
open my $info, $file or die "Could not open $file: $!";
my $count = 0;
$| = 1;
while( my $line = <$info>) {
$count++; if($count == 1) {next;} #Ignore headers
$line =~ /(\d+),"(.*?)"$/; #Load time into $1, XML file into $2
my $time = $1;
my $report = $2;
$report =~ s/""/"/g; #Replace "" with "
my $xp = XML::XPath->new(xml => $report);
my $ext = $xp->getNodeText('/report/customer') . "-" . $time . ".xml"; #Generate filename with customer name and time
write_file($ext, $report);
}
close $info;
我也乐于接受一些建议以提高效率。
您可以尝试将麻烦的代码包含在其中eval。例如：
eval {
my $xp = XML::XPath->new(xml => $report);
my $ext = $xp->getNodeText('/report/customer') . "-" . $time . ".xml"; #Generate filename with customer name and time
write_file($ext, $report);
};
if ( $@ ) {
printf "ERROR: $@";
}
如下代码：
$count++; if($count == 1) {next;} #Ignore headers
$line =~ /(\d+),"(.*?)"$/; #Load time into $1, XML file into $2
my $time = $1;
my $report = $2;
可以缩短为：
next if ++$count == 1; #Ignore headers
my ($time, $report) = ($line =~ /(\d+),"(.*)"$/); # time, XML file
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句