perl/yesterday

   1 #!/usr/bin/perl
   2 #
   3 # find files that were last modified 'yesterday'
   4 #
   5
   6 use strict;
   7 my $debug = shift if $ARGV[0] eq '-x';
   8 my $dir = shift or die "yesterday: [-x] <directory> [<days>]";
   9 my $days = shift or 1;
  10 opendir D, $dir or die "cannot open directory '$dir' $!";
  11 my @fn = map {[(stat("$dir/$_"))[9], "$dir/$_"]} readdir D;
  12 closedir D;
  13
  14 ++$days;
  15 my $t = time;
  16 my $low = (int($t / 86400) - $days) * 86400;
  17 my $high = (int($t / 86400) - ($days - 1)) * 86400;
  18 my $clow = gmtime $low;
  19 my $chigh = gmtime $high;
  20 print "lowest: $clow highest: $chigh\n" if $debug;
  21 for (sort {$a->[0] <=> $b->[0]} @fn) {
  22         if (-f $_->[1]) {
  23                 if ($debug) {
  24                         my $cmtime = gmtime $_->[0];
  25                         if ($_->[0] < $low) {
  26                                 printf "%-30s LOW $cmtime < $clow\n", $_->[1];
  27                         } elsif ($_->[0] >= $high) {
  28                                 printf "%-30s HIGH $cmtime >= $chigh\n", $_->[1];
  29                         } else {
  30                                 printf "%-30s OK $cmtime\n", $_->[1];
  31                         }
  32                 } elsif ($_->[0] >= $low && $_->[0] < $high) {
  33                         print "$_->[1]\n";
  34                 } elsif ($_->[0] >= $high) {
  35                         last;
  36                 }
  37         }
  38 }
  39
  40
  41 exit 0;