Very slow array searching

[Rafaqat Ali Chaudhary]

Dear all,

I've a function which searches a given number from an array and returns
the result.

Function:

1.      sub checkNumber($)
2.      {
3.              my ($l_number) =  @_;
4.              my $l_status;
5.              my @matches= grep { /$l_number/ } @numbers;
6.              if  (@matches) {
7.                      $l_status="TRUE";
8.              }
9.              else {
10.                     $l_status="FALSE";
11.             }
12.             return $l_status;
13.     }

The Way I call it:

1.      $check=checkNumber($num1);

The array has at least 20K elements. This piece of code is taking up
almost 100% of the CUP cycles. Would somebody please suggest some
alternative solution.

Thanks in Advance

Rafaqat Ali Chaudhary

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]