bash - 如何在 bash 脚本中将换行符传递给 perl？ [复制]

Question

我正在尝试替换所有数字序列，后跟换行符和字母a。这些数字序列位于名为test.txt 的文件中。 bash 脚本command.sh 用于执行任务（见下文）。

test.txt

00
a1
b2
a

command.sh

#!/bin/bash

MY_VAR="\d+
a"

grep -P "^.+$" test.txt | perl -pe "s/$MY_VAR/D/";

---

当我调用command.sh 文件时，我看到的是：

$ ./command
00
a1
b2
a

但是，我期待这个输出：

$ ./command
D1
bD

我错过了什么？

Answer 1

你甚至不需要grep，因为它只是匹配.+，只需使用perl 和-0777 选项（slurp 模式）来匹配跨行：

#!/bin/bash

MY_VAR="\d+
a"

perl -0777pe "s/$MY_VAR/D/g" test.txt

输出：

D1
bD