about () in the second,third etc data

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

Hi perlmonks... thanks so much for your wonderful help... I want to ask concerning the next lines below... This is part of the code:

print " Description   "; 
foreach my $de ($entry->DEs->elements()) {
        print OUT join ("\n", $de->text()),"\n" ;
    }
[download]

Basically the $entry->DEs->elements() will return an array of gen description and the $de->text() will return each element of the array... The content of the array :Cytotoxin, Cardiotoxin analog,CTX III,Ctx-3,Cardiotoxin C-10 The output of the above code is:

Description   Cytotoxin
Cardiotoxin analog 
CTX III
Ctx-3
Cardiotoxin C-10
[download]

Is there any way to make the second input till the last one in bracket such as :

Description   Cytotoxin (Cardiotoxin analog )(CTX III)
(Ctx-3)(Cardiotoxin C-10).
[download]

Thanks so muchhh.....

Comment on about () in the second,third etc data Select or Download Code

Replies are listed 'Best First'.
Re: about () in the second,third etc data by projekt21 (Friar) on Jan 17, 2002 at 16:23 UTC
If I understood your question correctly, then try something like: `my @a = $de->text(); print OUT shift @a, "\n", join("\n", map { "($_)" } @a);` [download] The shift returns (and removes) the first element, while the map adds those brackets. This is just one possible solution. You also may have a look at `printf`. Hope this helps. alex pleiner <alex@zeitform.de> zeitform Internet Dienste	[reply] [d/l]
Re: Re: about () in the second,third etc data by demerphq (Chancellor) on Jan 17, 2002 at 16:31 UTC
Assuming theres always more than element then the following allows you to lose the map `my @a = $de->text(); print OUT shift @a, "\n(", join(")\n(", @a),")\n";` [download] ;-) Yves / DeMerphq -- When to use Prototypes?	[reply] [d/l]
Re: about () in the second,third etc data by goldclaw (Scribe) on Jan 17, 2002 at 16:58 UTC
Seems to me like you have to grab the return of $de->text() first. Something like this should probably do what you want: `my @lines=$de->text(); print shift @lines,"\n",map { "( $_ )\n" } @lines;` [download] The shift grabs the first value, the map puts () around the remaining values, and adds a newline to them all. goldclaw	[reply] [d/l]