Tutorial :In Perl, how to remove ^M from a file?



Question:

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


Solution:1

^M is carriage return. You can do this:

$str =~ s/\r//g  


Solution:2

Or a 1-liner:

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


Solution:3

You found out you can also do this:

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


Solution:4

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  


Solution:5

I prefer a more general solution that will work with either DOS or Unix input. Assuming the input is from STDIN:

while (defined(my $ln = <>))    {      chomp($ln);      chop($ln) if ($ln =~ m/\r$/);        # filter and write    }  


Solution:6

This one liner replaces all the ^M characters:

dos2unix <file-name>  

You can call this from inside Perl or directly on your Unix prompt.


Solution:7

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$//;  }  


Solution:8

This is what solved my problem. ^M is a carriage return, and it can be easily avoided in a Perl script.

while(<INPUTFILE>)  {       chomp;       chop($_) if ($_ =~ m/\r$/);  }  


Solution:9

Little script I have for that. A modification of it helped to filter out some other non-printable characters in cross-platform legacy files.

#!/usr/bin/perl  # run this as  # convert_dos2unix.pl < input_file > output_file  undef $/;  $_ = <>;  s/\r//ge;  print;  


Solution:10

In vi hit :.

Then s/Control-VControl-M//g.

Control-V Control-M are obviously those keys. Don't spell it out.


Note:If u also have question or solution just comment us below or mail us on toontricks1994@gmail.com
Previous
Next Post »