源码网商城，靠谱的源码在线交易网站我的订单购物车帮助

当前位置：首页 > 资讯 > 技术文档

写了个perl的删除程序

时间：2021-09-24 05:43 编辑：来源：阅读：
扫一扫，手机访问

摘要：写了个perl的删除程序

大家有没有碰到过unix上，一个目录文件太多，无法删除的现象，我为大家写了个perl的程序删除

[u]复制代码[/u] 代码如下:

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*`; 

全部评论(0)

上一篇：perl 学习资料整理篇第1/4页
下一篇：构造函数中Perl方法用法介绍

资讯排行榜
更多>>

关于我们 | 广告合作 | 联系我们 | 隐私条款 | 免责声明 | 网站地图

苏ICP备2024110244号-2 苏公网安备32050702011978号增值电信业务经营许可证编号：苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有

联系客服

客服电话：
400-000-3129

微信版

扫一扫进微信版

返回顶部