bin/lslogs.pl

   1 #!/usr/local/bin/perl
   2
   3
   4 use FindBin ();
   5
   6 my $logdir = "$FindBin::Bin/../logs";
   7 opendir my $dh, $logdir or die "Could not open '$logfir': $!";
   8 my @LS;
   9 for my $dirent (sort { $b cmp $a } readdir $dh) {
  10   next unless $dirent =~ /^megainstall\.(\d+T\d+)\.out$/;
  11   my $time = $1;
  12   open my $fh, "<", "$logdir/$dirent" or die;
  13   while (<$fh>) {
  14     next unless m|^Installing .*?/installed-perls/(.*?)/(p.*?)/perl-5.*?@(\d+)|;
  15     push @LS, [$time, $1, $2, $3];
  16     last;
  17   }
  18   last if @LS >= 23;
  19 }
  20 for my $ls (@LS) {
  21   printf "%s %-10s %-9s %6d\n", @$ls;
  22 }