Skip to content

Instantly share code, notes, and snippets.

@trapd00r
Created May 26, 2010 04:35
Show Gist options
  • Save trapd00r/414068 to your computer and use it in GitHub Desktop.
Save trapd00r/414068 to your computer and use it in GitHub Desktop.
perl -e '@i=`pacman -Qi`;for(@i){if(/Name\s+:(.+)/){$n=$1;}if(/Installed Size\s+:(.+) K/){$s=$1;}$w{$n}=$s;}for$f(sort{$w{$a}<=>$w{$b}}(keys(%w))){printf("\033[31m%8d\033[0mK %s\n",$w{$f},$f);}'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment