control character at top of file

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

How can I remove the control character '^M' at the beginning of a file? The '^M' is the only character at the top of the file. I want to delete the line that contains this topmost '^M' without removing other '^M's in the file. Also, I do not want to replace the '^M' with a blank line just delete the whole line. thanks.

Comment on control character at top of file

Replies are listed 'Best First'.
Re: control character at top of file by tachyon (Chancellor) on Nov 01, 2002 at 00:32 UTC
perlman:perlfaq5 - How do I change one line in a file/delete a line in a file/insert a line in the middle of a file/append to the beginning of a file? There are of course one liners..... `# just delete the first char if it is ^M perl -pi.bak -e "$i++ \|\| s/^\r//" <filenames> # delete the entire first line if it starts with ^M perl -pi.bak -e "$i++ \|\| s/^\r.\n//" <filenames>` [download] PS use ' not " on nix. Too much time on Win2K sigh cheers tachyon s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print	[reply] [d/l]

Replies are listed 'Best First'.

Re: control character at top of file
by tachyon (Chancellor) on Nov 01, 2002 at 00:32 UTC

perlman:perlfaq5 - How do I change one line in a file/delete a line in a file/insert a line in the middle of a file/append to the beginning of a file?

There are of course one liners.....

# just delete the first char if it is ^M
perl -pi.bak -e "$i++ || s/^\r//" <filenames>

# delete the entire first line if it starts with ^M
perl -pi.bak -e "$i++ || s/^\r.*\n//" <filenames>
[download]

PS use ' not " on *nix. Too much time on Win2K sigh

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[reply]
[d/l]