Identify old RPM packages in a directory

	#!/usr/bin/env perl
	# [2011-03-15] viliam.pucik@gmail.com
	# Prints all old (SRC) RPM packages from specified directory.
	# Assumed package format: name-version-release.distribution_optionalpatch.suffix.rpm
	#
	# Use case:
	#
	# $ ls test/
	# glibc-2.12-1.7.el6_0.3.src.rpm glibc-2.12-1.7.el6_0.4.src.rpm glibc-2.12-1.7.el6.src.rpm
	# $ ./oldrpm.pl test/
	# glibc-2.12-1.7.el6.src.rpm glibc-2.12-1.7.el6_0.3.src.rpm
	use strict;
	use warnings;
	if ( scalar @ARGV < 1 ) {
	print "usage: oldrpm.pl <dir>\n";
	exit 1;
	}
	opendir my $dh, $ARGV[0] or die $!;
	my @rpms = grep { /\.rpm$/ } readdir $dh;
	close $dh;
	my %names;
	map { /([\w\-\+]+)-[^-]+-[\d\.]+/, push @{ $names{$1} }, $_ } @rpms;
	for ( sort keys %names ) {
	next if scalar @{ $names{$_} } < 2;
	my $pkg = my $version = my $release = my $patch = undef;
	for ( @{ $names{$_} } ) {
	/[\w\-\+]+-([^-]+)-([\d\.]+)[^_]+_([\d\.]+)/;
	my $_3 = ( defined $3 ) ? $3 : '';
	/[\w\-\+]+-([^-]+)-([\d\.]+)/;
	if ( !defined $pkg
	|| $version lt $1
	|| ( $version eq $1 && $release lt $2 )
	|| ( $version eq $1 && $release eq $2 && $patch lt $_3 ) ) {
	$pkg = $_;
	$version = $1;
	$release = $2;
	$patch = $_3;
	}
	}
	# commented alternative output
	#print "-"x20, "\n";
	for ( @{ $names{$_} } ) {
	#print;
	#print " *" if ( $_ eq $pkg );
	#print "\n";
	print "$_ " if $_ ne $pkg;
	}
	}

view raw oldrpm.pl hosted with ❤ by GitHub