replace middle spaces and write to another file

[sufi]

I want to replace spaces with comma in a text file and then want to write this newly edited data to other text file. I wrote this code : open (FD, "2testload.txt"); @aln=<FD>; close FD; foreach $aln (@aln) { $aln =~ s/\s/,/g; } open (FD, ">2outfile.txt"); print FD @aln; close FD It is working well but it writes all the content of first file (all lines) to second file in a single line instead of writing each line to separate lines of new file result is 0,plane,woodworking,2006-09-04,15:36:28,0,kanna,plane,2006-09-04,15:36:28 but it should be like this 0,plane,woodworking,2006-09-04,15:36:28 0,kanna,plane,2006-09-04,15:36:28

[Anonyrnous Monk]

I want commas in middle spaces not at the end, but here I got commas at the end also...

AFAICT, your problem arises from using \s in the substitution s/\s/,/g, instead of a plain space character, i.e. s/ /,/g.

\s stands for "whitespace", which includes newline (\n), so the newlines are turned into commas, too.

[CountZero]

And please put <code> ... </code> tags around your code.

Update: If you do not mind the original file is changed "in place" you can do this:

use Modern::Perl;
use Tie::File;

my @tied_array;

tie @tied_array, 'Tie::File', 'test.txt', autochomp => 1;

s/\s+/,/g for @tied_array;

Which will change

dit is een test
hier  is     een andere zin
en tenslotte    de finale lijn

into

dit,is,een,test
hier,is,een,andere,zin
en,tenslotte,de,finale,lijn

[ikegami]

Each line ends with a newline, and newline is a form of whitespace (/\s/). Either chomp off the line endings and add them back when you output, or be more selective in what you replace (i.e. match / /, /\t/ or /[ \t]/ instead of /\s/).

Update: Sorry, this is effectively a duplicate of the earlier post which I somehow missed.