怎么写perl的删除程序
来源：爱站网时间：2018-01-10编辑：网友分享
怎么写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的程序删除，感谢大家的阅读，更多内容请继续关注爱站技术频道网站！
上一篇：Perl是什么和Perl在哪里
下一篇：详细说明关于Perl文件读写
