Skip to content

Instantly share code, notes, and snippets.

@kraih

kraih/fast-5.16.txt

Last active August 29, 2015 14:04
Show Gist options
  • Save kraih/d98457537a07a46e753f to your computer and use it in GitHub Desktop.
Save kraih/d98457537a07a46e753f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fast-5.16.txt
$ perl5.16 -Mre=debug -E 'my $x = "y"; "y" =~ /z$x/ for 1 .. 2'
Compiling REx "zy"
Final program:
1: EXACT <zy> (3)
3: END (0)
anchored "zy" at 0 (checking anchored isall) minlen 2
Freeing REx: "zy"
Raw
fast-5.20.txt
$ perl5.20 -Mre=debug -E 'my $x = "y"; "y" =~ /z$x/o for 1 .. 2'
Compiling REx "zy"
Final program:
1: EXACT <zy> (3)
3: END (0)
anchored "zy" at 0 (checking anchored isall) minlen 2
Freeing REx: "zy"
Raw
slow-5.20.txt
$ perl5.20 -Mre=debug -E 'my $x = "y"; "y" =~ /z$x/ for 1 .. 2'
Compiling REx "zy"
Final program:
1: EXACT <zy> (3)
3: END (0)
anchored "zy" at 0 (checking anchored isall) minlen 2
Compiling REx "zy"
Freeing REx: "zy"
@kraih
Copy link
Author

kraih commented Jul 16, 2014

@rurban is right, a full recompilation looks a little different and is quite a bit slower.

$ perl5.20 -Mre=debug -E 'my $x = "y"; "y" =~ /$_$x/ for 1 .. 2'
Compiling REx "1y"
Final program:
   1: EXACT <1y> (3)
   3: END (0)
anchored "1y" at 0 (checking anchored isall) minlen 2
Compiling REx "2y"
Final program:
   1: EXACT <2y> (3)
   3: END (0)
anchored "2y" at 0 (checking anchored isall) minlen 2
Freeing REx: "1y"
Freeing REx: "2y"

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment