----- Original Message -----
From: "Kamal Ahmed" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Friday, October 07, 2005 2:23 PM
Subject: Parsing PIX Log
> Hi,
>
> I am trying to parse :
> Sep 26 17:05:11 pixfw.testsec.org %PIX-3-106010: Deny inbound protocol 12
> src outside:123.97.104.117 dst intf2:192.168.50.10
>
> but ONLY to get the src IP , which is 123.97.104.117 and Destination ip ,
> which is 2:192.168.50.10
>
> Any help would be appreciated.
>
use warnings;
use strict;
my $input = 'Sep 26 17:05:11 pixfw.testsec.org %PIX-3-106010: Deny inbound
protocol 12 src outside:123.97.104.117 dst intf2:192.168.50.10';
my @ip = split('dst intf', (split('outside:', $input))[1]);
print "src ip: ", $ip[0], "\ndest ip: ", $ip[1], "\n";
__END__
Cheers,
Rob
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
