我们在使用UNIX/Linux,如果出现一个目录文件太多又无法删除的现象该怎么办呢？这里教你用pear脚本来实现删除。
这个pear脚本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*`;
ok，又一个小问题解决。 |