查看统计隐藏的目录和文件所占用的空间
时间:2006-04-29 来源:oliliango
因为突然发现/目录的利用率达到了100%,所以就想看看空间都哪里去了。其实也是之前下载了不少片子占的空间太大了。
在主目录下有很多.开头的目录和文件,用du来算的话,就不好算。然后就拿perl写了一小段,命名为df.pl,哈哈,算是本类的一个开头吧。
#!/usr/bin/perl
@ay=`ls -a`;
#print @ay;
$summll=0;
foreach $i (@ay)
{
chop($i);
if(substr($i,0,1) eq "." && $i ne ".." && $i ne ".")
{
$result=`du -s $i`;
@aa=($result=~/\./g);
$summll+=$`;
$temp=$`;
chop($temp);
print "********************************************\n";
print "Size of $i is:$temp K.\n";
print "********************************************\n";
}
}
print "Hidden Summary is : $summll K.\n";
很简陋了,不过好在是第一个,所以就备忘了。呵呵。
在主目录下有很多.开头的目录和文件,用du来算的话,就不好算。然后就拿perl写了一小段,命名为df.pl,哈哈,算是本类的一个开头吧。
#!/usr/bin/perl
@ay=`ls -a`;
#print @ay;
$summll=0;
foreach $i (@ay)
{
chop($i);
if(substr($i,0,1) eq "." && $i ne ".." && $i ne ".")
{
$result=`du -s $i`;
@aa=($result=~/\./g);
$summll+=$`;
$temp=$`;
chop($temp);
print "********************************************\n";
print "Size of $i is:$temp K.\n";
print "********************************************\n";
}
}
print "Hidden Summary is : $summll K.\n";
很简陋了,不过好在是第一个,所以就备忘了。呵呵。
相关阅读 更多 +