Remove all packages of one source

#!/usr/bin/perl
#
# Author: Florian Ragwitz
# E-Mail: florian@gnoppix.org
#

die("Packagelist needed") if(!@ARGV);

while(<>) {
if(/^Package: (.*)$/) {
print $1."n";
system("apt-get remove $1");
}
}

As argument is a file with Packageinformations needed (can be found in /var/lib/apt/lists)

The Remove all packages of one source by Cyconet Blog, unless otherwise expressly stated, is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 Unported License. Terms and conditions beyond the scope of this license may be available at blog.waja.info.