The pattern /^(.+?)\1*(.+?)(?:\1|\2)*(.+?)(?:\1|\2|\3)+$/ will find the three patterns and put them in $1, $2, and $3. You can use a function to build this regex:
sub findpattern
 {
   my $data = shift;
   my $num  = shift;
   my $re;
   my $i;
   my @retval;

   $re = '^';
   for($i = 1; $i <= $num; $i++)
    {
      $re .= '(.+?)(?:'.join('|', map("\\$_", 1..$i)).')';
      if($i == $num)
       {
         $re .= '+';
       }
      else
       {
         $re .= '*';
       }
    }
   $re .= '$';
   if($data =~ /$re/)
    {
      for($i = 1; $i <= $num; $i++)
       {
         push(@retval, ${$i});
       }
      return @retval;
    }
   return undef;
 }

[download]
If passed the data and the number of patterns it will return a list of the patterns or undef if unable to find them (at least one pattern must be repeated more than once).

In reply to Re: Patter Finding by nardo
in thread Pattern Finding by artist

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.