Re^2: Set Notation Handling

This is really a great module, but what would be the simplest way to just say do this:

$set_spec = '1-4,6,9,12-18';
if ($value IS IN $set_spec){
  print "$value is valid\n";
}else{
  print "$value is invalid\n";
}
[download]

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

Comment on Re^2: Set Notation Handling Download Code

Replies are listed 'Best First'.
Re^3: Set Notation Handling by tall_man (Parson) on Mar 28, 2005 at 23:37 UTC
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]	[reply] [d/l]
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]