comment on

When in pause, it means you don't quite understand what the pattern is saying, so it's best to get it explained

#!/usr/bin/perl -l

my @L = ( "", qw{ 0 00 11 000 011 110 0000 0011 0110 1001 1100 1111 })
+;

print scalar @L, " with anchors";

for(0..$#L){
   print "$_)'$L[$_]'" if $L[$_] =~ /^(0|1(01*0)*1)*$/;
}

__END__

use YAPE::Regex::Explain;
die YAPE::Regex::Explain->new(qr/(0|1(01*0)*1)*/)->explain;
__DATA__

The regular expression:

(?-imsx:(0|1(01*0)*1)*)

matches as follows:

NODE                     EXPLANATION
----------------------------------------------------------------------
(?-imsx:                 group, but do not capture (case-sensitive)
                         (with ^ and $ matching normally) (with . not
                         matching \n) (matching whitespace and #
                         normally):
----------------------------------------------------------------------
  (                        group and capture to \1 (0 or more times
                           (matching the most amount possible)):
----------------------------------------------------------------------
    0                        '0'
----------------------------------------------------------------------
   |                        OR
----------------------------------------------------------------------
    1                        '1'
----------------------------------------------------------------------
    (                        group and capture to \2 (0 or more times
                             (matching the most amount possible)):
----------------------------------------------------------------------
      0                        '0'
----------------------------------------------------------------------
      1*                       '1' (0 or more times (matching the
                               most amount possible))
----------------------------------------------------------------------
      0                        '0'
----------------------------------------------------------------------
    )*                       end of \2 (NOTE: because you're using a
                             quantifier on this capture, only the
                             LAST repetition of the captured pattern
                             will be stored in \2)
----------------------------------------------------------------------
    1                        '1'
----------------------------------------------------------------------
  )*                       end of \1 (NOTE: because you're using a
                           quantifier on this capture, only the LAST
                           repetition of the captured pattern will be
                           stored in \1)
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------
[download]

As for patterns, well, look at the regex ;D

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.

In reply to Re: Regex refresher by PodMaster
in thread Regex refresher by FoxtrotUniform

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Syntactic Confectionery Delight
	PerlMonks