linux - 如何读取 2 个文件并打印匹配的模式？

Question

我正在尝试读取 2 个文件并尝试在这两个文件中打印匹配的模式。它不工作。有人可以指出我哪里做错了吗？

 #!/usr/bin/perl
 open (FILE1, 'Dimension.csv');
 my @dim=<FILE1>;
 close (FILE1);

 open (FILE2, 'SamsClub.dimension_refs.xml');
 my @xml=<FILE2>;
 close (FILE2);

 for(my $i;$i<@dim;$i++){
  for(my $j;$j<@xml;$j++){
   if($xml[$j] =~ m/$dim[$i]/) {
    print "Match found $xml[$j]";
   }
   }
 }

注意:FILE1为csv文件，FILE2为xml文件。

csv 示例文件

abc
defe
bald

xml示例文件

<tem name="abc" version="2"/>

Answer 1

当您将文件读入数组时，它们也包含 \n 字符。因此，您的 $dim[0] 包含 abc\n，因此不匹配。

肯定有人会发布更优雅的解决方案，但您可以尝试:

my @dim = map { chomp; $_} <FILE1>;