Here is the entire script:
while (my(@row) = $sth->fetchrow_array)
{
my $ip = $row[0];
next if $ip == "010.041.\*";
my $name = $row[1];
my $mso = $row[2](m/MS\d\d\-\d{3}/);
my @date = split/ /, $row[3];
my $severity = $row[4];
printf "%-15s %-35s %-10s %-10s %-10s\n", $ip, $name, $mso,
$date[0], $severity;
}
Example output:
IP Address Name Vulnerable Last Scan
SL
--------------- ----------------------------------- ----------
---------- --
XXX.XXX.XXX.XXX hostname.for.server
2004-08-16 09
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
