Re^3: Set Notation Handling

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";
   }
}
[download]

Comment on Re^3: Set Notation Handling Download Code

Replies are listed 'Best First'.
Re^4: Set Notation Handling by tradez (Pilgrim) on Mar 29, 2005 at 15:35 UTC
That works perfectly! Thank you sooo much for your help! Tradez "Every official that come in Cripples us leaves us maimed Silent and tamed And with our flesh and bones He builds his homes" - Zach de la Rocha	[reply]

In Section Seekers of Perl Wisdom