#! /usr/bin/perl
use warnings;
use strict;

open my $IN,  '<:raw:crlf', shift or die $!;
open my $OUT, '>:raw',      shift or die $!;
print {$OUT} $_ while <$IN>;
[download]

:raw turns off the CRLF automatic translation that is the default on MSWin (so the input doesn't really need the layers to be specified).

Call as win2nix input.txt output.txt.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

I just found my problem, thanks in large part to your code. I had binmode attached to the initial (IN) file handle, but did not have it attached to the OUT handle. Adding "binmode OUT;" allows my original code to work. Thanks for the help!

That worked, so thanks. But now I'm trying to figure out why my code didn't work earlier. I had binmode turned on, and I thought it defaulted to ":raw", and indeed that's what allowed me to get the Macintosh CR to show up solo at the end of each line. I did try to explicitly add ":raw" to the end, but that didn't help.

Have you tried binmoding the OUT, too?

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

You should use 3 arg open FILEHANDLE,MODE,EXPR. I tried out the code and it does work for me.

>> I'm coding in Windows (Windows 10) and trying to change a Windows created text file that ends in CRLF to just LF, so that I can upload the file and process it on a Unix-based site.

If you are running the script in Windows, it will happen since when you open for write (without binmode or :raw or :unix), Perl will perform '\n' to (Windows) platform '\r\n'.

I wrote File::Edit::Portable for things like this, particularly when opening files on systems where you may not have any idea on what the endings are:

use warnings;
use strict;

use File::Edit::Portable;

my $rw = File::Edit::Portable->new;

my $file = 'scrap.txt';

# show what endings the file has currently

print $rw->recsep($file, 'hex') . "\n";

my @contents = $rw->read('scrap.txt');

# rewrite the file with the desired record separator

$rw->write(
    contents => \@contents,
    recsep => "\n"
);

# check to see if it took
print $rw->recsep($file, 'hex') . "\n";
[download]

Output:

\0d\0a  # before (\r\n)
\0a     # after  (\n)
[download]

If you've got vi/vim, simply open the file, then:

:set ff=unix
[download]

> one liners havent worked..

strange: they always work! see The ultimate guide to Windows and Unix file line ending conversion in Perl by David Farrell

(On windows) By default Perl changes the value of “\n” to CRLF. This m
+eans that the regex match: “/\015\012/” will fail on Windows as Perl 
+is actually running: “/\015\015\012/“. Regexes using meta-characters 
+and hex codes (”/\r\n/” and “/\x0d\x0a/“) fail for the same reason.

...

perl -pe "binmode(STDOUT);s/\R/\012/" /path/to/file > /path/to/new/fil
+e
[download]

L*

PS see also newline gory details by afoken

I'm quite sure that it "worked" in the sense of doing what I told it to do, but didn't work in the sense that I didn't get the expected output ...

or yum or apt-get etc

>perl -pe"BEGIN{open STDOUT, '>:unix', 'unix_text.txt'}" win_text.txt
[download]

I actually made this post and thought I was logged in, but obviously got logged out