Perl düzenli ifadesine nasıl yorum yaparsınız?

Question

Perl düzenli ifadesine nasıl yorum yazabilirsiniz?

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

da perlfaq6 içinde first question bkz

Answer 1

/x değiştirici kullanın.

Ayrıca, perlre numaralı telefonun tamamını okurken incitmezsiniz.

Answer 2

bile/x değiştirici olmadan, içeri yorumlarınızı (? # ...) çevreleyebileceğim:

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