check a string against a array

[rithu]

Hi,

I'm an oracle user. One of my implementation needs a little bit of
perl usage.

i've an array(@hexa_tableau) which contains restricted hexadecimal
characters and a string which is converted into hexadecimal.

 while ((@carac) = $sel->fetchrow_array) {
        push(@hexa_tableau, $carac[0]);
    }

my (@chars) = unpack("H*" => $line);
my (@hexed) = map {$_} @chars;
my $hexed   = uc join(' ' => @hexed);

I just wanted to check that any of the hexadecimal code present in
array (@hexa_tableau) appears in the string($hexed)

For example if my @hexa_tableau = ("00","01","02");
and $hexed = '6100636465414353206664736161647361640A'

 if (check the presence here)
{
print "exists";
}

Thanks in advance....


-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/