Perl:如何匹配整个文本中的数据

Question

在下面的代码中，我试图使用Input File 1中的数据来编辑Input File 2中的数据。但问题是，当可能的匹配文本不是最后一个向右时，代码无法匹配或替换。

你能帮我想办法把它与全文相匹配吗。

我对编码还是个新手，所以如果你发现任何其他可能的增强功能，我将非常感谢你的指导。

输入文件1

Saint   st
Saint   saint
Saint   st.
Saint   snt
Saint   snt.
Hotel   htl
Hotel   htl.
 Road   rd
 Road   rd.

输入文件2

Part.Name.
Gordon house st
Gordon saint house
Gordon st. house
Gordon snt house
Gordon snt. house
htl palace
htl. Indiana
nuav rd hotel
dankei hotel rd.

代码从这里开始

use strict;
use warnings;
open (my $fh1, "< $filename1") or die $!;
my @incomin_data1=<$fh1>;
my $array_length1=$#incomin_data1;
my @key; my @value;
for (my $count=0;$count<=$array_length1;$count++)
{($key[$count],$value[$count])=split /,/,$incomin_data1[$count];}
my $key_length=$#key;
open (my $fh2, "< $filename2") or die $!;
my @incomin_data2=<$fh2>;
my $array_length2=$#incomin_data2;
for (my $count2=0;$count2<=$array_length2;$count2++)
{     for (my $count3=0;$count3<=$key_length;$count3++)
{     my $ky=$key[$count3];
my $val=$value[$count3];
if ($incomin_data2[$count2]=~/s?$vals?/g)
{     $incomin_data2[$count2]=~s/$val/$ky/;  }}}
print "nn",@incomin_data2;

Answer 1

我能为您做的最好的事情就是简单地编写一个解决方案。你自己的代码是无法恢复的。

use strict;
use warnings;
my ($file1, $file2) = @ARGV;
my %abbrevs;
open my $fh, '<', $file1 or die $!;
while (<$fh>) {
  chomp;
  my ($phrase, $abbrev) = split /,/;
  if ( exists $abbrevs{$abbrev} ) {
    die sprintf 'Abbreviation "%s" already assigned to "%s"', $abbrev, $phrase;
  }
  $abbrevs{$abbrev} = $phrase;
}
my $re = join '|', map quotemeta, sort { length $b <=> length $a } keys %abbrevs;
$re = qr/$re/;
open $fh, '<', $file2 or die $!;
while (<$fh>) {
  s/(?<![w.])($re)(?![w.])/$abbrevs{$1}/g;
  print;
}

输出

Part.Name.
Gordon house Saint
Gordon Saint house
Gordon Saint house
Gordon Saint house
Gordon Saint house
Hotel palace
Hotel Indiana
nuav Road hotel
dankei hotel Road