设为首页收藏本站

LinuxTone | 运维专家网论坛 - 最棒的Linux运维与开源架构技术交流社区!

 找回密码
 注册

QQ登录

只需一步,快速开始

#公告#抱歉,网站将关闭,不再开放。由于PC时代已远逝 。在这个后移动互联网时代,我们继续携手前行,保持对技术的热情。共同构建linuxtone知识星球欢迎加入,一起讨论技术、招聘人才、分享资源。请新老linuxtone人 扫码移步到 知识星球:linuxtone

学习是一种信仰!分享是一种快乐!能力= 心态 * 沟通 * 知识 (你的每一天需要正能量!)

 网站的发展需要你贡献一份力量!希望你能每天坚持看贴1小时,并回答网友的问题!祝你在浏览论坛的过程中取得进步!谢谢!linuxtone加油!大家加油! 友情提示: 你今天学习了吗?你今天进步了吗?少一点抱怨!多一点进步!Life is short ! Why not linuxtone ?  

网站的发展、感谢每位坛友的努力!

查看: 1919|回复: 5

[perl] perl获取指定文件夹下的以cc开头的文件 [复制链接]

Rank: 8Rank: 8

签到
184
注册时间
2009-3-28
最后登录
2017-5-11
在线时间
80 小时
阅读权限
90
积分
18387
帖子
120
主题
15
精华
0
UID
2181
发表于 2014-10-27 18:54:27 |显示全部楼层
本帖最后由 ices 于 2014-10-28 09:54 编辑

要显示的路径是这个/root/cs/release/,下面有很多各种各样格式的文件,现在想要显示以cc.开头的文件,比如cc.1212   cc.5435   cc.2231   cc.adasd.213等等类似这种格式的文件信息,搜了论坛改了下面这个脚本,但是是把/root/cs/release/下面的所有文件都显示了,

代码如下:现在想要只显示以cc.开头的文件~谁帮忙改改
  1. #!/usr/bin/perl
  2. opendir(DIR,'/root/cs/release/');
  3. while(my $file = readdir(DIR))
  4. {
  5.           next if ($file eq '.');
  6.           next if ($file eq '..');
  7.           print $file,"\n";

  8. }
  9. closedir(DIR);
复制代码
谢谢拉·。

在补充问下呀,如何显示5分钟内产生的以cc开头的文件呢·?

Rank: 8Rank: 8

注册时间
2012-9-23
最后登录
2019-7-15
在线时间
108 小时
阅读权限
90
积分
15756
帖子
31
主题
1
精华
0
UID
35637
发表于 2014-10-27 21:21:21 |显示全部楼层
next unless ($file =~ /^cc..*/);

使用道具 举报

Rank: 8Rank: 8

注册时间
2011-9-16
最后登录
2020-2-22
在线时间
948 小时
阅读权限
90
积分
266295
帖子
2158
主题
2
精华
0
UID
15647
发表于 2014-10-28 09:29:54 |显示全部楼层
路过了解一下

使用道具 举报

Rank: 8Rank: 8

注册时间
2009-3-28
最后登录
2017-5-11
在线时间
80 小时
阅读权限
90
积分
18387
帖子
120
主题
15
精华
0
UID
2181
发表于 2014-10-28 09:52:58 |显示全部楼层
sohusina 发表于 2014-10-27 21:21
next unless ($file =~ /^cc..*/);


感谢,可以实现了只显示以cc开头的文件了;

使用道具 举报

Rank: 8Rank: 8

注册时间
2009-3-28
最后登录
2017-5-11
在线时间
80 小时
阅读权限
90
积分
18387
帖子
120
主题
15
精华
0
UID
2181
发表于 2014-10-28 09:54:45 |显示全部楼层
sohusina 发表于 2014-10-27 21:21
next unless ($file =~ /^cc..*/);

@sohusina
在补充问下呀,如何显示5分钟内产生的以cc开头的文件呢·?

使用道具 举报

Rank: 8Rank: 8

注册时间
2012-9-23
最后登录
2019-7-15
在线时间
108 小时
阅读权限
90
积分
15756
帖子
31
主题
1
精华
0
UID
35637
发表于 2014-10-28 21:40:05 |显示全部楼层
next unless (-A < 1/(24 * 12) );

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

IT运维专家网感谢您的支持

合作联系: QQ:67888954/MSN:cnseek@msn.com/mail:netseek@linuxtone.org

Archiver|手机版|感谢所有关心和支持过LinuxTone的朋友们 转载本站内容请注明原作者名及出处 ( 京ICP备08103151 )   |

GMT+8, 2020-2-22 00:37 , Processed in 0.023274 second(s), 14 queries , Apc On.

Powered by Discuz! X2 Licensed

© 2001-2011 Comsenz Inc.

回顶部