写了个perl的删除程序
更新时间：2007年01月14日 00:00:00 作者：
大家有没有碰到过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*`;
复制代码 代码如下:
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*`;
相关文章
fdupe 是一个很小的 Perl 脚本，用来检索指定目录并找出其中重复的文件，该脚本是通过文件内容来识别是否重复文件，而非文件名。fdupe 无需其他 Perl 脚本支持，运行速度非常快2013-03-03
在Perl中使用Getopt::Long模块来接收用户命令行参数
我们在linux常常用到一个程序需要加入参数,现在了解一下perl中的有关控制参数的函数.getopt.在linux有的参数有二种形式.一种是–help,另一种是-h.也就是-和–的分别.–表示完整参数.-表示简化参数2013-03-03
这篇文章主要介绍了基于charles抓取https请求使用过程解析,文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下2020-11-11
写过很多关于Perl编程，今天继续分享一篇利用perl后门实现正向和反向连接的实例代码，需要的朋友可以参考下其中的内容详情2008-05-05
backtrack3里面/pentest/housekeeping里面有个超囧的偷root密码的东西，冒充su ,perl写的，管理员输入密码的时候还直接回显2008-09-09
perl对中文的处理(encode,decode) 最近在处理中文时遇到乱码的问题，google了一下，发现下面这篇文章。茅塞顿开！2008-10-10
用perl写的一个随机编故事的程序，用到了rand随机函数，注释也很详细，需要的朋友可以参考下2013-03-03
perl常见问题集合之二...2007-03-03
PERL里正则表达式的简介，适合喜欢学习perl正则的朋友。2009-03-03
这两天在用Perl编写一些监控脚本，其实写代码也是一件挺有意思的事情，就是挺废时间的。而且，由于语法不太熟，基本想到一个东西都要先Google一下看怎么实现。2008-06-06
最新评论