I've been irritated by Nessus's HTML output one too many times. I hate the fact that the list by host is in random order. Who thought that was a good idea?
#!/usr/bin/perl
open F, "<index.html";
my @R = <F>;
close F;
my $R = join '',@R;
my ($one, $two) = split /Notes.+?<tr>/s, $R;
my ($two, $three) = ($two =~ m!(.*)(</tr>.</table>.*$)!s);
my @O = split /<\/tr>.<tr>/si, $two;
my @X = join '</tr><tr>', (sort by_ip @O);
print $one, '<tr>',@X, $three;
sub by_ip {
my @a = $a =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
my @b = $b =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
$a[0] <=> $b[0] ||
$a[1] <=> $b[1] ||
$a[2] <=> $b[2] ||
$a[3] <=> $b[3] ||
$a <=> $b
}
The list should now be ordered first by hostname, and then by IP address. Share and enjoy.
Posted by rbowen at June 1, 2004 11:40 AM | TrackBack