Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Pattern Finder

by japhy (Canon)
on Sep 11, 2001 at 05:34 UTC ( #111644=snippet: print w/replies, xml ) Need Help??
Description: From Pattern Finding. Update: silly me. It works now.
sub find_pat {
  use re 'eval';

  my $n = shift;
  my $re = qq{
(?{ local (@{[ map "\$c$_,", 1 .. $n ]}) = (0) x $n })
^ 
  };
  $re .= qq{
(.+?)
(?:
@{[ join " |\n", map "  \\$_ (?{ local \$c$_ = \$c$_ + 1 })", 1 .. $_ 
+]}
)*
  } for 1 .. $n;
  $re .= qq{
(?(?{ @{[ join ' && ', map "\$c$_", 1 .. $n ]} })|(?!))
\$
};

  return qr/$re/x;
} 
Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://111644]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2016-12-10 21:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (165 votes). Check out past polls.