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