#!/usr/bin/perl

my %info;

while (<>) {
    if (/^([-+])(rc|ii) (\S+)/) {
        $info{$1}{$2}{$3} = 1;
    }
}

print "\nInstalled using apt-get, missing with aptitude\n\n";

for $pkg (sort keys %{$info{'-'}{'ii'}}) {
    print "  $pkg\n" unless ($info{'+'}{'ii'}{$pkg}
                           || $info{'+'}{'rc'}{$pkg});
}

print "\nInstalled using apt-get, removed with aptitude\n\n";

for $pkg (sort keys %{$info{'-'}{'ii'}}) {
    print "  $pkg\n" if ($info{'+'}{'rc'}{$pkg});
}

print "\nInstalled using aptitude, missing with apt-get\n\n";

for $pkg (sort keys %{$info{'+'}{'ii'}}) {
    print "  $pkg\n" unless ($info{'-'}{'ii'}{$pkg}
                           || $info{'-'}{'rc'}{$pkg});
}

print "\nInstalled using aptitude, removed with apt-get\n\n";

for $pkg (sort keys %{$info{'+'}{'ii'}}) {
    print "  $pkg\n" if ($info{'-'}{'rc'}{$pkg});
}