Comments on: Tip: How to sort folders by size with one command line in Linux http://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/ The Journal Of A Linux Sysadmin Thu, 18 Mar 2010 16:00:17 +0000 http://wordpress.org/?v=2.9.2 hourly 1 By: fabhttp://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/comment-page-2/#comment-181544 fab Wed, 27 Jan 2010 20:05:07 +0000 http://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/#comment-181544 One another :du –si */ .[^.]*/ | sort -n | while read a; do echo ” $a”; done | sed -r ’s/^\ *([\ 0-9]{3})([\ 0-9]{3})([ 0-9]{3})\ *(.*)\/$/\1 \2 \3 \4/’ | egrep -v “k\ “ | grep du -shx * | perl -e ‘%byte_order = ( T => 0, G => 1, M => 2, K => 3, “” => 4 ); print map { $_->[0] } sort { $byte_order{$a->[1]} &lt=&gt $byte_order{$b->[1]} || $b->[2] &lt=&gt $a->[2] } map { /^(\d+(?:\.\d+){0,1})(\S)/; [ $_, $2, $1 ] } &lt&gt’ | sed s -laQ | grep -r ‘^d’ | grep -v ‘\ \”\.\”$’ | grep -v ‘\ \”\.\.\”$’ | sed -r ’s/.*\ \”(.*)\”$/\1/’ | while read a; do du -s “$a”; done | sort -n | sed -r ’s/^([0-9]{1,4})\t(.*)/ \1\t\2/’ | sed -r ’s/^([\ 0-9]{4,5})\t(.*)/ \1\t\2/’ | sed -r ’s/^([\ 0-9]{6})\t(.*)/ \1\t\2/’ | sed -r ’s/^([\ 0-9])([\ 0-9]{3})([\ 0-9]{3})\t(.*)/\1 \2 \3\t\4/’ –all –max-depth=1 $@ | sort -n | awk ‘{if ($1>1048576) {print int($1/1048576)”G”,$2}else if ($1>1024) {print int($1/1024)”M”,$2} else {print $1?K”,$2}}’ One another :

du –si */ .[^.]*/ | sort -n | while read a; do echo ” $a”; done | sed -r ’s/^\ *([\ 0-9]{3})([\ 0-9]{3})([ 0-9]{3})\ *(.*)\/$/\1 \2 \3 \4/’ | egrep -v “k\ “ | grep du -shx * | perl -e ‘%byte_order = ( T => 0, G => 1, M => 2, K => 3, “” => 4 ); print map { $_->[0] } sort { $byte_order{$a->[1]} &lt=&gt $byte_order{$b->[1]} || $b->[2] &lt=&gt $a->[2] } map { /^(\d+(?:\.\d+){0,1})(\S)/; [ $_, $2, $1 ] } &lt&gt’ | sed s -laQ | grep -r ‘^d’ | grep -v ‘\ \”\.\”$’ | grep -v ‘\ \”\.\.\”$’ | sed -r ’s/.*\ \”(.*)\”$/\1/’ | while read a; do du -s “$a”; done | sort -n | sed -r ’s/^([0-9]{1,4})\t(.*)/ \1\t\2/’ | sed -r ’s/^([\ 0-9]{4,5})\t(.*)/ \1\t\2/’ | sed -r ’s/^([\ 0-9]{6})\t(.*)/ \1\t\2/’ | sed -r ’s/^([\ 0-9])([\ 0-9]{3})([\ 0-9]{3})\t(.*)/\1 \2 \3\t\4/’ –all –max-depth=1 $@ | sort -n | awk ‘{if ($1>1048576) {print int($1/1048576)”G”,$2}else if ($1>1024) {print int($1/1024)”M”,$2} else {print $1?K”,$2}}’

]]> By: Fusiondoghttp://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/comment-page-2/#comment-181488 Fusiondog Thu, 07 Jan 2010 21:41:46 +0000 http://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/#comment-181488 Actually sub K file sizes remain a bug. A match for null case is needed. Also decimal values break the new regex. That needs to be accounted for in the pattern. This one should be final:du -shx * | perl -e '%byte_order = ( T => 0, G => 1, M => 2, K => 3, "" => 4 ); print map { $_->[0] } sort { $byte_order{$a->[1]} &lt=&gt $byte_order{$b->[1]} || $b->[2] &lt=&gt $a->[2] } map { /^(\d+(?:\.\d+){0,1})(\S)/; [ $_, $2, $1 ] } &lt&gt' Actually sub K file sizes remain a bug. A match for null case is needed. Also decimal values break the new regex. That needs to be accounted for in the pattern. This one should be final:

du -shx * | perl -e ‘%byte_order = ( T => 0, G => 1, M => 2, K => 3, “” => 4 ); print map { $_->[0] } sort { $byte_order{$a->[1]} &lt=&gt $byte_order{$b->[1]} || $b->[2] &lt=&gt $a->[2] } map { /^(\d+(?:\.\d+){0,1})(\S)/; [ $_, $2, $1 ] } &lt&gt’

]]> By: Fusiondoghttp://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/comment-page-2/#comment-181487 Fusiondog Thu, 07 Jan 2010 18:57:13 +0000 http://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/#comment-181487 Sure, just need to bump the numbering in the byte_order hash over and add T to the regex match.du -shx | perl -e ‘%byte_order = ( T => 0, G => 1, M => 2, K => 3 ); print map { $_->[0] } sort { $byte_order{$a->[1]} &lt=&gt $byte_order{$b->[1]} || $b->[2] &lt=&gt $a->[2] } map { [ $_, /([MTGK])/, /(\d+)/ ] } &lt&gt’Though it is probably better still to change the regex from /([MTGK])/ to /^\d+(\S)/ Since that will match more generically and not at all on sub K output lines, as it should.Or even better still (only runs the regex once for each line):du -shx | perl -e ‘%byte_order = ( T => 0, G => 1, M => 2, K => 3 ); print map { $_->[0] } sort { $byte_order{$a->[1]} &lt=&gt $byte_order{$b->[1]} || $b->[2] &lt=&gt $a->[2] } map { /^(\d+)(\S)/; [ $_, $2, $1 ] } &lt&gt’ Sure, just need to bump the numbering in the byte_order hash over and add T to the regex match.

du -shx | perl -e ‘%byte_order = ( T => 0, G => 1, M => 2, K => 3 ); print map { $_->[0] } sort { $byte_order{$a->[1]} &lt=&gt $byte_order{$b->[1]} || $b->[2] &lt=&gt $a->[2] } map { [ $_, /([MTGK])/, /(\d+)/ ] } &lt&gt’

Though it is probably better still to change the regex from /([MTGK])/ to /^\d+(\S)/ Since that will match more generically and not at all on sub K output lines, as it should.

Or even better still (only runs the regex once for each line):

du -shx | perl -e ‘%byte_order = ( T => 0, G => 1, M => 2, K => 3 ); print map { $_->[0] } sort { $byte_order{$a->[1]} &lt=&gt $byte_order{$b->[1]} || $b->[2] &lt=&gt $a->[2] } map { /^(\d+)(\S)/; [ $_, $2, $1 ] } &lt&gt’

]]> By: lappyhttp://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/comment-page-2/#comment-181483 lappy Thu, 07 Jan 2010 00:30:52 +0000 http://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/#comment-181483 The script works good with perl, but I'm curious if Terabyte can be added to it too. I don't know much perl so it would be great if T can be added in the mix also. Thanks The script works good with perl, but I’m curious if Terabyte can be added to it too. I don’t know much perl so it would be great if T can be added in the mix also.
Thanks

]]> By: Fusiondoghttp://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/comment-page-2/#comment-181348 Fusiondog Thu, 03 Dec 2009 22:39:16 +0000 http://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/#comment-181348 nope, good luck nope, good luck

]]> By: Fusiondoghttp://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/comment-page-1/#comment-181347 Fusiondog Thu, 03 Dec 2009 22:38:31 +0000 http://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/#comment-181347 du -shx | perl -e '%byte_order = ( G => 0, M => 1, K => 2 ); print map { $_->[0] } sort { $byte_order{$a->[1]} &lt=&gt $byte_order{$b->[1]} || $b->[2] [2] } map { [ $_, /([MGK])/, /(\d+)/ ] } &lt&gt'breaking out the html manaul... &lt$gt.. du -shx | perl -e ‘%byte_order = ( G => 0, M => 1, K => 2 ); print map { $_->[0] } sort { $byte_order{$a->[1]} &lt=&gt $byte_order{$b->[1]} || $b->[2] [2] } map { [ $_, /([MGK])/, /(\d+)/ ] } &lt&gt’

breaking out the html manaul… &lt$gt..

]]> By: Fusiondoghttp://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/comment-page-1/#comment-181346 Fusiondog Thu, 03 Dec 2009 22:31:46 +0000 http://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/#comment-181346 Grrr.. using code flag.. <code> du -shx | | perl -e '%byte_order = ( G => 0, M => 1, K => 2 ); print map { $_->[0] } sort { $byte_order{$a->[1]} $byte_order{$b->[1]} || $b->[2] $a->[2] } map { [ $_, /([MGK])/, /(\d+)/ ] } ' </code> Grrr.. using code flag..

du -shx | | perl -e '%byte_order = ( G => 0, M => 1, K => 2 ); print map { $_->[0] } sort { $byte_order{$a->[1]} $byte_order{$b->[1]} || $b->[2] $a->[2] } map { [ $_, /([MGK])/, /(\d+)/ ] } '

]]> By: Fusiondoghttp://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/comment-page-1/#comment-181345 Fusiondog Thu, 03 Dec 2009 22:29:31 +0000 http://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/#comment-181345 du -shx | perl -e '%byte_order = ( G => 0, M => 1, K => 2 ); print map { $_->[0] } sort { $byte_order{$a->[1]} \ $byte_order{$b->[1]} || $b->[2] \ $a->[2] } map { [ $_, /([MGK])/, /(\d+)/ ] } \'command needed some commenting to get past the \s probably html interpretation. du -shx | perl -e ‘%byte_order = ( G => 0, M => 1, K => 2 ); print map { $_->[0] } sort { $byte_order{$a->[1]} \ $byte_order{$b->[1]} || $b->[2] \ $a->[2] } map { [ $_, /([MGK])/, /(\d+)/ ] } \’

command needed some commenting to get past the \s probably html interpretation.

]]> By: Fusiondoghttp://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/comment-page-1/#comment-181344 Fusiondog Thu, 03 Dec 2009 22:24:56 +0000 http://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/#comment-181344 Here is only one run of du and no temp files. It is about as efficient as you can get.du -shx | perl -e '%byte_order = ( G => 0, M => 1, K => 2 ); print map { $_->[0] } sort { $byte_order{$a->[1]} $byte_order{$b->[1]} || $b->[2] $a->[2] } map { [ $_, /([MGK])/, /(\d+)/ ] } ' Here is only one run of du and no temp files. It is about as efficient as you can get.

du -shx | perl -e ‘%byte_order = ( G => 0, M => 1, K => 2 ); print map { $_->[0] } sort { $byte_order{$a->[1]} $byte_order{$b->[1]} || $b->[2] $a->[2] } map { [ $_, /([MGK])/, /(\d+)/ ] } ‘

]]> By: meingbghttp://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/comment-page-1/#comment-181278 meingbg Sat, 14 Nov 2009 17:17:49 +0000 http://www.ducea.com/2006/05/14/tip-how-to-sort-folders-by-size-with-one-command-line-in-linux/#comment-181278 To have it done fast, just use quota. Or pick your favourite version above, just stay away from the ones with more than one call to du. To have it done fast, just use quota. Or pick your favourite version above, just stay away from the ones with more than one call to du.

]]>