X-Spam-Check-By: sourceware.org
Content-class: urn:content-classes:message
MIME-Version: 1.0
Content-Type: text/plain; 	charset="us-ascii"
Subject: perl reading ^M on text mounts
Date: Wed, 12 Apr 2006 18:31:51 +0200
Message-ID: <3E1FDC960FE04A4E96892B9023622A4E068EFF9A@de010369.de.ina.com>
From: "Lemke, Michael  SZ/HZA-IOM1" <lemkemch AT schaeffler DOT com>
To: <cygwin AT cygwin DOT com>
Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive: <http://sourceware.org/ml/cygwin/>
List-Post: <mailto:cygwin AT cygwin DOT com>
List-Help: <mailto:cygwin-help AT cygwin DOT com>, <http://sourceware.org/ml/#faqs>
Sender: cygwin-owner AT cygwin DOT com
Mail-Followup-To: cygwin AT cygwin DOT com
Delivered-To: mailing list cygwin AT cygwin DOT com
Content-Transfer-Encoding: 8bit
X-MIME-Autoconverted: from quoted-printable to 8bit by delorie.com id k3CGW4No020204

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

    

Michael

--
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/