Re^3: Set Notation Handling

[tall_man]

in reply to Re^2: Set Notation Handling
in thread Set Notation Handling

Member testing is included in Set::IntSpan. Try this.

use strict;
use Set::IntSpan;
                                                                      
+                     
my $set = new Set::IntSpan('1-4,6,9,12-18');
testvalue(3, $set);
testvalue(7, $set);
                                                                      
+                     
sub testvalue {
   my $value = shift;
   my $set = shift;
   if (member $set $value){
     print "$value is valid\n";
   }else{
     print "$value is invalid\n";
   }
}

[tradez]

That works perfectly! Thank you sooo much for your help!