Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://783775]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (1)
As of 2017-04-30 12:59 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (537 votes). Check out past polls.