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

以上用perl写的一个删除程序分享给大家就是小编为大家收集整理的全部内容了，希望对大家有所帮助。如果您喜欢这篇文章，可以收藏或分享给您的小伙伴们吧！欢迎持续关注我们的后续更新。