note
DamnDirtyApe
<p>[cpan://Set::Scalar] does this nicely.</p>
<code>
#! /usr/bin/perl
use strict;
use Set::Scalar;
my $x = 3;
my $s = Set::Scalar->new( 1, 3, 7 );
if ( $s->has( $x ) ) { print "Found $x\n"; }
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-102902">
<BR/>_______________<BR/>
[DamnDirtyApe]
<blockquote>
<pre>Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
--Friedrich Nietzsche</pre>
</blockquote>
</div></div>
387056
387056