need little help with reg expressions

[David Mamanakis]

Again...

interesting little routine I have going...

Sucking a return out of a function an stuffing it into an array

 @Junk = $TE->logon($A->{USERID});

Then I am validating the information in the array with known values,
searching for specific information...

 if (!$TE->validateCLSMSResponse($Garbage,@Junk))

the routine called "validateCLSMSResponse" is as follows...

sub validateCLSMSResponse
{
 my $self = shift;
 my $Response = undef;
 my $CheckString = shift;
 my @Holder = shift;

 $Response = grep { /$CheckString/i } @Holder;

 if (!$Response)
 {
  return undef;
 }

 return 1;
}


The problem I am having is that sometimes the information in the array may
get truncated to 8 character slices.  This is expected.
The information I am trying to compare to may be longer, so this fails.  I
need to truncate $CheckString to 8 characters (the first 8 characters) or
only compare the first 8 characters of $CheckString to the contents of
@Holder.

Can someone point me in the right direction?

Thanks...


--Dave Mamanakis
--Monroe, WA




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