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*`;
    希望这篇的文章能够对您有所帮助，如果您觉得这篇网站维护教程有用的话，别忘了推荐给您的朋友哦！如果您有好的经验方法，不妨拿出来和大家一起分享：假如每个人都拿出一个经验，那么我们都将额外的获取一堆他人的经验。
请记住本站永久域名：（黑客防线网安服务器维护方案维护基地）Www.Rongsen.Com.Cn