my $entry = '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 ($src,$dest) = $entry =~
/:(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}).+:(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}
)/;
> -----Original Message-----
> From: Kamal Ahmed [mailto:[EMAIL PROTECTED]
> Sent: Friday, October 07, 2005 12:23 AM
> To: [email protected]
> 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.
>
> Thanks,
>
> _______________________________________________
> Perl-Win32-Users mailing list
> [email protected]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>
>
> __________________________________________________________
> This message was scanned by ATX
> 1:00:49 AM ET - 10/7/2005
>
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
