Re: Read Text line by line & modify with a delimiter

Or this:

chomp( my @names = <DATA> );
$" = "|";
print "@names";

__DATA__
Matei
Janov
rebas
yoni
[download]

Output:
Matei|Janov|rebas|yoni

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

Comment on Re: Read Text line by line & modify with a delimiter Download Code

Replies are listed 'Best First'.
Re^2: Read Text line by line & modify with a delimiter by RFMonk (Acolyte) on Dec 20, 2012 at 23:50 UTC
Use something like: `print join ("\|", $name1, $name2);` [download]	[reply] [d/l]
Re^2: Read Text line by line & modify with a delimiter by Anonymous Monk on Dec 21, 2012 at 04:28 UTC
Thx, but how can i delete a leading spaces or trailing space from the names, Is it possible? Thx for your help.	[reply]
Re^3: Read Text line by line & modify with a delimiter by Anonymous Monk on Dec 21, 2012 at 18:50 UTC
Thx, but how can i delete a leading spaces or trailing space from the names, Is it possible? It is FAQ, and search is for everyone `[delete leading trailing spaces] [trailing spaces] [lead trail space]` delete leading trailing spaces trailing spaces lead trail space -> trim leading & trailing whitespace, remove both leading and trailing spaces, Strip leading and trailing whitespace from a string.	[reply] [d/l]
Re^3: Read Text line by line & modify with a delimiter by Anonymous Monk on Dec 21, 2012 at 06:01 UTC
Have a look at regexes	[reply]