use Set::Scalar;
    $s = Set::Scalar->new;
    $s->insert('a', 'b');
    $s->delete('b');
    $t = Set::Scalar->new('x', 'y', $z);

    $u = $s->union($t);
    $i = $s->intersection($t);
    $d = $s->difference($t);
    $e = $s->symmetric_difference($t);
    $v = $s->unique($t);
    $c = $s->complement;
[download]

From your other post, however, it seems like you are interested in a more specialized form of set, that is integer ranges or spans. In this case, check out the module Set::IntSpan:

  use Set::IntSpan qw(grep_set map_set);

  $set_spec = "1-20000";
  $set    = new   Set::IntSpan $set_spec;

  $set_spec = "1-14192,14194,14196-14221";
  $u_set = union      $set $set_spec;
  $i_set = intersect  $set $set_spec;
  $x_set = xor        $set $set_spec;
  $d_set = diff       $set $set_spec;
  $c_set = complement $set;
[download]

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

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]

Hrmm, might wanna check the link to know what I meant by "set". I am more talking like I have a Golden Image definition tool, that has an input of type text in html that needs to have a set way to have ranges and values typed in for validation purposes. Set notation being like [0,5000) for a way to say "all values from 0 up to but not including 5000."


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

I have a major in math - I know what you were talking about. Try using a hash before declaring it unusable.

Remember - you're building a data structure against which to compare items. So, memory is not a major issue for this tool. Thus, translation of [0,5000) is very simple - my %x; $x{$_} = 1 for 0 .. 5000-1;

Frankly, I think you haven't fully described what it is you're trying to build. You describe an auditing tool for 250M transactions/day in your original post, but now you want to have the auditing criteria be input via a webform. Those aren't very compatible. Auditing tools really should be auditing against the specifications. If your specifications are determined by inputs into a webform, then nothing can help you.

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.