22 lines
643 B
Perl
Executable File
22 lines
643 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use POSIX qw(strftime mktime);
|
|
|
|
$| = 1;
|
|
|
|
my $start = $ARGV[0] || die "USAGE: ./recollect.pl <start_date> [end_date]\nDates are in format YYYY-MM-DD\n";
|
|
my $end = $ARGV[1] || strftime('%Y-%m-%d', localtime);
|
|
|
|
my $ts = [ split /\D+/, $start ];
|
|
$end = [ split /\D+/, $end ];
|
|
$ts = mktime(0, 0, 0, $ts->[2], $ts->[1]-1, $ts->[0]-1900);
|
|
$end = mktime(0, 0, 0, $end->[2], $end->[1]-1, $end->[0]-1900);
|
|
while ($ts < $end)
|
|
{
|
|
my $d = strftime("%Y-%m-%d", localtime($ts));
|
|
print strftime("[%Y-%m-%d %H:%M:%S]", localtime)." Collecting stats for $d\n";
|
|
system("nice perl collectstats.pl $d");
|
|
$ts += 86400;
|
|
}
|