Hello Monks,

I've recently learned about the DEFINE predicate and I'm testing it with a simple script that I wrote to practice Perl and regular expressions. The script simply checks for IPv4 or IPv6 addresses (I know there is a CPAN module for that, this is for me to practice), and I re-wrote the regular expression like so:

my $re = qr{
  (?>
    \b ((?&IPV6) | (?&IPV4)) \b
  )

  (?(DEFINE)
    (?<IPV6>
      (                                   ((?&H16) :){6} (?&LS32))
      | (                             ::  ((?&H16) :){5} (?&LS32))
      | ((                 (?&H16))?  ::  ((?&H16) :){4} (?&LS32))
      | ((((?&H16) :){0,1} (?&H16))?  ::  ((?&H16) :){3} (?&LS32))
      | ((((?&H16) :){0,2} (?&H16))?  ::  ((?&H16) :){2} (?&LS32))
      | ((((?&H16) :){0,3} (?&H16))?  ::  ((?&H16) :){1} (?&LS32))
      | ((((?&H16) :){0,4} (?&H16))?  ::                 (?&LS32))
      | ((((?&H16) :){0,5} (?&H16))?  ::                 (?&H16) )
      | ((((?&H16) :){0,6} (?&H16))?  :: )
    )
    (?<LS32>        ((?&H16) : (?&H16)) | (?&IPV4)               )
    (?<H16>         (?&HEX_DIGIT){1,4}                           )
    (?<HEX_DIGIT>   [a-fA-F0-9]                                  )
    (?<IPV4>        ((?&DEC_OCTET)\.){3}(?&DEC_OCTET)            )
    (?<DEC_OCTET>   25[0-5]|2[0-4]\d|1\d\d|\d\d|\d               )
    (?<IP_VFUTURE>
      v(?&HEX_DIGIT)+\.((?&UNRESERVED) | (?&SUB_DELIMS) | : )+
    )
    (?<UNRESERVED>[a-zA-Z0-9\-\._~]                              )
    (?<SUB_DELIMS>[!\$&'\(\)\*\+,;=]                             )
  )
}x;

[download]

It works, but it only seems to capture the first occurrence of an IP address on each line. For example:

if ("This is the same address in IPv6: 0:0:0:0:0:0:0:1 and 127.0.0.1" 
+=~ /$re/g ) {
  say $&;
  say $1;
  say $2;
}

[download]

I was expecting to capture both IP addresses, but only the first is ever captured. Can anyone shed some light on how could I make this work in this way?

Thank you!

In reply to regex capture groups when using DEFINE predicate by unmatched

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.