多线搜索替换为Perl

Question

我知道这种问题之前已经被问过很多次了.我再次来到这里的原因是我觉得我错过了简单而基本的东西.

是否有可能更好地进行这种搜索替换程序.例如,两次不打开相同的文件.欢迎速度相关的建议.

请注意,这适用于多行匹配并替换多行字符串.

#!/bin/perl -w -0777

local $/ = undef;

open INFILE, $full_file_path or die "Could not open file. $!";
$string =  <INFILE>;
close INFILE;

$string =~ s/START.*STOP/$replace_string/sm;

open OUTFILE, ">", $full_file_path or die "Could not open file. $!";
print OUTFILE ($string);
close OUTFILE;

Answer 1

这种搜索和替换可以通过单线程完成,例如 -

perl -i -pe 's/START.*STOP/replace_string/g' file_to_change

有关完成相同操作的更多方法,请查看此主题.要处理多行搜索,请使用以下命令 -

perl -i -pe 'BEGIN{undef $/;} s/START.*STOP/replace_string/smg' file_to_change

为了将以下代码从one-liner转换为perl程序,请查看perlrun文档.

如果您确实需要将其转换为工作程序,那么让Perl为您处理文件打开/关闭.

#!/usr/bin/perl -pi
#multi-line in place substitute - subs.pl
use strict;
use warnings;

BEGIN {undef $/;}

s/START.*STOP/replace_string/smg;

然后,您可以使用文件名作为第一个参数调用脚本

$perl subs.pl file_to_change

如果你想要一个更加强大的脚本来处理文件打开/关闭操作(我们不喜欢所有那些'die'语句),那么看一下-l [extension]开关下perlrun中的例子.

Answer 2

对于那些寻找快速单行的人来说,从评论中得到简短的答案,以及Perl从命令行忽略他们的RegEx选项的原因.

perl -0pe 's/search/replace/gms' file

如果没有这个-0参数,Perl会逐行处理数据,这会导致多行搜索失败.