Should work.
Does work with 5.10.1 and 5.12.1:
$ perl -e'print "foo,bar,baz\r\n";' > myfile.csv $ perl -e' use strict; use warnings; use open IN => ":crlf"; while (<>) { die ("Carriage return in $ARGV") if (/\r/); } open (INPUT, "myfile.csv") or die ("Can'\''t open myfile.csv"); while (<INPUT>) { die("Carriage return in myfile.csv") if (/\r/); } print "ok\n"; ' myfile.csv ok
Are you sure there are no CR other than right before a LF?
if (/\r/) { require Data::Dumper; local $Data::Dumper::Useqq = 1; local $Data::Dumper::Terse = 1; local $Data::Dumper::Indent = 0; die ("Carriage return in myfile.csv " . Data::Dumper::Dumper( +$_)); }
In reply to Re: crlf layer working on diamond operator, but not filehandle reads
by ikegami
in thread crlf layer working on diamond operator, but not filehandle reads
by rebugger
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |