Perl搜索僅顯示最後結果

Question

我有兩個數組，一個帶有搜索項，另一個是從文件中獲取的多行。我有一個嵌套的foreach語句，並且正在搜索所有組合，但只有最後一場比賽正在顯示，儘管我知道有很多其他比賽的事實！我已經嘗試了許多不同版本的代碼，但這裏是我的最後一個：

open (MYFILE, 'searchTerms.txt'); 
open (MYFILE2, 'fileToSearchIn.xml'); 

@searchTerms = <MYFILE>; 
@xml = <MYFILE2>; 

close(MYFILE2); 
close(MYFILE); 
$results = ""; 

foreach $searchIn (@xml) 
{ 
    foreach $searchFor (@searchTerms) 
    { 
     #print "searching for $searchFor in: $searchIn\n"; 
     if ($searchIn =~ m/$searchFor/) 
     { 
      $temp = "found in $searchIn \n while searching for: $searchFor "; 
      $results = $results.$temp."\n"; 
      $temp = ""; 
     } 
    } 
} 

print $results; 

Answer 1

在程序開始時，您應始終使用use strict和use warnings，並在首次使用時使用my聲明所有變量。這尤其適用於當您要求獲得代碼幫助時，因爲此措施可以快速顯示許多簡單的錯誤。

正如Raze2dust所說，重要的是要記住，從文件中讀取的行將具有尾隨換行符"\n"字符。如果你正在檢查確切的匹配一對線之間，那麼這並不重要，但由於它不適合你，我假設searchTerms.txt中的字符串可以在fileToSearchIn.xml的行中出現的任何地方。這意味着您需要使用chomp來自searchTerms.txt的字符串;來自其他文件的行可以保持原樣。

通過使用File::Slurp模塊，這樣的事情變得更容易。它爲你處理所有的文件處理，並且如果你問，就會從輸入文本中選擇任何換行符。

我改變了你的程序來使用這個模塊，以便你可以看到它是如何工作的。

use strict; 
use warnings; 

use File::Slurp; 

my @searchTerms = read_file('searchTerms.txt', chomp => 1); 
my @xml = read_file('fileToSearchIn.xml'); 

my @results; 

foreach my $searchIn (@xml) { 
    foreach my $searchFor (@searchTerms) { 
    if ($searchIn =~ m/$searchFor/) { 
     push @results, qq/Found in "$searchIn"\n while searching for "$searchFor"/; 
    } 
    } 
} 

print "$_\n" for @results; 

Answer 2

chomp您的輸入刪除換行符：

open (MYFILE, 'searchTerms.txt'); 
open (MYFILE2, 'fileToSearchIn.xml'); 

@searchTerms = <MYFILE>; 
@xml = <MYFILE2>; 

close(MYFILE2); 
close(MYFILE); 
$results = ""; 

foreach $searchIn (@xml) 
{ 
    chomp($searchIn); 
    foreach $searchFor (@searchTerms) 
    { 
     chomp($searchFor); 
     #print "searching for $searchFor in: $searchIn\n"; 
     if ($searchIn =~ m/$searchFor/) 
     { 
      $temp = "found in $searchIn \n while searching for: $searchFor "; 
      $results = $results.$temp."\n"; 
      $temp = ""; 
     } 
    } 
} 

print $results; 

基本上，你在想你正在尋找「一」 ，但實際上它正在搜索'a \ n'，因爲它是如何讀取輸入的，除非您使用chomp。它只有在'a'是最後一個字符時才匹配，因爲在這種情況下，它將被一個換行符繼承。