topic perl - remove last character off each line in file in Operating System - HP-UX

perl - remove last character off each line in file

Ratzie — Fri, 01 Sep 2006 08:43:18 GMT

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

Re: perl - remove last character off each line in file

H.Merijn Brand (procura — Fri, 01 Sep 2006 08:46:27 GMT

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

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

Re: perl - remove last character off each line in file

James R. Ferguson — Fri, 01 Sep 2006 09:53:22 GMT

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...

Re: perl - remove last character off each line in file

Sean Dale — Fri, 01 Sep 2006 11:18:41 GMT

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

Re: perl - remove last character off each line in file

Ratzie — Fri, 01 Sep 2006 13:08:20 GMT

Appreciate the help