bin/show-latest

   1 #!/usr/bin/perl
   2 $reldir="~/musix/releases";
   3
   4 sub  cmpver
   5 {
   6
   7         my(@a)= split /\./,$a;
   8         my(@b)= split /\./,$b;
   9
  10         for $i (0,1,2) {
  11             return $a[$i] <=> $b[$i] if ($a[$i] != $b[$i]);
  12         }
  13         return $a cmp $b;
  14 }
  15
  16 my @versions;
  17 open LS, "ls -1 $reldir|";
  18
  19
  20 while (<LS>) {
  21
  22     $_ =~ /lilypond-([^.]+\.[^.]+\.[^.]+).tar.gz/;
  23     push @versions, $1;
  24 }
  25
  26
  27 @versions = sort cmpver @versions;
  28 my $last= (pop @versions);
  29 print $last;
  30
  31 system "rm $reldir/zZ*";
  32
  33 system  "> $reldir/zZ_LATEST_IS_$last";