This is the mail archive of the
cygwin
mailing list for the Cygwin project.
Re: perl reading ^M on text mounts
- From: "Lemke, Michael SZ/HZA-IOM1" <lemkemch at schaeffler dot com>
- To: <cygwin at cygwin dot com>
- Date: Fri, 21 Apr 2006 17:47:15 +0200
- Subject: Re: perl reading ^M on text mounts
Considering the usual speed of answers in this group and the persistent
silence
on this one may I ask again? Perl doesn't seem to deal well with CRLF
text
files as demonstrated below. Is that a known problem, any fix coming or
am I
missing something?
Thanks for any insight,
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
>
> 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/