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

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置：> 程序开发 > Web开发 > Cgi/Perl

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

作者:佚名时间:2004-08-05 10:42 出处:互连网责编:chinaitpower

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

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*`;

关闭本页