perl script to identify latest packages

newf (text/plain), 618 bytes, created by Dave Kemper on 2011-11-19 01:13:08 UTC

#!/usr/bin/perl

die "PORTDIR not defined\n" if !defined $ENV{'PORTDIR'};

while (<STDIN>) {
  chomp;
  ($category, $package, $version) = m%^(.*)/(.*)-([0-9][^-]*(?:-r[0-9]+)?)$%;
  if (!defined $category) {
    print "Cannot parse $_\n";
    next;
  }

  $wildcard_ebuild = "$ENV{'PORTDIR'}/$category/$package/$package-*.ebuild";
  $current_ebuild = "$category/$package/$package-$version";

  if (@ebuild_list = sort(map {s%^$ENV{'PORTDIR'}/(.*)\.ebuild$%$1%; $_} glob($wildcard_ebuild))) {
    print "$_\n" if $ebuild_list[-1] eq $current_ebuild;
  }
  else { print "No $category/$package in current portage\n"; }
}