匹配perl中的$END$

Question

当我使用

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

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

Answer 1

要匹配文字$，只需用反斜杠转义:

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

删除不应该在那里的/g

Answer 2

if (/AQ $END$ /x) { ... }

perldoc perlreref:

Q禁用模式元字符直到E

删除不应该在那里的/g