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

User · Answer

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

User · Answer

This is what solved my problem   M is a carriage return  and it can be easily avoided in a Perl script   while  lt INPUTFILE gt          chomp       chop     if        m  r

User · Answer

This one liner replaces all the  M characters   dos2unix  lt file-name gt    You can call this from inside Perl or directly on your Unix prompt

User · Answer

Or a 1-liner   perl -p -i -e  s  r n   n g  file1 txt file2 txt     filen txt

User · Answer

In vi hit     Then s Control-VControl-M  g   Control-V Control-M are obviously those keys  Don t spell it out

User · Answer

You found out you can also do this    line   tr  015  d

User · Answer

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

User · Answer

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    lt  gt            chomp  ln       chop  ln  if   ln    m  r            filter and write

User · Answer

M is carriage return  You can do this    str    s  r  g

User · Answer

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  lt  input file  gt  output file undef           lt  gt   s  r  ge  print

[perl] In Perl, how to remove ^M from a file?

Examples related to perl

Examples related to carriage-return

Examples related to hidden-characters