Adding a comma to the end of each line

[ianicr]

Is there an easy way to add a comma to the end of each line of a csv file?

 

[raklet]

If you are talking about creating a new csv, then just put it there in your print statement. If you are talking about an existing csv, then read the file in and print it back out with a comma appended to the end.

open (IN, $file);
open (OUT, >$temp);
while (<IN>) {
print OUT &quot;$_,\n&quot;;
}
close (IN);
close(OUT);

unlink ($file);
rename ($temp, $file);

 

[TomThumbKOP]

I believe in the above sample, you would need to chomp the $_ firat or you would end up with a comma on its own line. I would do it this way:

open (IN, $file);
open (OUT, >$temp);
while (<IN>) {
s/\n/,\n/;
print OUT;
}
close (IN);
close(OUT);

unlink ($file);
rename ($temp, $file);

 

[raklet]

>> you need to chomp the $_ first

Yeah, that is right.

open (IN, $file);
open (OUT, >$temp);
while (<IN>) {
chomp;
print OUT &quot;$_,\n&quot;;
}
close (IN);
close(OUT);

unlink ($file);


The regex substitution works also, but I think it is a more expensive operation to do.
rename ($temp, $file);