On Thu, 8 Nov 2001, Jerry Preston wrote:
> I am looking for a PERL / better way of writing this:
>
> foreach my $t ( @{ $T_OWNER_INFO{ $owner }} ) {
> $items[ $j++ ] = $t;
> }
> $name = $items[ 0 ];
> $phone = $items[ 1 ];
> $pager = $items[ 2 ];
> $email = $items[ 3 ];
my ($name, $phone, $pager, $email) = @{ $T_OWNER_INFO{$owner} };
-- Brett
http://www.chapelperilous.net/
------------------------------------------------------------------------
For I do not do the good I want, but the evil I do not want is what I do.
-- Paul of Tarsus, (Saint Paul)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
