Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

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))
  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?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://179010]
[r@j]: Actully $Process_Java this is getting from config file
[Discipulus]: choroba so much work porting from C and the resulting code exceed the 2 sec limit.. ;=(
[Corion]: r@j: But single quotes do not interpolate anything. print $Process; outputs something different than print '$Process';.

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (19)
As of 2017-10-23 15:45 GMT
Find Nodes?
    Voting Booth?
    My fridge is mostly full of:

    Results (280 votes). Check out past polls.