# grep each line for the declared variables
while (<IN>) {
print "parsing $_";
if ( /$JOBSTART|$TASKSUM|$TASKDET|$TASKEND|$ERROR|$JOBEND/i )
{
# remove spaces and replace with commas
my @f = split /\s+/,$_,9;
print OUT join (',', @f[2..$#f]) ;
---> What does this line (above) do? I know it removes the first two fields?
} else {
print "skipped: '$_'\n";
}
}
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
