In Perl, how to do you remove ^M from a file?

Question

Hi! I have a script that is appending new fields to an existing CSV, however ^M characters are appearing at the end of the old line so the new fields end up on a new row instead of the same one. How do you remove the ^M characters from a csv file using Perl?.

Answer 1

^M is carriage return. You can do this:

$str =~ s/\r//g

Answer 2

To convert DOS style to UNIX style line endings:

for ($line in <FILEHANDLE>) {
   $line =~ s/\r\n$/\n/;
}

Or, to remove UNIX and/or DOS style line endings:

for ($line in <FILEHANDLE>) {
   $line =~ s/\r?\n$//;
}

Answer 3

Or a 1-liner:

perl -p -i -e 's/\r\n$/\n/g' file1.txt file2.txt ... filen.txt

Answer 4

You found out you can also do this:

$line=~ tr/\015//d;

Answer 5

Can't you just chomp it?

chomp($str)

Answer 6

In vi hit :

then s/Contrl-VControl-M//g

control-v control-m are obviously those key's dont' spell it out.

Answer 7

slightly unrelated, but to remove ^M from the command line using perl, do this

perl -p -i -e "s/\r\n/\n/g" file.name

Answer 8

What if I had a record in a otherwise good file that had a carriage return in it.

Ex:

1,2,3,4,5 ^M

,6,7,8,9,10

and I wanted to make it

1,2,3,4,5,6,7,8,9,10