xml - Nmap::Parser，大文件的分段错误

Question

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

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

问题似乎是“parsefile”方法。

我在 Linux 和 Mac OS X 上尝试了不同版本的 Perl 5.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 或更高版本将解决此问题。