How the perl converts LF into CRLF

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

Replies are listed 'Best First'.
Re: How the perl converts LF into CRLF by sh1tn (Priest) on Jun 23, 2006 at 16:34 UTC
UNIX has '\n' end of line; Windows family has '\r\n' instead; Mac OS has '\r'; In perl you can convert (simulate dos2unix and unix2dos) like this: `# unix2dos: # perl -i.org -pe 's/\n/\r\n/' filename # dos2unix: # perl -i.org -pe 's/\r\n/\n/' filename` [download]	[reply] [d/l]
Re^2: How the perl converts LF into CRLF by ikegami (Patriarch) on Jun 23, 2006 at 17:22 UTC
Those won't work on a Windows box because `binmode` wasn't used.	[reply] [d/l]
Re^3: How the perl converts LF into CRLF by schnell18 (Novice) on Jul 03, 2009 at 08:44 UTC
You are right. Below is the dos2unix equivalent works on Windows `#!/usr/bin/perl -w use strict; use File::Temp qw(tempfile); use File::Copy; dos_to_unix($ARGV[1]); sub dos_to_unix { my($file) = @_; my($dst, $src); my (undef, $tmpfile) = tempfile(); copy($file, $tmpfile) or die "Can't copy $file to $tmpfile due to: $!\n"; open($dst, ">$file") or die "Can't open $file for write due to: $!\n"; open($src, "<$tmpfile") or die "Can't open $tmpfile for read due to: $!\n"; binmode($dst); while(<$src>) { chomp; print $dst "$_\n"; } close($dst); close($src); }` [download]	[reply] [d/l]
Re^4: How the perl converts LF into CRLF by Anonymous Monk on Jul 03, 2009 at 09:27 UTC
Re: How the perl converts LF into CRLF by derby (Abbot) on Jun 23, 2006 at 16:34 UTC
How are you sending it? If you use Net::FTP in ascii mode, the translastion will be done auto-magically. -derby	[reply]
Re^2: How the perl converts LF into CRLF by perladdict (Chaplain) on Jun 23, 2006 at 16:49 UTC
Hi Derby, thanks for suggetion,i am using Net::cmd in my script,in which i included senddata(DATA) method.	[reply]
Re^3: How the perl converts LF into CRLF by derby (Abbot) on Jun 23, 2006 at 17:10 UTC
Hmmm ... never used Net::Cmd directly. For Net::FTP the translation is not done in the client but on the server side. What type of server are you connecting to? FTP? Home grown? -derby Update: That is for all ftp ... not just Net::FTP, the translation is done in the server.	[reply]
Re: How the perl converts LF into CRLF by Joost (Canon) on Jun 23, 2006 at 16:36 UTC
How are you sending the file? Some mechanisms (like ASCII FTP transfers) translate line-ends automatically. Anyway, check out binmode and the open pragma "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply]
Re: How the perl converts LF into CRLF by xdg (Monsignor) on Jun 23, 2006 at 16:43 UTC
If you don't want to do it manually, but want to understand how Perl does it, read perlport and perlio. One simple option is to call `binmode` on the filehandle on the win32 machine to disable automatic CR/LF translation and then everything will stay with LF for line endings. (Note this will cause issues for UTF-8, so if you're worried about that, you will need to read about the various IO layers described in perlio.) -xdg Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.	[reply] [d/l]
Re: How the perl converts LF into CRLF by jdtoronto (Prior) on Jun 23, 2006 at 19:54 UTC
Did you read the POD for the Net::cmd module? If you had you would find this: `datasend ( DATA ) Send data to the remote server, converting LF to CRLF. Any line st +arting with a '.' will be prefixed with another '.'. DATA may be an a +rray or a reference to an array.` [download] jdtoronto	[reply] [d/l]