大家有没有碰到过unix上，一个目录文件太多，无法删除的现象，我为大家写了个perl的程序删除-CGI教程,CGI文档

cat > del.pl

#!/usr/bin/perl
$file1=$argv[0];
@tests=(1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,g,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z);
foreach  $test(@tests) {

$file=$file1.$test;

@chars=(0,1,2,3,4,5,6,7,8,9,a,b,c,d);
foreach $char(@chars) {
`rm $file$char*`;
}
`rm $file*`;

}

`rm $file1*`;