1,310 bytes added
, 18:39, 21 April 2012
==Results Scraping==
Here is a simple Perl script (scrape.pl) which dumps out the open ports:
#!/usr/bin/perl
use strict;
use warnings;
use HTML::TableExtract;
my $scan = "";
{
local $/=undef;
open FILE, "ipv6.html" or die "Couldn't open ipv6 file: $!";
$scan = <FILE>;
close FILE;
}
my $te = new HTML::TableExtract();
$te->parse($scan);
# my $pingtable = $te->table(0,0);
my $porttable = $te->table(0,1);
# Currently prints out the OPEN ports
foreach my $row ($porttable->rows)
{
foreach my $ele ( @$row )
{
# Port 7 = RFSD
if (defined $ele)
{
if ($ele =~ m/Port\s+(\d+)\s+=\s+([A-Z]+)/)
{
my $port = $1;
my $state = $2;
if ($state =~ m/OPEN/)
{
printf("PORT %5d was %s\n",$port,$state);
}
}
}
}
}
== Typical Scraped results==
$ ./scrape.pl
PORT 22 was OPEN
PORT 25 was OPEN
PORT 80 was OPEN
PORT 443 was OPEN
$
----
<adsense>1</adsense>