#!/usr/bin/env perl
use strict;
use warnings;
use version;
use Data::Dumper;
my $DIR_OPT = "/usr/home/portage/x86_64/";
my @dirs;
my @pkgs;
my @remove;
my @skipped;
if ( opendir( DIR, $DIR_OPT ) ) {
@dirs = grep -d "$DIR_OPT/$_", readdir DIR;
closedir( DIR );
}
foreach my $dir ( @dirs ) {
next if ( $dir eq "." );
next if ( $dir eq ".." );
if ( opendir( DIR, $DIR_OPT."/".$dir ) ) {
@pkgs = readdir DIR;
closedir( DIR );
@pkgs = grep {!/(^\.$|^\.\.$)/} @pkgs;
my $pkgver = {};
foreach ( @pkgs ) {
my ($pname, $pver, $prev) = ($_ =~ /(.*)\-([\d\._]+)(\-r\d+)?\.tbz2/i);
if ( ! defined $pname ) {
push @skipped, "$DIR_OPT$dir/$_";
next;
}
$prev = "-r0" if ( ! defined $prev );
$prev =~ s/-r//;
print "-- $_ parsed as $pname, $pver, $prev\n";
if ( ! defined $pkgver->{$pname} ) {
$pkgver->{$pname}[0] = $pver;
$pkgver->{$pname}[1] = $prev;
next;
}
print "Found twin for $pname ($_)\n";
if ( version->parse($pkgver->{$pname}[0]) > version->parse( $pver ) ) {
push @remove, "$DIR_OPT$dir/$_";
next;
}
if ( version->parse($pkgver->{$pname}[0]) == version->parse( $pver ) && $pkgver->{$pname}[1] >= $prev ) {
next if ( $pkgver->{$pname}[1] >= $prev ); # same prog, miracle, just skip it
push @remove, "$DIR_OPT$dir/$_";
next;
}
$pkgver->{$pname}[0] = $pver;
$pkgver->{$pname}[1] = $prev;
$prev = "-r".$prev;
$prev = "" if ( $prev eq "-r0" );
push @remove, "$DIR_OPT$dir/$pname-$pver$prev.tbz2";
}
}
}
unlink @remove;
#print Dumper(@remove);
#print Dumper(@skipped);
Text paste