大家有没有碰到过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,来源gaodai$ma#com搞$$代**码网6,7,8,9,’A’,’B’,’C’,’D’);
foreach $char(@chars) {
`rm $file$char*`;
}
`rm $file*`;
}
#!/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,来源gaodai$ma#com搞$$代**码网6,7,8,9,’A’,’B’,’C’,’D’);
foreach $char(@chars) {
`rm $file$char*`;
}
`rm $file*`;
}
`rm $file1*`;
以上就是写了个perl的删除程序的详细内容，更多请关注gaodaima搞代码网其它相关文章！
搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：写了个perl的删除程序
转载请注明原文链接：写了个perl的删除程序
