bin/listbleads.pl

   1 #!/usr/bin/perl
   2
   3 # remember  -Dnoextensions=Encode saves time
   4
   5 my @cand = glob("/home/src/perl/repoperls/installed-perls/*/p*/perl-*\@39999/bin/perl");
   6
   7 my @rich = map {
   8     my $path = $_;
   9     my($sha) = m|installed-perls/.*?/p(.*?)/perl-|;
  10     open my $fh, "-|", "git show --pretty=fuller --date=iso $sha" or die;
  11     my $t;
  12     while (<$fh>) {
  13         next unless /^CommitDate:\s+(.+)$/;
  14         $t = $1;
  15     }
  16     [$t, $path] } @cand;
  17 my @sorted = sort { $b->[0] cmp $a->[0] } @rich;
  18 for my $perl (@sorted) {
  19     printf "%s %s\n", @$perl;
  20 }