perl -i.bak -pe 'chomp; $_.="\r\n";'
[download]

My favorite switch is -l, and this is why:
perl -i.bak -ple 'BEGIN{$/="\n"}'
gets you from Unix to DOS (or should) and changing "\n" to "\r\n" gets you back.

Update: assuming you're always converting to the system you run the command on, that is--the -l flag gives you native line-endings.

Though of course if you're in MSDOS, you presumably need to fiddle with the quotes some.




---

If God had meant us to fly, he would *never* have give us the railroads.
    --Michael Flanders

print "Hello\r\nWorld\r\n";
[download]

However, if you are running Perl from Windows, then a simple "\n" will suffice.

Unfortunately, converting to and from Mac-style newlines isn't covered by this.

Don't forget to eventually throw the backups into the trash can:

rm *.can
del *.can
[download]

If you want to use wildcards with this command unders Windows, then put the following into a file called "atch.pm" under perl/site/lib: @ARGV= map { glob } @ARGV; then use a command like this: perl -Match -i.can -please *.ext

This message was sponsored by The World League For Cute But Useful Idioms.

Update: {grumble} ChemBoy just made me realize that this only works when run under Win32. Oh well, perl -i.can -pley/\\r//d should work even for Win32 files on a Mac and on Mac files under Unix and Win32, except that you should not double the \ under Win32 and I don't know whether you should on a Mac. Note that this solution also removes "\r"s from the middle of lines. We need to remove them from front of lines for converting between Win32 and Mac formats and from the ends of lines for Win32-to-Unix conversion.

What do you use to transfer the files from Linux to Windows? Most file transfer mechanisms will make this translation for you. For example, you can put FTP into ASCII mode.

Perl Training in the UK <http://www.iterative-software.com>

#! /usr/local/bin/perl -w
use IO::File;

while ($string = <STDIN>)
{
   chomp($string);
   STDOUT->print("$string\r\n");
}
[download]

I have a script, chmod +x, in ~/bin:

#!/usr/bin/perl -i -p

tr/\015//d;
[download]

and I run it like: removecarr.pl ugly_whoze_file Jeroen
"We are not alone"(FZ)

May I suggest that you use a proper text editor in windows. That way your text files are not stored with the windows new line rubbish on the end.

I use conText which I downloaded for free from the internet and which I can highly recommend (nothing can be too bad if it is free, but this is truely good ;)).

As to your question. I have a script loops through each line of files doing a sub for 012 and 015, replacing them with nothing. In that way you remove any newlines present. Then add an 'if' keying on $^0 eg if($^0 eq 'wnt'){..... to check the OS and add the suitable newline.

This is clunky but simple to write and quaranteed to work.

Hope that this helps.

"The significant problems we face in life can not be solved at the same level of thinking we were at when we created them." -Albert Einstein

See this snippet.

--ZZamboni