在perl中匹配$ END $

Question

当我使用该行时：

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

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

Answer 1

要匹配文字$，只需使用反斜杠转义它：

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

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

Answer 2

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

perldoc perlreref：

  

\Q在\E

之前禁用模式元字符

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