Help for this page
foreach(qw(name to file action virus)) { $gCurRec->{$_}=''; }
my @columns = qw(name to file action virus); @{ $gCurRec }{ @columns } = ('') x @columns;
$gCurRec->{name}=$1 if (/^From:\s*(.+?)\s*$/); $gCurRec->{to}=$1 if (/^To:\s*(.+?)\s*$/);
/^(\w+):\s*(.+?)\s*$/ and $gCurRec->{$1} = $2;
#!/usr/bin/perl -w use strict; ... Action: The uncleanable file is deleted. Virus: WORM_KLEZ.H ----------------------------------
www.com | www.net | www.org
No recent polls found