请教个递归查找文件的问题

dy0813

单位在用weblogic，里面目录太多，想找到/bea下所有目录递归子目录（只要求目录）所包含的文件个数。以方便删除。同学帮忙写了下面这个脚本但感觉跟我想的有差距（再加上是solaris可能有些功能不能用）。请教高手这个应该怎么写呢比如要查找的是/bea目录
#!/bin/bash
allcount=0
function countfile
{
cd $1
local filecount=0
local dircount=0
for file in `/bin/ls`
do
if [ -d $file ]
then
dircount=$(($dircount+1))
countfile $file
else
filecount=$(($filecount+1))
fi
done
cd ..
allcount=$(($allcount+$filecount))
echo "$1 have $filecount files,$dircount directory"
}

if [ $# -eq 0 ] ; then
countfile `/bin/pwd`
echo "-----------------"
else
for dir in $*
do
if [ -d $dir ];then
countfile $dir
echo "$dir has $allcount files"
echo "---------------------------" ;allcount=0
else
echo "$dir does not exit"
fi
done
fi
fi

昭襄王

1. find . -type f | sed 's/\(.*\)\/.*/\1\//'|sort | uniq -c
   
2.      11 ./Administrator/
   
3.       3 ./Administrator/.subversion/
   
4.       1 ./Administrator/.subversion/auth/svn.simple/

复制代码

还是这个意思？

1. find . -type f | wc -l
   
2. 15

复制代码

dy0813

回复 2# 昭襄王

是老大你第一段代码的意思，非常感谢，但是可惜没有按文件数目的排序，不知道是不是shell环境不同。

dy0813

准确的说还不太是，想对每个目录做个小记，这样能发现哪个大目录文件也很多。

mpstat

想找到/bea下所有目录递归子目录（只要求目录）所包含的文件个数。以方便删除

我没搞明白这句话什么意思

rdcwayx

1. cd /bea
   
2. find . -type f |awk '{$NF="";a[$0]++}END{for ( i in a) print a[i] "\t"  i}' FS=\/ OFS=\/

复制代码