+++ /dev/null
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-
-my $filename='/var/lib/dpkg/status';
-
-open FILE, $filename or
-die "Failed to open $filename\n";
-
-while (my $line=<FILE>) {
-
- chomp($line);
- my @section=();
-
- while ($line ne "") {
- push(@section,$line);
- $line=<FILE>;
- chomp($line);
- }
-
- if ($section[1] ne 'Status: purge ok not-installed') {
-
- foreach (@section) {
- $_ = $_ . "\n";
- print;
- }
-
- print"\n";
- }
-}