Подсчёт файлов по директориям

1017         /home/disarmer/pg
1017         ............../pg/t
951          ................./t/base
40           .................../global
4            .................../pg_clog
2            .................../pg_multixact
1            .................../pg_notify
4            .................../pg_stat
1            .................../pg_subtrans
8            .................../pg_xlog

find ~ -type f |perl -we 'my %h;while(<STDIN>){chomp;my$s=$ARGV[0]?-s$_:1||0;my@p;@_=split"/",$_,$ARGV[1]+2||4;pop@_;for(@_){push@p,$_;$h{join"/",@p}+=$s}};my$p;for my$k(sort{$a cmp$b}keys%h){$_=$k;for my$c(split"/",$p){$c||next;s#^/$c## or$_=$k and last};$_=("."x length$p).$_ if$_ ne$k;$p=$k;$p=~s#/[^/]*$##;printf"%-12i %s\n",$h{$k},$_}' 0 5