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

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

使用/ x修饰符:

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

另请参阅perlfaq6中的第一个问题.

当你在它的时候阅读所有的perlre也不会有什么坏处.

即使没有/ x修饰符,也可以将注释括在(？#...)中:

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