Pasted

#!/usr/bin/perl
 
use Getopt::Std;
use Nmap::Parser;
use Date::Manip;
 
getopt("hi:o:");
 
$usage = "$0 -i input.xml -o output.csv";
 
if ($opt_h) {
        print "$usage\n";
};
 
if (!$opt_i || !$opt_o) { 
        print "$usage\n"; 
} else {
        my $np = new Nmap::Parser;
        $np->parsefile("$opt_i");
 
        # Start writing to results to the outputfile
        open (OUT,'>>'.$opt_o) || die "Could not open output file: $opt_o\n!";
 
        $si = $np->get_session();
 
        print   OUT "############\nNmap Version: ".$si->nmap_version()."\n",
                'Command Line: '.$si->scan_args()."\n";
        print OUT "Scan Date: ". $si->start_str()."\n";
        print OUT 'Total Time: '.($si->finish_time() - $si->start_time())." seconds\n##########\n";
        
        print OUT "addr;hostname;status;tcp open;udp open;extraports;extraportsstate;osmatch\n"; 
        for my $host ($np->all_hosts()) {
            my $tcp_ports = 0;
            my $udp_ports = 0;
            for my $port ($host->tcp_ports()) { $tcp_ports++ }
            for my $port ($host->udp_ports()) { $udp_ports++ }
            print OUT $host->addr().';'.
                $host->hostname().';'.
                $host->status().';'.
                $tcp_ports.';'.
                $udp_ports.';'.
                $host->extraports_count().';'.
                $host->extraports_state().';'.
                $host->os_sig->name."\n";
        }
        print OUT "##########\n";
        
        print OUT "addr;hostname;portnum;state;proto;name;product;version;extrainfo;extraports (count);osmatch\n"; 
        for my $host ($np->all_hosts()) {
                for my $port ($host->tcp_ports()) {
                        $sv = $host->tcp_service($port);
 
                        my $product = '';
                        my $version = '';               
                        my $extra = '';
                        my $osmatch = '';
                        my $extraports = '';
        
                        $product = $sv->product(); $product =~ s/\;/\,/g;
                        $version = $sv->version(); $version =~ s/\;/\,/g;
                $extra = $sv->extrainfo(); $extra =~ s/\;/\,/g;
                $osmatch = $host->os_sig->name; $osmatch =~ s/\;/\,/g;
                        $extraports = $host->extraports_state . " (" . $host->extraports_count() . ')';
 
                        print OUT $host->ipv4_addr().';';
                        print OUT $host->hostname().';';
                        print OUT $port.';'.
                        $host->tcp_port_state($port).';'.
                        'tcp;'.
                        $sv->name().';'.
                        $product.';'.
                        $version.';'.
                        $extra.';'.
                                $extraports.';'.
                        $osmatch."\n";
                }
                for my $port ($host->udp_ports()) {
                        $sv = $host->udp_service($port);
 
                        my $product = '';
                        my $version = '';               
                        my $extra = '';
                        my $osmatch = '';
                        my $extraports = '';
 
        
                        $product = $sv->product(); $product =~ s/\;/\,/g;
                        $version = $sv->version(); $version =~ s/\;/\,/g;
                $extra = $sv->extrainfo(); $extra =~ s/\;/\,/g;
                $osmatch = $host->os_sig->name; $osmatch =~ s/\;/\,/g;
                        $extraports = $host->extraports_state . " (" . $host->extraports_count() . ')';
 
                print OUT $host->ipv4_addr().';';
                        print OUT $host->hostname().';';
                        print OUT $port.';'.
                        $host->udp_port_state($port).';'.
                        'udp;'.
                        $sv->name().';'.
                        $product.';'.
                        $version.';'.
                        $extra.';'.
                                $extraports.';'.
                        $osmatch."\n";
                }
        }
 
}