开源中文网

您的位置: 首页 > 编程开发 > Perl > 正文

写了个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*`; 

Tags:程序
关于开源中文网 - 联系我们 - 广告服务 - 网站地图 - 版权声明