关于perl的问题 我真的想不出是什么问题
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的内容是空的 请问哪里出错了？

------解决方案--------------------
据说perl是上一代程序员的语言。。。 楼主V5。。。 语法是相当晦涩