Debian packages by size #bash

packages.sh

#!/bin/sh
# lists installed Debian packages, sorting by package size

# This could just be a perl script extracting the install package info.
# but I made it a sh script to allow for sort manipulation afterwards.

# Installed packages read from /var/lib/dpkg/status

echo '
open(FILE,"/var/lib/dpkg/status");
$_=<FILE>;
while ($_)
{
        if ( /Package:/ )
        {
                @package = split(" ",$_);
                $_=<FILE>; 
                if ( /install ok installed/ )
                {               
                        do 
                        { 
                                $_=<FILE>; 
                        }
                        until ( /Size:/ );
                        @size = split(" ",$_);
        
                        print( "$package[1] $size[1]\n");
                }
        }
        $_=<FILE>;
}
' | perl  | sort -nr -k2