Sort the output of du -h

dusort.pl

#!/usr/bin/perl
#
# Sorts the output of du -h

use strict;

my $multip = {
	'G' => 1024*1024*1024,
	'M' => 1024*1024,
	'K' => 1024,
	'B' => 1
};

my $data = [];

while(<>) {
	my $line = $_;

	if ($line =~ m/^\W*([\d\.]+)([GMKB])\W+(.*)$/) {
	        my $bytes = $1 * $$multip{$2};
	        push @$data, [$bytes, $line];
	} else {
	        print "? $line";
	}
}

my @sorted = sort { 
	$$a[0] <=> $$b[0] 
} @$data;

foreach my $item (@sorted) {
	print $$item[1];
}