Perl One Liner to Find Duplicate RPM's in Linux

This little script will use Perl and find duplicate rpms on the system and dump them out to a duplicates file.

rpm --last -qa | perl -n -e '/^(\S+)-\S+-\S+/; print "$&\n" if $SEEN{$1}; $SEEN{$1} ||= $_;' | uniq > duplicates.txt