You're replying to a comment by Samuel.

Samuel Permalink
December 14, 2009, 13:44

Hummm, doesn't work here...


my $str = $str = "0"x50000 . "1"x50000;
my $regex = qr/0(??{$regex})*1/;

if ($str =~ /^$regex$/) {
  print "yes, it matches"
else {
  print "no, it doesn't match"
no, it doesn't match
C:\Temp>perl -v

This is perl, v5.10.1 built for MSWin32-x86-multi-thread
(with 2 registered patches, see perl -V for more detail)

Reply To This Comment

(why do I need your e-mail?)

(Your twitter handle, if you have one.)

Type the word "rocket_180": (just to make sure you're a human)

Please preview the comment before submitting to make sure it's OK.