in reply to split into hash
If you can be sure about your data, why not do the following:
while (<THATFILE>) { if (/\d+ (\d+):(\d+):(\d+)((,\d+)+)/) { my ($hour, $min, $sec, $line) = ($1, $2, $3, $4); if ($line =~ /,987/) { do-something-with-time-values; } } }
|
|---|