in reply to How the perl converts LF into CRLF

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]


Replies are listed 'Best First'.
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]
      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]
[reply]
[d/l]

In Section Seekers of Perl Wisdom