[Moscow.pm] Get human-readable output from du, sorted by size:

[Dmitry Karpich]

Если perl ниже 5.14.0 и не понимает /r

#!/bin/sh
du -h |
perl -e '
	print 
		map { $_->[0] } 
		sort { $b->[2] <=> $a->[2] || $b->[1] <=> $a->[1] }
		map { $_->[2]  =~ tr/kKMGT/00123/, $_ }
		map { [ $_, /([\d.]+)(\w)/ ] }
			<>
' $*