Nmap :: Parser,大文件上的分段错误

rhe*_*e24 17 xml perl cpan nmap

我想Nmap::Parser用来将nmap扫描的XML输出转换为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;
Run Code Online (Sandbox Code Playgroud)

ask*_*ish 3

该问题是由于 Perl 版本 <5.16 中的已知错误引起的,如以下所述: http ://www.perlmonks.org/?node_id=955478

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