Re: perl reading ^M on text mounts

[Michael Lemke <lemkemch at schaeffler dot com>]

Dave <kilroyd <at> googlemail.com> writes:

> 
> Have you tried setting the environment variable PERLIO? I'm not a heavy 
> PERL user, but I tend to have
> 
> PERLIO=crlf
> 
> if I'm likely to see CRLFs.

Thanks, I tried that.  It indeed seems to remove the \r but independent of the 
mount mode of the disk.  I googled a bit and found an old thread about this 
where Max Bowsher sums it up in http://www.mail-archive.com/cygwin@cygwin.com/
msg22668.html  What a mess.  And no solution it seems.  The perl docs say a 
simple open X, file; opens the file in text mode.  So I expect the subsequent 
read (and chomp) to treat a \r according to mount mode of the file system.  
PERLIO=crlf changes it for all files.  Is it just me or do other people also 
feel this is broken?

Michael

> 
> > 
> > Lemke, Michael  SZ/HZA-IOM1 <lemkemch <at> schaeffler.com> writes:
> > 
> >>If I execute this perl script
> >>
> >>   de010597> cat x.pl
> >>   #!/usr/bin/perl
> >>   use strict;
> >>
> >>   open( HO, "<x.txt" );
> >>   while (<HO>) { print "$_"; }
> >>
> >>on a text mount with an input file that has CRLF line endings perl
> >>should treat this as a text file and strip the CR.  Only if I use
> >>binmode HO should I see the CR.  But it doesn't:
> >>
> >> de010597> ./x.pl | cat -A
> >>bla^M$
> >> de010597> cat -A x.txt
> >>bla^M$
> >>
> >>What am I missing here?
> >>
> >> de010597> pwd
> >>/d/jakarta-tomcat/awstats
> >> de010597> mount
> >>D:\PROGRA~1\cygwin\bin on /usr/bin type system (binmode)
> >>D:\PROGRA~1\cygwin\lib on /usr/lib type system (binmode)
> >>D:\PROGRA~1\cygwin on / type system (binmode)
> >>c: on /c type system (textmode,noumount)
> >>d: on /d type system (textmode,noumount)
> >>f: on /f type system (textmode,noumount)
> >> de010597> mount -m
> >>mount -f -s -b "D:/PROGRA~1/cygwin/bin" "/usr/bin"
> >>mount -f -s -b "D:/PROGRA~1/cygwin/lib" "/usr/lib"
> >>mount -f -s -b "D:/PROGRA~1/cygwin" "/"
> >>mount -s -t --change-cygdrive-prefix "/"
> >> de010597> uname -a
> >>CYGWIN_NT-5.2 de010597 1.5.18(0.132/4/2) 2005-07-02 20:30 i686 unknown
> >>unknown Cygwin
> >> de010597> perl -v
> >>
> >>This is perl, v5.8.7 built for cygwin-thread-multi-64int

x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x




--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/