求解perl的问题？

yizhengming

my @content;
my $word;
open FD1, "<file1";
open FD2, "<file2";
while ($word = <FD1>) {
  chomp($word);
  @content = grep {/\b$word\b/} <FD2>
}
print @content;

file1文件的每行一个单词
明明file2里有file1中的单词 可content的内容是空的 请问哪里出错了

zhlong8

你一次就把 FD2 读完了，只要第一个 $word 不在 FD2 那 @content 必然为空了

yizhengming

my @content;
my $word;
open FD1, "<file1";
while ($word = <FD1>) {
  open FD2, "<file2";
  chomp($word);
  @content = grep {/\b$word\b/} <FD2>
  close FD2
}
print @content;
那这样呢？

yinyuemi

回复 3# yizhengming


    用push 把每个$word grep出来的放进@content里，否则只会留下最后一个$word匹配的东东
   
另外，你这样做的效率不高，尤其是file2非常大，我建议你 先遍历file2，建一个hash {keyword => content}，再遍历file1，判断file1的$word是否存在在于hash，这样每个file只读一遍

yizhengming

my @content;
my $word;
my %hash_file2;
my $i = 1;
my $count;
open FD1, "<file1";
open FD2, "<file2";
while(<FD2>) {
     chomp;
     $hash_file2{$i} = $_;
     $i++;
}
while ($word = <FD1>) {
    chomp($word);
    $count = grep {/\b$word\b/}  values %hash_file2;
    push @content, $word if $count > 0;
}
print @content;
你的意思是这样吗？

yizhengming

my @content;
my $word;
my %hash_file2;
my $i = 1;
my $count;
open FD1, "<file1";
open FD2, "<file2";
while(<FD2>) {
     chomp;
     $hash_file2{$i} = $_;
     $i++;
}
while ($word = <FD1>) {
    chomp($word);
    $count = grep {/\b$word\b/}  values %hash_file2;
    push @content, $word if $count > 0;
}
print @content;
你的意思是这样吗？


   

yinyuemi

回复 6# yizhengming


    给些数据看看吧

yizhengming

谢谢里 我刚刚在shell下测试了 能完成我的功能  

tempo8

请问文件句柄“关闭”的问题！
从代码上看，文件句柄确实已经打开了。百思不得其解。
文件句柄的文件路径也没有问题！

while(<FD2>) {#readline() on closed filehandle FD2
while ($word = <FD1>) {#readline() on closed filehandle FD1

C:\strawberry\perl\bin>perl word-map.pl <A.txt <B.txt >111.txt

tempo8

勉强解决！可是以上问题依然不懂！并且忽略了中文字符！

1. use strict;
   
2. use warnings;
   
3. 
   
4. my @content;
   
5. my $word;
   
6. my %hash_file2;
   
7. my $i = 1;
   
8. my $count;
   
9. 
   
10. open my $file2, "B.txt";
    
11. while(<$file2>) {
    
12.      chomp;
    
13.      $hash_file2{$i} = $_;
    
14.      $i++;
    
15. }
    
16. close  $file2;
    
17. open my $file1, "A.txt";
    
18. while ($word = <$file1>) {
    
19.     chomp($word);
    
20.     $count = grep {/\b$word\b/}  values %hash_file2;
    
21.     push @content, $word if $count > 0;
    
22. }
    
23. print "@content\n";
    
24. close  $file1;

复制代码

http://bbs.chinaunix.net/thread-3744895-1-1.html
这个给力！可以解决匹配中文！