Comment commentez-vous une expression régulière Perl?

Question

Comment placer des commentaires dans une expression régulière Perl?

Answer 1

Utilisez le modificateur/x:

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

Voir aussi le first question dans perlfaq6.

Aussi, il ne ferait pas de mal à lire tout de perlre pendant que vous y êtes.

Answer 2

Même sans le modificateur/x, vous pouvez joindre des commentaires dans (# ...?):

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