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]
