With perl, how can you stick something between the end of a line and the carriage return?

Question

I'm handling a file processing line by line. I need to add a comma at the end of the line, but it keeps bumping the comma (or whatever) to the new line.

Answer 1

I'd have to seen some code to answer for sure.

There is a native function called chomp which removes the newline from data.

while (my $line = <DATA>) {

  chomp $line;

  print $line . ",\n";

}

Answer 2

$ perl -wpe 's@$@,@;' < foo.txt