Fellow Monks,

I've tried super search on this and came up empty.

I'm trying to do a match of data that is non-consecutive as the code below shows. This is to figure out the UPS zone for shipping. I realize that Business::UPS does this but I'd rather hard code the zones as opposed to doing the LWP lookup each time as the module does. 

use strict;

# Zone 8 
my $z8 = "10-374,376-379,382-385,388-499,530-534,541-543,618,619,700-7
+04,707-709";

my $num = "34";
print "Found it!\n" if $num =~/[$z8]/;

[download]

When run, the above code gives me an error: 

Invalid [] range "6-3" in regex; marked by <-- HERE in m/[10-374,376-3
+ <-- HERE 79,382-385,388-499,530-534,541-543,618,619,700-704,707-709]
+/

[download]

but I'm not sure how to match it against the range I've specified.

I understand that it's seeing the 6-3 and thinking that it's already tried to match against 10-374, so how can I get the regex to match against the entire range?

Useless trivia: In the 2004 Las Vegas phone book there are approximately 28 pages of ads for massage, but almost 200 for lawyers.

In reply to Matching data against non-consecutive range by Popcorn Dave

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.