Return to Snippet

Revision: 3644
at August 28, 2007 13:02 by iblis

Initial Code
# Test for (in)valid regex
# perl regex 
# (you may need to disable warnings)

my $pattern = shift;
my $regex = eval { qr/$pattern/ };
die "Your regex doesn't seem valid : [email protected]" if [email protected];

Initial URL

Initial Description

Initial Title
Test for (in)valid regex

Initial Tags

Initial Language