手机
当前位置:查字典教程网 >脚本专栏 >perl >写了个perl的删除程序
写了个perl的删除程序
摘要:大家有没有碰到过unix上,一个目录文件太多,无法删除的现象,我为大家写了个perl的程序删除复制代码代码如下:cat>del.pl#!/u...

大家有没有碰到过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中my与our的区别介绍

Perl中怎样从数组中删除某个值?

用perl写的单位电脑信息采集程序

Perl中的正则表达式介绍

perl文件读取的几种处理方式小结

perl 调试命令的相关知识小结

perl哈希hash的常见用法介绍

perl的cgi高级编程介绍

perl特殊符号及默认的内部变量

Perl的经典用法分享

精品推荐
分类导航