user-tools/grepdatetime

   1 #!/usr/bin/env perl
   2
   3 use Date::Parse;
   4 use Getopt::Long;
   5 use feature qw/switch/;
   6 use POSIX qw/strftime/;
   7
   8 $print_unparsed = 0;
   9 $prefix_filename = 0;
  10
  11 sub prnt
  12 {
  13         my ($fname, $_) = @_;
  14         if($prefix_filename)
  15         {
  16                 print "$fname:";
  17         }
  18         print;
  19 }
  20
  21 Getopt::Long::Configure(qw/no_ignore_case/);
  22 GetOptions(
  23         'f|from=s' => \$dt_from,
  24         't|to|till=s' => \$dt_till,
  25         'r|match-date=s' => \$re_match_date,
  26         'u|print-unparsed!' => \$print_unparsed,
  27         'p|prefix-filename!' => \$prefix_filename,
  28 ) or
  29 die "Usage: $0 -f FROM -t TO [-r | -u] [FILES]";
  30
  31 $ts_from = defined $dt_from ? str2time($dt_from) : undef;
  32 $ts_till = defined $dt_till ? str2time($dt_till) : undef;
  33 $re_match_date = '>(\S+\s+\S+\s+\S+)';
  34
  35 printf STDERR "Searching from: %s\n", $ts_from ? strftime('%c', localtime $ts_from) : "ANY";
  36 printf STDERR "Searching till: %s\n", $ts_till ? strftime('%c', localtime $ts_till) : "ANY";
  37
  38 for my $fname (@ARGV)
  39 {
  40         my ($ext) = ($fname =~ /\.([^\.]+)$/);
  41         my $openmode = '-|';
  42         my $decompressor;
  43         my @source;
  44
  45         given($ext)
  46         {
  47                 when('xz')
  48                 {
  49                         $decompressor = "unxz";
  50                 }
  51                 when('gz')
  52                 {
  53                         $decompressor = "gunzip";
  54                 }
  55                 default
  56                 {
  57                         $openmode = '<';
  58                 }
  59         }
  60         if(defined $decompressor)
  61         {
  62                 @source = $decompressor, $fname;
  63         }
  64         else
  65         {
  66                 @source = $fname;
  67         }
  68         if(open my $fh, $openmode, @source)
  69         {
  70                 while(<$fh>)
  71                 {
  72                         my ($dt) = (m/$re_match_date/);
  73                         if($dt)
  74                         {
  75                                 my $ts = str2time($dt);
  76                                 if((not defined $ts_from or $ts >= $ts_from) and (not defined $ts_till or $ts <= $ts_till))
  77                                 {
  78                                         prnt $fname, $_;
  79                                 }
  80                         }
  81                         elsif($print_unparsed)
  82                         {
  83                                 prnt $fname, $_;
  84                         }
  85                 }
  86                 close $fh;
  87         }
  88         else
  89         {
  90                 warn "$fname: $!\n";
  91         }
  92 }
  93