Henry Wong wrote:
> Hi all,
>
> I am wondering if you guys can help me out here:
> I have a log file containing information like this:
>
> THU DEC 6 14:55:00 2001 111 222 333 444
> FRI DEC 7 01:00:00 2001 555 666 777 888
> SAT DEC 8 13:00:00 2001 xxx xxx xxx xxx
> SUN DEC 9 04:00:00 2001 xxx xxx xxx xxx
> MON DEC 10 12:00:00 2001 xxx xxx xxx xxx
> TUE DEC 11 09:00:00 2001 xxx xxx xxx xxx
> :
> :
> :
> & so on...
>
> Having the above log file with the first column containing the usual TIME,
> following by 4 columns of numerical data, I am thinking of having this
> program asking the user to input his/her desired starting date & ending
> date, and thus thereby extracting all the relevant 4 column datas
> corresponding to the above dates.
>
> What i'm trying to say is, lets say the user inputs START DATE to be THU
> DEC 6, and END DATE to be MON DEC 10. So my code will then extract all
> relevant data corresponding to THU DEC 6 (which is 111, 222, 333, 444) up
> till MON DEC 10. That means the code would've extracted all 5 rows of data
> with their corresponding 4 xxx columns (from start date to end date), and
> then putting it into a file.
>
> Is this possible? How do I code the above concept? Do advise me, thanks in
> advance!
>
yes. with Date::Manip, it can be easily done:
#!/usr/bin/perl -w
use strict;
use Date::Manip;
my @db;
open(LOG,'data.log') || die $!;
while(<LOG>){
chomp;
my @fields = split(/\s+/);
my $date = ParseDate(join(' ',@fields[0..4]));
my $seconds = Date_SecsSince1970(UnixDate($date,'%m'),UnixDate($date,'%d'),
UnixDate($date,'%Y'),UnixDate($date,'%H'),
UnixDate($date,'%M'),UnixDate($date,'%S'));
push(@db,[$seconds,@fields[5..$#fields]]);
}
close(LOG);
while(1){
my @dates = (undef,undef);
for(1..2){
print "Enter date: ";
my $d = <STDIN>;
exit if($d =~ /^exit/i);
my $t = ParseDate($d);
my $index = 0;
$index = 1 if(defined $dates[0]);
$dates[$index] =
Date_SecsSince1970(UnixDate($t,'%m'),UnixDate($t,'%d'),
UnixDate($t,'%Y'),UnixDate($t,'%H'),
UnixDate($t,'%M'),UnixDate($t,'%S'));
}
foreach my $i (@db){
if($i->[0] >= $dates[0] && $i->[0] <= $dates[1]){
print "Found: ",join(' ',@{$i}),"\n";
}
}
}
__END__
try it and see what happen. i am sure you can make it better.
david
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
