Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: Re: virus log parser

by rincew (Novice)
on Jul 02, 2002 at 21:56 UTC ( #179010=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
        foreach(qw(name to file action virus))
        {
          $gCurRec->{$_}='';
        }
    
  2. or download this
    
        my @columns = qw(name to file action virus);
        @{ $gCurRec }{ @columns } = ('') x @columns;
    
  3. or download this
        $gCurRec->{name}=$1   if (/^From:\s*(.+?)\s*$/);
        $gCurRec->{to}=$1     if (/^To:\s*(.+?)\s*$/);
    
  4. or download this
    
        /^(\w+):\s*(.+?)\s*$/ and $gCurRec->{$1} = $2;
    
  5. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    Action: The uncleanable file is deleted.
    Virus: WORM_KLEZ.H
    ----------------------------------
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (10)
As of 2014-09-19 13:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (138 votes), past polls