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

Wed, 28 Sep 2011 16:47:52 -0700 

Если 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)/ ] }
                        <>
' $*
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить