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

大家有没有碰到过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*`;

最新文章

网站 PAGEVIEW 分析系统 CGI[04-15]

实战 FastCGI[04-15]

在Windows NT 4.0下安装ActivePerl[04-15]

用shell写守护进程[04-15]

Perl语言的文字处理模式[04-15]

用Perl语言进行Socket编程[04-15]

相关文章

在Windows NT 4.0下安装ActivePerl[04-15]

Perl语言的文字处理模式[04-15]

用Perl语言进行Socket编程[04-15]

Perl 5.8.0 的一些资料[04-15]

Perl 字符匹配实例解说[04-15]

Perl脚本语言入门[04-15]