多行搜索替换为 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

如需更多方法来完成同样的事情，请查看thread。要处理多行搜索，请使用以下命令 -

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

要将以下代码从单行代码转换为 perl 程序，请查看 perlrun documentation。

如果你真的需要把它转换成一个工作程序，那么就让 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

如果你想要一个更丰富的脚本来处理文件打开/关闭操作（我们不喜欢所有那些“死”语句）然后看看 perlrun 中的示例 -i[extension]切换。

Answer 2

从 cmets 中提取简短答案，供任何寻求快速单行的人使用，以及 Perl 从命令行忽略其 RegEx 选项的原因。

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

没有-0 参数，Perl 处理数据line-by-line，这会导致多行搜索失败。

Answer 3

考虑到您在文件的全部内容中使用：

local $/ = undef;

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

然后使用$string 进行所有处理，您处理文件的方式与处理内容的方式之间没有任何联系。如果在读完文件之前打开文件进行写入，则会遇到问题，因为打开文件进行写入会创建一个新文件，并丢弃以前的内容。

如果您只想保存打开/关闭语句，则使用Jonathan Leffer suggested。如果您的问题是关于多行搜索和替换，请说明问题所在。

Answer 4

您可能想查看我的 Perl 脚本，该脚本经过实战测试（在生产中大量使用），并且具有很多功能，例如：

• 执行多个搜索替换或查询搜索替换操作
• 搜索替换表达式可以在命令行中给出或从文件中读取 处理多个输入文件
• 递归地进入目录并对所有文件进行多次搜索/替换操作
• 用户定义的 perl 表达式应用于每个输入文件的每一行 可选择以段落模式运行（用于多行搜索/替换）
• 交互模式
• 批处理模式
• 可选择备份文件和备份编号
• 以 root 身份运行时保留模式/所有者
• 忽略符号链接、空文件、写保护文件、套接字、命名管道和目录名
• 可选地替换仅匹配/不匹配给定正则表达式的行

https://github.com/tilo/replace_string

Answer 5

bash script + perl -pi -e 的组合是无敌的——直接在EOF标签前键入搜索和替换字符串的bash函数示例：

# usage put into foobar.sh file, source foobar.sh file
# call directly into the shell do_multiline_srch_and_replace
do_multiline_srch_and_replace(){

                test -z $dir_to_work && {
         echo "You must export dir_to_work=<<the-dir>> - it is empty !!!"; exit 1;
      }
                test -d $dir_to_work || {
         echo "The dir to work on: \"$dir_to_work\" is not a dir !!!"; exit 1;
      }

                echo "INFO dir_to_work: $dir_to_work" ; sleep 1
                echo "INFO START :: searching and replacing in the non-binary files only"

                while read -r file ; do (
                        echo "DEBUG working on the following file: $file"

         # those pattern in the file names we want to skip usually - git, not , py files
         case "$file" in
            *.git*)
            continue ;;
            *node_modules*)
            continue ;;
            *.venv*)
            continue ;;
         esac
         # note the string should be exactly between the s|| and the replace str between the ||gs
         # the 'EOF' guarantees that no special chars from the shell will affect the result
                        perl -pi - <<'EOF' "$file"
BEGIN{undef $/;}
s|a multiline
string|the multiline
string to replace|gs
EOF
                );
                done < <(find $dir_to_work -type f -not -exec file {} \; | grep text | cut -d: -f1)

                echo "INFO STOP  :: search and replace in non-binary files"

}