你如何评论Perl正则表达式？

Question

如何将注释放在Perl正则表达式中？

Answer 1

使用/ x修饰符：

my $foo = "zombies are the bombies";
if ($foo =~ /
             zombie  # sorry pirates
            /x ) {
    print "urg. brains.\n";
}

另请参阅perlfaq6中的first question。

同时阅读perlre所有内容并不会有什么坏处。

Answer 2

即使没有/ x修饰符，您也可以将注释括在（？＃...）中：

my $foo = "zombies are the bombies";
if ( $foo =~ /zombie(?# sorry pirates)/ ) {
    print "urg. brains.\n";
}