免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 3625 | 回复: 13
打印 上一主题 下一主题

列出符合条件的文件的问题 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2008-12-17 12:06 |只看该作者 |倒序浏览
特定路径下存在数亿千计的文件,

想通过 perl -i -pe 命令行的方式在所有文件中匹配某固定字符串,

如果该字符串在该文件中存在,就把文件名直接在屏幕上输出。

匹配字符串的过程好办,问题是该如何把符合条件的文件名列出来呢?

望不吝赐教~ 谢谢!

论坛徽章:
0
2 [报告]
发表于 2008-12-17 12:16 |只看该作者
print 嘛

论坛徽章:
0
3 [报告]
发表于 2008-12-17 12:51 |只看该作者
find 'path' | xargs grep -c 'word' | grep -v ":0"

论坛徽章:
0
4 [报告]
发表于 2008-12-17 13:34 |只看该作者
原帖由 DQP 于 2008-12-17 12:51 发表
find 'path' | xargs grep -c 'word' | grep -v ":0"


这个灵的,多谢 DQP 。

论坛徽章:
23
15-16赛季CBA联赛之吉林
日期:2017-12-21 16:39:27白羊座
日期:2014-10-27 11:14:37申猴
日期:2014-10-23 08:36:23金牛座
日期:2014-09-30 08:26:49午马
日期:2014-09-29 09:40:16射手座
日期:2014-11-25 08:56:112015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:49:0315-16赛季CBA联赛之山东
日期:2017-12-21 16:39:1915-16赛季CBA联赛之广东
日期:2016-01-19 13:33:372015亚冠之山东鲁能
日期:2015-10-13 09:39:062015亚冠之西悉尼流浪者
日期:2015-09-21 08:27:57
5 [报告]
发表于 2008-12-17 14:13 |只看该作者
grep -l 'word' /path/*

论坛徽章:
0
6 [报告]
发表于 2008-12-17 15:35 |只看该作者
原帖由 ly5066113 于 2008-12-17 14:13 发表
grep -l 'word' /path/*

论坛徽章:
0
7 [报告]
发表于 2008-12-17 16:09 |只看该作者
一个grep 就能解决问题的问题,呵呵

论坛徽章:
23
15-16赛季CBA联赛之吉林
日期:2017-12-21 16:39:27白羊座
日期:2014-10-27 11:14:37申猴
日期:2014-10-23 08:36:23金牛座
日期:2014-09-30 08:26:49午马
日期:2014-09-29 09:40:16射手座
日期:2014-11-25 08:56:112015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:49:0315-16赛季CBA联赛之山东
日期:2017-12-21 16:39:1915-16赛季CBA联赛之广东
日期:2016-01-19 13:33:372015亚冠之山东鲁能
日期:2015-10-13 09:39:062015亚冠之西悉尼流浪者
日期:2015-09-21 08:27:57
8 [报告]
发表于 2008-12-17 16:43 |只看该作者
perl有什么命令可以结束当前文件的输入,跳转到下一个文件?
比如:

perl -ne 'if(/1/){print $_;nextfile;}' 1.txt 2.txt

nextfile 这里应该用什么命令,可以使perl停止从1.txt读记录,而开始从2.txt读记录,就相当于GNU awk 的nextfile命令。

论坛徽章:
95
程序设计版块每日发帖之星
日期:2015-09-05 06:20:00程序设计版块每日发帖之星
日期:2015-09-17 06:20:00程序设计版块每日发帖之星
日期:2015-09-18 06:20:002015亚冠之阿尔艾因
日期:2015-09-18 10:35:08月度论坛发贴之星
日期:2015-09-30 22:25:002015亚冠之阿尔沙巴布
日期:2015-10-03 08:57:39程序设计版块每日发帖之星
日期:2015-10-05 06:20:00每日论坛发贴之星
日期:2015-10-05 06:20:002015年亚冠纪念徽章
日期:2015-10-06 10:06:482015亚冠之塔什干棉农
日期:2015-10-19 19:43:35程序设计版块每日发帖之星
日期:2015-10-21 06:20:00每日论坛发贴之星
日期:2015-09-14 06:20:00
9 [报告]
发表于 2008-12-17 17:19 |只看该作者
原帖由 ly5066113 于 2008-12-17 16:43 发表
perl有什么命令可以结束当前文件的输入,跳转到下一个文件?
比如:

perl -ne 'if(/1/){print $_;nextfile;}' 1.txt 2.txt

nextfile 这里应该用什么命令,

close ARGV

论坛徽章:
23
15-16赛季CBA联赛之吉林
日期:2017-12-21 16:39:27白羊座
日期:2014-10-27 11:14:37申猴
日期:2014-10-23 08:36:23金牛座
日期:2014-09-30 08:26:49午马
日期:2014-09-29 09:40:16射手座
日期:2014-11-25 08:56:112015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:49:0315-16赛季CBA联赛之山东
日期:2017-12-21 16:39:1915-16赛季CBA联赛之广东
日期:2016-01-19 13:33:372015亚冠之山东鲁能
日期:2015-10-13 09:39:062015亚冠之西悉尼流浪者
日期:2015-09-21 08:27:57
10 [报告]
发表于 2008-12-17 17:26 |只看该作者

回复 #9 MMMIX 的帖子

谢了。
我原来用的是 close $ARGV,看来还是对perl理解不够。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP