Re: Find the text

I will get you started. This gets you the time string. Convert that to epoch. Convert current time to epoch. Then compare within 30min*60secs_per_minute = +- 1800 seconds.

#!/usr/bin/perl -w
use strict;

while (<DATA>)
{
   chomp;
   my ($time, $type) = split(/:>/,$_);
   if ($type =~ m/\s*FIND/)
   {
      print "I need to something with: $time\n";
   }
}

#PRINTS:
#I need to something with: 7/21/2009 5:49:20 PM
#I need to something with: 7/21/2009 5:52:59 PM

__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/21/2009 5:50:39 PM:> DATA3
7/21/2009 5:51:29 PM:> DATA4
7/21/2009 5:52:59 PM:> FIND
7/21/2009 5:53:19 PM:> DATA6
[download]

Comment on Re: Find the text Download Code

Replies are listed 'Best First'.
Re^2: Find the text by Selvakumar (Scribe) on Jul 28, 2009 at 12:35 UTC
I am trying using the below method.. Not yet completed... I just collected half an hour details with my system time and i need to find using this. `my $time=0; while ($time <= 1800) { my ($sec,$min,$hour,$day,$month,$year) = localtime(time()-$time); $year = $year+1900; $month++; if ($hour >12) {$hour=$hour-12;} my $date=sprintf "%d/%d/%d %d:%02d:00", $month, $day, $year, $hour, $m +in; push(@array, $date); $time+=60; }` [download]	[reply] [d/l]
Re^3: Find the text by mzedeler (Pilgrim) on Jul 30, 2009 at 10:16 UTC
It looks like you are trying to iterate over all whole minutes in a 30 minutes interval. That solution is very ineffective. If you have two dates, one from your file and one from the system time, just ensure that they are unix time (seconds since 1/1/1970 00:00) and then subtract one from the other and then see if the result is between 0 and 1800. This is the criteria that decides if a given FIND line is taking place within the next half hour. System time is already in unix time, so all you need is converting the time stamps from the file to seconds since epoch. There are plenty of modules that can do it for you. Also, please do this: use warnings; use strict; Indent your code.	[reply]