【发布时间】:2012-07-21 12:08:11
【问题描述】:
我想使用Nmap::Parser 将nmap 扫描的XML 输出转换为CSV 文件,但一开始我就遇到了问题。
解析小型 TCP/UDP 扫描工作正常,但是当我尝试转换较大的文件(例如 20 MB)时,尤其是一个所有 65535 个 UDP 端口都打开|过滤的文件时,我遇到了分段错误。
问题似乎是“parsefile”方法。
我在 Linux 和 Mac OS X 上尝试了不同版本的 Perl 5.10/5.14,结果相同。请看下面的代码 sn-p。
#!/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;
【问题讨论】:
-
你可以试试 perl 5.16 吗?它看起来像 Perl 中的一个错误,如下所述:perlmonks.org/?node_id=955478
-
您好mirod,非常感谢您的帮助。升级 Perl 就成功了。我刚刚安装了 perl 5.16,现在一切正常。成功转换了一个 70MB 的 XML 文件。 :-)
-
请提供此答案并接受。