求教，读取文件，每行出现多个关键字时只能统计出一个，求解

懒狒狒

由于项目需要，需要写个配置文件，里面是许多关键字，暂且理解为单词吧 存入数组@kw
@kw = qw/hello exec zf asp system/;

file.txt

nihao say helloword
helloword exec zf
fatie
zf

sorry


现在如果扫file.txt 的话我只能扫到  hello   hello   zf
那么我想要的exec就会漏掉
不知道怎么解决，求大神
以下是部分代码：
                                        open (FH,"<","file.txt") or die "open file failure.\n";
                                        while (<FH>){
                                                my $line = $_;
                                                foreach (@kw ){
                                                        if ($line =~ /$_/g){
                                                                print $line;
                                                                push @keyword,$_;
                                                                last;
                                                        }
                                                }
                                        }
                                        print @keyword;
                                        close FH;
                                        exit;

把last去掉还是统计不出来正确的$scalar(@keyword);

懒狒狒

望大虾帮忙看一下

懒狒狒

以为ok了，貌似还是不能统计:wink:

算了，我试试哈希

rubyish

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. my @kw = qw/hello exec zf asp system/;
   
4. my @k;
   
5. while (<DATA>) {
   
6.     my $say;
   
7.     for my $k (@kw) {
   
8.         if (/$k/) {
   
9.             push @k, $k;
   
10.             $say++;
    
11.         }
    
12.     }
    
13.     print if $say;
    
14. }
    
15. say "keyword : @k";
    
16. 
    
17. __DATA__
    
18. nihao say helloword
    
19. helloword exec zf
    
20. fatie
    
21. zf
    
22. sorry

复制代码

失落之岛

#!/usr/bin/perl -w
use strict;

my @kw = qw/hello exec zf asp system/;
my @newkw;

open FH,"file.txt" || die "Could not open file!";

while (<FH> {
        my $line = $_;
        push @newkw,grep { $line=~ /$_/ } @kw;
}

print "@newkw\n";
close FH;

cdtits

1. my @kw = qw/hello exec zf asp system/;
   
2. my $pat = join('|', @kw);
   
3. my @k;
   
4. while (<DATA>) {
   
5.     push @k, /($pat)/g;
   
6. }
   
7. print join("\n", @k);
   
8. 
   
9. __DATA__
   
10. nihao say helloword
    
11. helloword exec zf
    
12. fatie
    
13. zf
    
14. 
    
15. sorry

复制代码

懒狒狒

谢谢@rubyish 谢谢@失落之岛  谢谢@cdtits
已经解决了哈，我会抽时间看看你们的逻辑思路的