Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Parsing a log file

by reasonablekeith (Deacon)
on Nov 27, 2007 at 17:13 UTC ( #653314=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use Data::Dumper;
    ...
    
    __DATA__
    2007-11-16 16:05:40    Local1.Alert    128.2.2.40    id=firewall time=
    +"2007-11-16 16:03:37" fw=WS2000-Store 02 pri=1 proto=6(tcp) src=128.2
    +.2.200 dst=128.2.100.106 mid= 1013 mtp=  2 msg=TCP connection request
    + received is invalid, dropping packet Src 23 Dst 4631 from EXT n/w ag
    +ent=Firewall
    
  2. or download this
    $VAR1 = '2007-11-16';
    $VAR2 = '16:05:40';
    ...
                'pri' => '1',
                'dst' => '128.2.100.106'
            };
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://653314]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (6)
As of 2020-04-03 21:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The most amusing oxymoron is:
















    Results (32 votes). Check out past polls.

    Notices?