Perl + 单行智能 Perl 命令，用 grep 匹配异常字符 + 完全匹配

Question

主题：one-liner 智能 Perl 命令而不是简单的 grep（在 Bash 脚本中）

我在使用 grep 匹配异常字符时遇到问题（我不能在每个异常字符前加上“\”，因为这很成问题，而且不是一个聪明的解决方案）。

我需要与 $Some_string 中定义的所有不可用字符完全匹配的 Perl 单行语法。示例：

Examples

Some_string="[234-094]"
Some_string="[ * ( & % @ !]"
Some_string="~ [ 0:3 # % & ^ + =]"
Some_string="1.1.1.1.-9.9.9.9   + 9999.999.1 – 10000"
Some_string="< { [ ' : ; " ? / . , "
Some_string="PORT.A.B.C.D – 124.543.455.33 – [ ! NOT EQUAL PORT 38737 – 3837652"
.
.
.

我的 grep 语法不好

 cat  file | grep $Some_string

使用 Perl（我需要以下正确的建议/解决方案）：

 cat file | perl -nle 'print if /$Some_string/'

规则

备注：如果 Some_string="111.111.111.111" 在文件中我有 1111.1111.1111.1111 那么 Perl 语法需要忽略这一点。 只有当我在文件中有这个时，Perl 才必须匹配： 111.111.111.111 。

第二点：if Some_string="WORD" 在我的文件中： ONEWORD 那么 Perl 语法需要忽略这一点。 只有当我在文件中有这个时，Perl 才必须匹配：WORD

Answer 1

我不确定我是否完全理解您的问题。也许-P 和-x 做你想做的事，同时引用"$Some_string" 来保留空格？

grep -Px "$Some_string" file

来自 grep 手册页：

-P, --perl-regexp

将 PATTERN 解释为 Perl 正则表达式。

-x, --line-regexp

只选择那些与整行完全匹配的匹配项。

Answer 2

你必须以某种方式转义字符串。在这种情况下，需要使用\ 转义特殊字符，因为将字符串传递给 Perl 与将其传递给 grep 并没有什么不同——两者都会在 shell 处理后看到字符串。

使用 Perl 执行此操作只会混淆您的代码。

Answer 3

你可以这样做：

perl -ne 'print if m|\Q[ * ( & % \E\@\Q !]\E|' file

我在 Quote and Quote-like Operators 中找到了 \Q 和 \E 运算符。

来自该链接的 sn-p：

您不能在 \Q 序列中包含文字 $ 或 @。未转义的 $ 或 @ 会插入相应的变量，而转义将导致插入文字字符串 \$。您需要编写类似 m/\Quser\E@\Qhost/ 的内容。

\Q  Quote (disable) pattern metacharacters till \E or
    end of string

\E  End either case modification or quoted section
    (whichever was last seen)