: 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>
Oh, I didn't notice that you could do it like this too. Unless of course, there
are other items in %PlayerData which you don't want in the final two
character-deliminated strings you create.
<perlcode>
push
(
@Joiner,
$ReadData[3],
values(%PlayerData)
);
$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]
