我想使用Nmap::Parser
将nmap
扫描的XML输出转换为CSV文件,但我一开始就遇到了问题。
解析小的TCP/UDP扫描可以很好地工作,但当我尝试转换较大的文件(例如,20MB)时,尤其是在所有65535个UDP端口都打开|过滤的情况下,我得到一个分段错误。
问题似乎出在"parsefile“方法上。
我在Linux和Mac上试用了不同版本的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;
发布于 2012-10-18 03:14:35
这个问题是由于perl版本低于5.16中的一个已知bug引起的,如以下网址所述:http://www.perlmonks.org/?node_id=955478
将perl升级到5.16或更高版本将解决此问题。
https://stackoverflow.com/questions/11609428
复制相似问题