in reply to parsing time information from a TAB delimited array, kind of.
$line = "YYYY-MM-DD\t17:01:00\ttext\t123.456.789.123\t123.456.789.123\ +tURL\tNUMBER\tNUMBER"; $line =~ /.*?\t(\d\d):(\d\d):(\d\d)/; $time = $1*3600 + $2*60 + $3; if ($time >= 31500 && $time <= 43200 || $time <= 7200 || $time >= 6120 +0) { print "It's a match."; }
|
|---|