From: "Doug C. Fisher" <[EMAIL PROTECTED]>
> use arrays and hashes.
>
> From: Alloun, Jonathan [mailto:[EMAIL PROTECTED]]
>>
>> Hello,
>>
>> There is a file with the following info:
>>
>> H23234 2000.12.11 00.15.00 10.254.345.345
>> H54544 2000.12.12 06.15.00 10.254.345.456
And pattern matching:
if ($line =~
/H\d+\s(\d{4})\.(\d{2})\.(\d{2})\s(\d{2})\.(\d{2})\.(\d{2})\s(.+)$/) {
$year = $1;
$mo = $2;
$day = $3;
$hour = $4;
$min = $5;
$sec = $6;
$ip = $7;
}
-Mike Noel
______________________________________________
FREE Personalized Email at Mail.com
Sign up at http://www.mail.com/?sr=signup
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
