The first part of the code - not so sure how to clean up - but you could
do something like this
$items[ $j++ ] = $_ foreach ( @{ $T_OWNER_INFO{ $owner }} );
($name, $phone, $pager, $email = @items;
====================
Brian Arnold
[EMAIL PROTECTED]
> -----Original Message-----
> From: Jerry Preston [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, November 08, 2001 12:49 PM
> To: begginners
> Subject: Is there a better 'PERL' way
>
>
> Hi,
>
> 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 ];
>
> Thanks,
>
> Jerry
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
