Hi

I think a hash is the answer. Assuming the second 2 elements of your data (delimited by the ':') don't involve the range, you could do something like:

my %checks = (
               '123:C' => [ 'A[0-7]' ],
               '456:D' => [ 'B[8-9]', 'B1[0-5]' ]
             );

while ( <DATA>)
{
 chomp;
 my $check = $_;

 my $matches = 0;
 #-- get the trailing key
 my $first_part = "";
 my $key = "";
 if ( $check =~ /(\w+):(\w+:\w+)$/ )
 {
  $first_part = $1;
  $key = $2;
 }

 #-- look up key in our checks hash
 foreach my $match_pattern ( @{$checks{$key}} )
 {
  if ( $first_part =~ /$match_pattern/ )
  {
   print "Line $_ matches $match_pattern:$key\n";
   $matches = 1;
  }
 }
 print "Line $_ doesn't match\n" unless ( $matches );
}

__DATA__
A4:123:C
B8:456:D
B11:456:D
X11:456:D

[download]
Results 
Line A4:123:C matches A[0-7]:123:C
Line B8:456:D matches B[8-9]:456:D
Line B11:456:D matches B1[0-5]:456:D
Line X11:456:D doesn't match

[download]
-j

In reply to Re: matching numeric range by jimbojones
in thread matching numeric range by state-o-dis-array

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.