html - 如何使用 perl 替换两个特定行之间的文本

Question

嗨，我有一个像这样的名为 1.html 的 html 文件

<div class="t_l"></div>
 <some> 
   lines
     of
 codes
 </some>
<div class="t_r"></div>

我想将该 div 的内容替换为另一个内容，该内容存储在名为“banner”的文件中。横幅文件是

<other> 
   lines
     of some
 codes
</other>

所以我想要得到的是：

<div class="t_l"></div>
 <other> 
   lines
     of some
 codes
 </other>
<div class="t_r"></div>

我想出使用 perl 是这样的：

# Slurp file 1.html into a single string
open(FILE,"1.html") or die "Can't open file: $!";
undef $/;
my $file = <FILE>;
open(BANNER,"banner") or die "Can't open file: $!";
undef $/;
my $banner = <BANNER>;
close BANNER;

# Set strings to find and insert
my $first_line = '<div class="t_l"></div>';
my $second_line = '<div class="t_r"></div>';

$file =~ s/$first_line\n.+?\n$second_line#s/$first_line\n$banner\n$second_line/;

close FILE;

# Write output to output.txt
open(OUTPUT,">1new.html") or die "Can't open file: $!";
print OUTPUT $file;
close OUTPUT;

上面的代码不能工作。有什么建议么？

Answer 1

您快到了。

的正常正则表达式行为.是匹配除换行符以外的任何字符。.+?在您的正则表达式中对您不起作用，因为$first_line和之间有更多换行符$second_line。

使用/s修饰符告诉 Perl 也让.匹配换行符。

（你的表达中也有一个无关的“ #s”）

所以一个有效的替代是：

$file =~ s/$first_line\n.+?\n$second_line/$first_line\n$banner\n$second_line/s;

Answer 2

一起去

$file =~ s/($first_line\n)[^\n]+(\n$second_line)/$1$banner$2/;

或者

$file =~ s/(?<=$first_line\n)[^\n]+(?=\n$second_line)/$banner/;