Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Array to String

by amexmythili (Novice)
on Jan 26, 2009 at 14:39 UTC ( [id://738944]=perlquestion: print w/replies, xml ) Need Help??

amexmythili has asked for the wisdom of the Perl Monks concerning the following question:

Hi Perl Monks,

Any body help me to know this.
I want to split an array in to string. iam having an array like this.
@array=(balack, white, green, red);
iam want to insert some tagging in starting and ending of the each element and store it in a string.

for example:
<tag>black</tag>, <tag>white</tag>, <tag>green</tag>, <tag>red</tag>
Any body help me in this.
Regards,
Mythili B

Replies are listed 'Best First'.
Re: Array to String
by Corion (Patriarch) on Jan 26, 2009 at 14:44 UTC

    See join for joining array elements into a string.

    See map for converting array elements into other.

    Basically, your conversion will look like this:

    my @array = qw(balack white green red); my @tagged_array = map { ... } @array; my $result = join ... @tagged_array; print $result;

    Of course, I've left out the interesting parts, but as you don't show the code you've written, I can't help you more.

Re: Array to String
by moritz (Cardinal) on Jan 26, 2009 at 14:45 UTC
    join ", ", map "<tag>$_</tag>", @array;

    For reference, see the documentation of join and map.

Re: Array to String
by jethro (Monsignor) on Jan 26, 2009 at 14:45 UTC
    foreach (@array) { $_= '<tag>' . $_ . '</tag>' }
    or with map and creation of a new array
    my @newarray= map { '<tag>' . $_ . '</tag>' } @array;

    UPDATE: misread your question. Should you ever need the tags in the array itself, this would be the answer ;-)

Re: Array to String
by explorer (Chaplain) on Jan 26, 2009 at 17:40 UTC

    Do you like XML?

    use XML::Simple; my @array = qw(balack white green red); print XMLout(\@array, RootName => undef, NoIndent => 1); __OUTPUT__ <anon>balack</anon><anon>white</anon><anon>green</anon><anon>red</anon +>

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://738944]
Approved by jethro
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others admiring the Monastery: (6)
As of 2024-04-18 03:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found