Perl oneliner损坏了Windows中的文件（与回车有关的问题）

Question

I have a PostScript file, in which I want to change one line from:

%%Title: my abc

to

%%Title: your def

The following Perl oneliner did the trick in Ubuntu:

perl -p -ifoo.bak -e "s/%%Title:.+\n/%%Title: your def\n/" file.ps

but it corrupts the file in Windows (looks like it adds \\r\\n to every "line" or something like that).

I tried another approach, but still no luck in Windows:

perl -Mopen=OUT,:bytes -p -ifoo.bak -e "s/%%Title:.+\n/%%Title: your def\n/" file.ps

What is going on and how do I solve that problem? Thank you.

Answer 1

Remove the line break from pattern and replacement:

perl -p -ifoo.bak -e "s/%%Title:.+$/%%Title: your def/" file.ps

or capture and use it in replacement:

perl -p -ifoo.bak -e "s/%%Title:.+(\R)/%%Title: your def$1/" file.ps

\\R stands for any kind of line break.

If you want to transform whatever the actual line break is to unix linebreak (ie. \\n ):

perl -p -ifoo.bak -e "s/%%Title:.+\R/%%Title: your def\n/" file.ps

Answer 2

In windows end of line are \\r\\n and not \\n like in unix so

perl -p -ifoo.bak -e "s/%%Title:.+\r\n/%%Title: your def\r\n/" file.ps

may works