perl - remove last character off each line in file

[Ratzie]

How do I remove the last character off each line ( ^M ) in a file using perl

[H.Merijn Brand (procura]

perl -e's/.$//' file
perl -le's/\s+$//' file

tr '\r' ''
Enjoy, Have FUN! H.Merijn

[James R. Ferguson · Accepted solution]

Hi:

I think that our wizard (Merijn) hastely forgot to arm output:

# perl -pe 's/.$//' file

...or if you want to update the file "inplace" (and optionally keep a backup copy):

# perl -pi.old -e 's/.$//' file

...and thus you will have "file.old" as the pre-filtered copy.

For DOS files with not only the carriage-retur (^M) but also an end-of-file "^Z", I use a variation like this:

# perl -pe 's/\r\n/\n/;s/\032//' file

Regards!

...JRF...

[Sean Dale]

You could also do one of the following:

use dos2ux to create a new file with the ^M removed

or use vi:

:1,$s/[ctrl-V ctrl-M]//g

where you see [ctrl-v ctrl-m] press control v then control m

the command will remove the ^M in the entire file

[Ratzie]

Appreciate the help