GrandFather:

Thanks. I updated your code to make it a little more visually obvious to me, then added a couple cases. Now that I see what the difference is, I doubt that I'd ever use it. Not because it isn't useful, but rather because if I ever need it, I'm sure I'll have long forgotten it. But it's certainly educational.

For grins, here's what I came up with:

$ cat splok.pl
use strict;
use warnings;

my @regs = ('(x\d{3,}?)', '(x\d{3,}?x)', '(x\d{3,})',
             '(x\d{3})',   '(x\d{3,}x)',  '(x\d{3,}?x?)');
my @strs = ('xx', 'x12x', 'x123456x', 'x12x x123x', 'x123456y');

printf "%-12.12s ", $_ for " ", @regs;
print "\n";
for my $str (@strs) {
    printf "%-12.12s ", $str;
    for my $reg (@regs) {
        printf "%-12.12s ", ($str=~$reg) ? $1: '-nope-';
    }
    print "\n";
}

$ perl splok.pl
             (x\d{3,}?)   (x\d{3,}?x)  (x\d{3,})    (x\d{3})     (x\d{
+3,}x)   (x\d{3,}?x?)
xx           -nope-       -nope-       -nope-       -nope-       -nope
+-       -nope-
x12x         -nope-       -nope-       -nope-       -nope-       -nope
+-       -nope-
x123456x     x123         x123456x     x123456      x123         x1234
+56x     x123
x12x x123x   x123         x123x        x123         x123         x123x
+        x123x
x123456y     x123         -nope-       x123456      x123         -nope
+-       x123

[download]

(As you can tell, I like things laid out in grids. I organize lots of stuff with database tables and spreadsheets...)

...roboticus

When your only tool is a hammer, all problems look like your thumb.

In reply to Re^7: why my reg ex matches greedy? by roboticus
in thread why my reg ex matches greedy? by lngperl

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.