Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://783775]
help
Chatterbox?
[erix]: do you mean: 'it can be done simpler', or 'it won't work' ?
[choroba]: I wouldn't want to maintain it in the current form
[erix]: ok, but mainainability comes after it has been made to work :)
[erix]: maybe I should have cobbled together a more simple example
[erix]: the main question is whether repeating groups get captured. I thought they did but it looks they do not.
[erix]: or they probably get overwritten when the repeating is done

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2018-01-19 08:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How did you see in the new year?










    Results (216 votes). Check out past polls.

    Notices?