如何将正则表达式作为参数传递给 Bash 脚本中的 Perl 单行器？

Question

我有这个input.txt 文件：

Dog walks in the park
Man runs in the park
Man walks in the park
Dog runs in the park
Dog stays still
They run in the park
Woman runs in the park

我想搜索 runs? 正则表达式的匹配项并将它们输出到文件中，同时在匹配项的两侧用两个星号突出显示匹配项。所以我想要的输出是这样的：

Man **runs** in the park
Dog **runs** in the park
They **run** in the park
Woman **runs** in the park

我想编写一个函数来包装这个 Perl 单行器（它会做一些其他事情），然后使用正则表达式作为参数调用它。我写了以下脚本：

#!/bin/bash

function reg {
    perl -ne 's/($1)/**\1**/&&print' input.txt > regfunctionoutput.txt
}

function rega {
    regex="$1"
    perl -ne 's/($regex)/**\1**/&&print' input.txt > regafunctionoutput.txt
}

perl -ne 's/(runs?)/**\1**/&&print' input.txt > regularoutput.txt
reg 'runs?'
rega 'runs?'

第一个 Perl 单行的输出就是我想要的。但是，当我尝试将其包装在 reg 函数中并将表达式作为参数传递时，我得到的不是所需的输出：

****Dog walks in the park
****Man runs in the park
****Man walks in the park
****Dog runs in the park
****Dog stays still
****They run in the park
****Woman runs in the park

我认为问题在于 $1 作为函数参数与 Perl 单行中的第一个捕获组之间存在一些冲突。所以我创建了第二个函数rega，它首先将该表达式分配给不同的变量，然后才将其传递给Perl。但是输出和之前的函数一样。

那么，如何将正则表达式传递给函数内部的 Perl 单行器？我做错了什么？

Answer 1

您可以将 $1 正则表达式作为命令行参数传递，并使用 qr// 作为单引号编译它，因为 Perl 脚本不会在 shell 下插入，

perl -ne '
  BEGIN{ ($re) = map qr/$_/, shift @ARGV }
  s/($re)/**\1**/ && print
' "$1" input.txt > regfunctionoutput.txt

使用%ENV 环境变量：

perl -ne '
  BEGIN{ ($re) = map qr/$_/, $ENV{1} }
  s/($re)/**\1**/ && print
' input.txt > regfunctionoutput.txt

附带说明，如果您使用-w 启用警告，它会告诉您\1 is better written as $1 是s/// 的替换部分。

Answer 2

您需要使用双引号 "，因为 shell 不会在单引号中插入变量 '。 this answer 也很好地解释了这一点。

function reg {
    perl -ne "s/($1)/**\$1**/g&&print" input.pl > regfunctionoutput.txt
}

此外，在 Perl 中，正则表达式捕获组以 $1、$2 等结尾。不在\1。如果您打开警告（在您的单行中使用 -w），您将收到一个 \1 更好地写为 $1 警告。在perldiag中有解释。

\%d 最好写成 $%d

（W 语法）在模式之外， 反向引用作为变量存在。反斜杠的使用是 祖父在替换的右侧，但是 风格上最好使用变量形式，因为其他 Perl 程序员会期待它，如果有超过 9 个反向引用。

（W 语法） 表示您可以使用 no warnings 'syntax'; 关闭此警告