Re^2: Extract data based on dates and place in new file

With a necessary correction

#!/usr/bin/perl
use strict;
use warnings;
use Date::Simple qw/ today /;

my $today = today;
my $wk_before = $today - 8;
for ($today, $wk_before) {
    $_ = $_->strftime('%Y%m%d');    
}

while (<DATA>) {
    print if $_ ge $wk_before && $_ lt $today;
}

__DATA__
20110801-23:42:01,4
20110802-23:42:01,4
20110802-23:45:01,3
20110802-23:48:01,1
20110802-23:51:01,1
20110802-23:54:01,2
20110802-23:57:01,3
20110803-00:00:01,3
20110810-23:42:01,4
[download]

Comment on Re^2: Extract data based on dates and place in new file Download Code

Replies are listed 'Best First'.
Re^3: Extract data based on dates and place in new file by dtbach (Novice) on Aug 16, 2011 at 17:30 UTC
This code worked EXCELLENT, thanks so much. I just added my in and out file handles to extract from the file then place the extracted data in another file and it worked fine. Now have to figure out using PAR or pp so I can include the Date::Simple module in the script, they don't want us installing additional CPAN modules on the machines we are using as storage real estate is at a premium running off of compact flash. Darryl	[reply]
Re^4: Extract data based on dates and place in new file by Anonymous Monk on Aug 17, 2011 at 02:39 UTC
Glad it worked. :-) My only question is this covers Tues through the following Tuesday (8 days) and it seems that Tuesdays are getting reported twice. I am not familiar with PAR or pp. But, you could do this with a module that has been a part of the Perl core since the beginning of Perl 5.0. POSIX has the function strftime. It involves a little more code and isn't as simple as Date::Simple but will give the same results and you may not have to package it with your program (as it is part of the Perl core). `#!/usr/bin/perl use strict; use warnings; use POSIX qw/ strftime /; my @dmy = (localtime)[3 .. 5]; # day-month-year my $today = strftime "%Y%m%d", (0) x 3, @dmy; $dmy[0] -= 8; # 8 days before my $wk_before = strftime "%Y%m%d", (0) x 3, @dmy; while (<DATA>) { print if $_ ge $wk_before && $_ lt $today; }` [download]	[reply] [d/l]