perl - 在 perl 中匹配 $END$

Question

当我使用这条线时：

if (m/^$END$/g) { 
    # ...
}

在我的代码中，编译器认为我正在我的代码中搜索静态'END$'，而我想搜索字符串“$END$”。我该怎么做？

Answer 1

要匹配文字$，只需使用反斜杠对其进行转义：

if (m/^\$END\$/) { ... }

删除了/g不应该存在的内容。

Answer 2

if (/\A\Q $END$ /x) { ... }

perldoc perlreref：

\Q 禁用模式元字符，直到\E

删除了/g不应该存在的内容。