Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re: Find the text

by si_lence (Deacon)
on Jul 28, 2009 at 08:02 UTC ( #783775=note: print w/ replies, xml ) Need Help??

in reply to Find the text

You need to convert the date to something that can be compared. Epoch might be a good choice.
Dates are always a bit tricky to deal with (time zones, daylight saving, ...) but if you know your format you can use something like the following as a starting point

use strict; use warnings; use Time::Local; while (<DATA>) { if (/FIND/) { my $now = time; my ($month, $day, $year, $hours, $minutes, $seconds, $AMPM) = +split /\/| |:/; $hours += 12 if $AMPM eq 'PM'; my $time = timegm($seconds, $minutes, $hours, $day, $month-1, +$year-1900); print "within 30 mins" if $now - $time < 30*60; } } __DATA__ 7/21/2009 5:47:29 PM:> DATA 7/21/2009 5:48:49 PM:> DATA1 7/21/2009 5:49:20 PM:> FIND 7/28/2009 9:49:20 AM:> FIND 7/21/2009 5:50:39 PM:> DATA3 7/21/2009 5:51:29 PM:> DATA4 7/21/2009 5:52:59 PM:> DATA5 7/21/2009 5:53:19 PM:> DATA6
cheers, si_lence

Comment on Re: Find the text
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://783775]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2015-10-09 05:08 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (233 votes), past polls