Recursive Regular Expressions

You're viewing a comment by Samuel and its responses.

Samuel Permalink
December 14, 2009, 13:44

Hummm, doesn't work here...


C:\Temp>perl
#!/usr/bin/perl

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"
}
^Z
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

Reply To This Comment

(why do I need your e-mail?)

(Your twitter name, if you have one. (I'm @pkrumins, btw.))

Comment Help

Type the first letter of your name: (just to make sure you're a human)

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