我知道这种问题之前已经被问过很多次了。我再次来到这里的原因是我觉得我可能错过了一些简单而基本的东西。
是否有可能让这种搜索替换例程更好。例如，不打开同一个文件两次。同时，欢迎与速度相关的建议。
请注意，这适用于多行匹配，并替换多行字符串。
#!/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;
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
#!/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
perl -i -p0e 's/START.*STOP/replace_string/smg' file_to_change（-0将行分隔符设置为null）。 - zbyszek从评论中简要获取答案，对于任何寻求快速的一行代码和Perl忽略其命令行中的RegEx选项的原因。
perl -0pe 's/search/replace/gms' file
如果没有-0参数，Perl会逐行处理数据，这会导致多行搜索失败。
\R（匹配所有类型的行尾），而不是\n。 - ederagperl -0777 -i -pe 's/search/replace/' 1.h可以正常工作。 - Princekin. 不包括 \n，所以我不得不使用 [\s\S]*。我想知道为什么这里没有人提到它。 - Martian2020考虑到您使用以下方式读取整个文件的内容：
local $/ = undef;
open INFILE, $full_file_path or die "Could not open file. $!";
$string = <INFILE>;
close INFILE;
然后使用$string进行所有处理，文件的处理方式与内容处理方式之间没有任何联系。如果在读取文件完成之前打开文件进行写操作，则会出现问题，因为打开文件进行写操作会创建一个新文件，丢弃先前的内容。
如果你想要简化打开和关闭文件操作，可以像乔纳森·莱弗(Jonathan Leffer)建议的那样做。如果你的问题是关于多行搜索和替换的，请明确具体问题。
我知道这个问题已经有答案了，但是我想分享一下我的解决方法。
假设您想要更改UUID，但必须在上一行匹配，因为您有许多属于其他项目的UUID。
在Ubuntu 20中，在bash脚本中调用perl：
_UUID=$(uuidgen | sed 's/-//g')
export _UUID
perl -0777 -pi.back -e 's/(<stringProp\sname="Argument\.name">_BINARYVIDEOTEMPURL<\/stringProp>\n.*<stringProp\sname="Argument\.value">)[a-zA-Z0-9]{32}(<\/stringProp>)/$1$ENV{_UUID}$2/g;' test.txt
你的test.txt文件内容如下：（虽然不是有效的XML，但请创建它）
<?xml version="1.0" encoding="UTF-8"?> <jmeterTestPlan version="1.2" properties="5.0" jmeter="5.2.1">
<hashTree>
<TestPlan guiclass="TestPlanGui" testclass="TestPlan" testname="K8S Load Test Plan" enabled="true">
<stringProp name="TestPlan.user_define_classpath"></stringProp>
</TestPlan>
<collectionProp name="Arguments.arguments">
<elementProp name="_SESSIONID" elementType="Argument">
<stringProp name="Argument.name">_SESSIONID</stringProp>
<stringProp name="Argument.value">7c096b65-84b6-40c9-be93-a5891ec0394d</stringProp>
<stringProp name="Argument.metadata">=</stringProp>
</elementProp>
<elementProp name="_BINARYVIDEOTEMPURL" elementType="Argument">
<stringProp name="Argument.name">_BINARYVIDEOTEMPURL</stringProp>
<stringProp name="Argument.value">64e1886127fa41c4a58e59fe2bb098e1</stringProp>
<stringProp name="Argument.metadata">=</stringProp>
</elementProp>
</collectionProp>
这里发生了很多事情，让我解释一下。
总之，希望这对某人有所帮助。
结合bash脚本和perl -pi -e是无与伦比的 - 这是一个bash函数的例子，可以直接在EOF标签之前键入搜索和替换字符串：
# 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"
}
您可能想要查看我的Perl脚本，它经过了实战检验（在生产中广泛使用），并具有许多功能，例如：