Как вы прокомментируете регулярное выражение Perl?

Question

Как поместить комментарии в регулярное выражение Perl?

Answer 1

Используйте модификатор / x:

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

Также см. первый вопрос в perlfaq6.

Также не мешало бы прочитать все perlre , пока вы на нем.

Answer 2

Даже без модификатора / x вы можете заключать комментарии в (? # ...):

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