（求助）如何在文件中多关键字查找？

tanxin8651

张三123456注册
砖瓦上上上
34李四3注册56
地区性上下班
王五地地注册区性

假设有个数组@a=(张三 李四 王五)
数组内的各个值都是关键字
我想先从数组提取关键字然后同时在文件中查找含有关键字的行而不是用循环一个一个查，这样没有效率呢

open(DATA,"/tmp/1"); @a=(张三 李四 王五); while(<DATA>){ if($_=~/注册/ and ) }

我要怎么写呢，多谢大家，给出个主意。

[ 本帖最后由 tanxin8651 于 2009-3-20 17:30 编辑 ]

MMMIX

把你的关键字并起来，做成一个 regexp

tanxin8651

做一个简单的正则确实可以解决问题的，但是如果是上千个关键字，这个就是不好实现了，我其实就在卡在这里了，还请继续指点下。
意思就是只读一遍文件而把所有匹配的行打印出来。

[ 本帖最后由 tanxin8651 于 2009-3-20 18:57 编辑 ]

yecheng_110

如果每一行你能有办法分离成一个个的词的话
把关键字表做个hash
分离出一个词后看看有没有在hash中

tanxin8651

原帖由 yecheng_110 于 2009-3-20 19:03 发表
如果每一行你能有办法分离成一个个的词的话
把关键字表做个hash
分离出一个词后看看有没有在hash中

是的，这样也可以解决问题，但是这样做的话，还是需要多次读文件吧，其实我做的工作就是要分析日志中的数据呢，如果这些有关键字的行在多个目录的文件下的话，多次读取文件，再加上关键字也有上千个，这样做多个循环，查出来时间会很长，所以就想每个文件只读一次，其实就是想实现类似awk 或grep 这样的功能，就是同时查找多个关键字

awk '/关键字1/||/关键字2/||/关键字3/  file

grep   '关键字1\|关键字2\|关键字3' file

wxlfh

1. @keys = qw/张三 李四 朱元璋 李自成/;
   
2. open FH,"<","yourlog.log" or die "open file failure.\n";
   
3. while (<FH>){
   
4.     $line = $_;
   
5.     foreach (@keys){
   
6.         if ($line =~ /$_/){
   
7.             print $line;
   
8.             last;
   
9.         }
   
10.     }
    
11. }
    
12. close FH;

复制代码

MMMIX

原帖由 tanxin8651 于 2009-3-20 19:15 发表

是的，这样也可以解决问题，但是这样做的话，还是需要多次读文件吧，

为什么需要多次读入文件？

MMMIX

原帖由 yecheng_110 于 2009-3-20 19:03 发表
如果每一行你能有办法分离成一个个的词的话
把关键字表做个hash
分离出一个词后看看有没有在hash中

这也是个办法。

tanxin8651

谢谢各位，这个问题解决了.

MMMIX

原帖由 tanxin8651 于 2009-3-24 18:46 发表
谢谢各位，这个问题解决了.

也说说你怎么解决的撒？