: -----Original Message-----
: From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf
: Of Andre` Niel Cameron
: Sent: Friday, November 30, 2001 1:20 PM
: To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
: Cc: [EMAIL PROTECTED]
: Subject: [CGI] Re: Program dilema
:
:
: Can anyone think of a cleaner way to do this:
: push(@Joiner, $ReadData[3]);
: push(@Joiner, $PlayerData{'PlayerHeld'});
: push(@Joiner, $PlayerData{'PlayerCarried'});
: push(@Joiner, $PlayerData{'PlayerEquipped'});
: push(@Joiner, $PlayerData{'PlayerWielded'});
:
: $PlaceHolder= join(":", @Joiner);
:
: @CurrentObjects= split(/:/, $PlaceHolder);
:
: # &MainFrames_Page;
:
: $tempdisplay= join(", ", @CurrentObjects);
you could do it like this:
<perlcode>
push
(
@Joiner,
$ReadData[3],
$PlayerData{'PlayerHeld'}
$PlayerData{'PlayerCarried'}
$PlayerData{'PlayerEquipped'}
$PlayerData{'PlayerWielded'}
);
$PlaceHolder = join(":", @Joiner);
$tempdisplay = join(", ", @Joiner);
</perlcode>
-Tommy Butler, consultant
Atrixnet, for Internet Business Software
http://atrixnet.com
2200 North Lamar
Suite 307
Dallas, TX
75202
--
Visit the open source Perl archives at Atrixnet
http://www.atrixnet.com/pub/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
