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
regex

Initial Language
Perl