A simple way to sort Debian package versions

sortdebversions.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Dpkg::Version;
use Getopt::Long;

my $head;
my $reverse;

Getopt::Long::Configure ("bundling");
GetOptions(
        "h|head" => \$head,
        "r|reverse" => \$reverse,
);

my @versions = <>;
chomp @versions;
my @deb_versions = sort map { Dpkg::Version->new($_) } @versions;
@deb_versions = reverse @deb_versions if $reverse;

$, = "\n";
$\ = "\n";
if ($head) {
        print shift @deb_versions;
} else {
        print @deb_versions;
}