perl查找文件，请帮忙！

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

1^# mouse.rice 发表于 2008-01-06 23:00

perl查找文件，请帮忙！

我在/home/perl目录中存放了许多perl程序（自己的小心得），以如下方式命名：perl-01,perl-02....perl-169......
现在我想查看某个程序，因为命名问题，无从查起，只记得该程序里存在“华英雄”字眼。请问能用perl写几行代码解决么？
readdir?似乎不行阿～～请大家帮忙了，谢谢！

ocean390

UID: 13725
帖子: 3
积分: 6
在线时间: 10 分钟

2^# ocean390 发表于 2008-01-06 23:59

这个没必要用perl，用用grep就可以了。

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

3^# mouse.rice 发表于 2008-01-07 11:14

能帮我写个三两行么？有点感觉，但就是写不出来，痛苦～～～

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

4^# apile 发表于 2008-01-07 13:33

find . -name "perl-*" |xargs grep "华英雄"

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

5^# mouse.rice 发表于 2008-01-07 15:33

谢谢老大指教！学perl是否要先学shell？

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

6^# __lxmxn__ 发表于 2008-01-07 19:16

我觉得没有必要,但是有些问题用shell解决比用perl解决更快更简单,所以就用shell了.

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

7^# mouse.rice 发表于 2008-01-07 20:37

3Q

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

8^# mouse.rice 发表于 2008-01-07 20:40

QUOTE:

原帖由 apile 于 2008-1-7 13:33 发表
find . -name "perl-*" |xargs grep "华英雄"

find . -name "perl-*" |grep "华英雄"
find . -name "perl-*" |xargs grep "华英雄"
-----------这两句代码运行的结果不一样,请问这个xargs的作用...?GOOGLE了下,不大理解.
谢谢指教!
--------------------------------------------------------------------------------------------------------------
find . -name "perl-*" |grep "华英雄" #因为grep的参数太多了系统无法显示结果么?所以才用xargs来消除这个现象?

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

9^# ly5066113 发表于 2008-01-07 20:53

QUOTE:

原帖由 mouse.rice 于 2008-1-7 20:40 发表

find . -name "perl-*" |grep "华英雄"
find . -name "perl-*" |xargs grep "华英雄"
-----------这两句代码运行的结果不一样,请问这个xargs的作用...?GOOGLE了下,不大理解.
谢谢指教!

man xargs

其实没必要用find，直接
grep "华英雄" perl-*
就可以了。

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

10^# mouse.rice 发表于 2008-01-07 20:55

LS的老大:
--------------------------------------------------------------------------------------------------------------
find . -name "perl-*" |grep "华英雄" #因为grep的参数太多了系统无法显示结果么?所以才用xargs来消除这个现象?

find . -name "perl-*" |grep "华英雄"与grep "华英雄" perl-*有什么区别?我现在宿舍,没有装perl环境,要不可以测试下,心急,呵呵!