Is there a function that works in opposite way to chop/chomp?

nhw_cs

Hi,

I just want to append newline character to each element of an array. Is there an existing function to use?

wind_ch

join

x9x9

use 5.010 and say for @your_array;

nhw_cs

join
wind_ch 发表于 2011-07-07 14:47

    join is functionally opposite to split!

yinyuemi

回复 1# nhw_cs


  @arr= ( join "\n", map {$_} @arr,"")

nhw_cs

use 5.010 and say for @your_array;
x9x9 发表于 2011-07-07 14:50

    What? Explain further please? Your answer makes little sense to me.

jason680

Hi,

I just want to append newline character to each element of an array. Is there an existing fun ...
nhw_cs 发表于 2011-07-07 14:42

just add the "\n" when you want output or assign to another one
print "$_\n" foreach(@array);

join also can do that
print join "\n",@array;
(note: it didn't add "\n" in last element)

nhw_cs

回复  nhw_cs


  @arr= ( join "\n", map {$_} @arr,"")
yinyuemi 发表于 2011-07-07 14:51

    It doesn't work either this way. The newline is not added to the last element !

yinyuemi

回复 8# nhw_cs


    我已经做了修改，please try again

   @arr=(join "\n", @arr,"")

x9x9

What? Explain further please? Your answer makes little sense to me.
nhw_cs 发表于 2011-07-07 14:52

1. use 5.010;
   
2. say for @your_array;

复制代码