Dennis.. that is of course exactly what my script does, and it is even commented!
Pareshan... if you are afraid to handle power tools, than stick to the basics.
Generate the list and use an editor!
And uh... do check out the result of the script for real. I really think it matched your requirement very closely. Ok, you want a line before the first series, and you don't want to see the rest? Easy adaption. See below.
Alos check out the script for real! It may look tricky on first reading, but it is really straightforward.
Also below, as bonus, an alternative approach which filters, but does not sort. Similar result, maybe easier to read.
others, if you have a perverse sense of humor like myself, then check out the "personal quote' attached to my profile for the last few weeks :-)
---- perl script even closer to request ---
print "\n The servers expired already or will expire within 7 days\n\n";
# load a 7 day cutoff marker
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time() + 7 * 86400);
$ymd = sprintf qq(%d%02d%02d), $year+1900, $mon+1, $mday;
$mdy = sprintf qq(%02d/%02d/%d), $mon+1, $mday, $year+1900;
$ordered{qq($ymd The servers will expire between 8 to 30th day \n)} = "\n";
# calculate a 30 day cutoff time
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time() + 30 * 86400);
$ymd_30 = sprintf qq(%d%02d%02d), $year+1900, $mon+1, $mday;
while (<>) {
if ( m{(\d\d)/(\d\d)/(\d{4})\s+(".+?")} ) {
$yyyymmdd = $3.$1.$2.' '.$4;
next if $ymd_30 lt $yyyymmdd; # skip anything over 30 day mark
$ordered{$yyyymmdd} = "$1/$2/$3";
}
}
# all data loaded, sort array, split key into sort helper and text, and print
for (sort keys %ordered) {
$text = substr($_,9);
print qq($ordered{$_} $text\n);
}
------------ alternative, just making 2 sub lists -----
------------ also 'cleaned' up with strict defintions -----
use strict;
use warnings;
my (@this_month, @this_week);
# calculate a 7 and 30 day cutoff marker in YYYMMDD format.
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time() + 7 * 86400);
my $ymd_7 = sprintf qq(%d%02d%02d), $year+1900, $mon+1, $mday;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time() + 30 * 86400);
my $ymd_30 = sprintf qq(%d%02d%02d), $year+1900, $mon+1, $mday;
# read the list, and ignore, or store in the appropriate sub list as needed.
while (<>) {
if ( m{(\d\d)/(\d\d)/(\d{4})\s+(".+?")} ) {
my $yyyymmdd = $3.$1.$2;
print "$yyyymmdd $ymd_7 $ymd_30\n";
next if $yyyymmdd gt $ymd_30;
my $print_line = qq($1/$2/$3 $4\n);
if ($yyyymmdd gt $ymd_7) {
push @this_month, $print_line;
} else {
push @this_week, $print_line;
}
}
}
# all interesting data is loaded, print the arrays
if (@this_week) { print "\n The servers expired already or will expire within 7 days\n\n" , @this_week }
if (@this_month) { print "\n The servers will expire between 8 to 30th day\n\n", @this_month }
