Help for this page

Select Code to Download


  1. or download this
    Gimme a string: a
Gimme a RegEx: a(
Unmatched ( in regex; marked by <-- HERE in m/a( <-- HERE / at .. line
+ .. <STDIN> line 2.
  2. or download this
    use strict;
use warnings;
...

print $str =~ /$rex/ ? "Yes!" : "No.";
  3. or download this
    perl -E "say 'match' if 'ec' =~ /$ARGV[0]/" "ec(?{print 'EVAL!';})"

Eval-group not allowed at runtime, use re 'eval' in regex m/ec(?{print
+ 'EVAL!';})/ at -e line 1.