Nmap::Parser，大文件分段错误

Question

我想使用Nmap::Parser将nmap扫描的XML输出转换为CSV文件，但一开始我就遇到了问题。

解析小型TCP/UDP扫描工作正常，但当我尝试转换较大的文件（例如，20 MB）时，尤其是在所有65535个UDP端口都打开|已筛选的情况下，我会遇到分段错误。

问题似乎出在"parsefile"方法上。

我在Linux和Mac OS X上尝试了不同版本的Perl5.10/5.14，结果相同。请参阅下面的代码片段。

#!/usr/bin/env perl
use strict; use warnings;
use Nmap::Parser;
my $np1 = new Nmap::Parser;
my $xmlin = $ARGV[0];
sub read_file {
    $np1->parsefile($xmlin);
    for my $host ($np1->all_hosts()) {
        for my $port ($host->udp_ports()) {
            print $host->ipv4_addr()." ".$port."n";
        }   
    }
}
&read_file;

Answer 1

问题是由于perl版本中的一个已知错误而出现的<5.16如以下所述：http://www.perlmonks.org/?node_id=955478

将perl升级到5.16或更高版本将解决此问题。