Skip to main content
Post Made Community Wiki by michael
Post Migrated Here from stackoverflow.com (revisions)
Source Link
radoulov
radoulov

Another one:

du -h | perl -e' @l{ K, M, G } = ( 1 .. 3 ); print sort { ($aa) = $a =~ /(\w)\s+/; ($bb) = $b =~ /(\w)\s+/; $l{$aa} <=> $l{$bb} || $a <=> $b } <>'