Help for this page

Select Code to Download


  1. or download this
    >perl -Mre=debug -e"/$_/ for qw( a a b a )" 2>&1 | find "Compiling"
Compiling REx "a"
Compiling REx "b"
Compiling REx "a"
  2. or download this
    >perl -Mre=debug -e"/a/; /a/;" 2>&1 | find "Compiling"
Compiling REx "a"
Compiling REx "a"
  3. or download this
    my $compiled_pat = $compiled_pats{$pat} ||= qr/$pat/;