Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive: <http://sources.redhat.com/ml/cygwin/>
List-Post: <mailto:cygwin AT cygwin DOT com>
List-Help: <mailto:cygwin-help AT cygwin DOT com>, <http://sources.redhat.com/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
X-Authentication-Warning: slinky.cs.nyu.edu: pechtcha owned process doing -bs
Date: Tue, 30 Mar 2004 14:17:01 -0500 (EST)
From: Igor Pechtchanski <pechtcha AT cs DOT nyu DOT edu>
Reply-To: cygwin AT cygwin DOT com
To: Mike Spertus <mike DOT spertus AT veritas DOT com>
cc: cygwin AT cygwin DOT com
Subject: Re: Cygwin perl not understanding textmode
In-Reply-To: <4069B183.90902@veritas.com>
Message-ID: <Pine.GSO.4.56.0403301414590.1185@slinky.cs.nyu.edu>
References: <4069B183 DOT 90902 AT veritas DOT com>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
X-Scanned-By: MIMEDefang 2.39

On Tue, 30 Mar 2004, Mike Spertus wrote:

> I have installed Cygwin with DOS linebreaks (i.e., disks mounted in
> textmode). However, Cygwin perl doesn't seem to understand this as shown
> below. How do I tell Cygwin perl to respect textmode?:
>
> MPS AT MPS-2000 ~
> $ od -t x1 foo.txt
> 0000000 66 6f 6f 62 61 72 0d 0a 66 6f 6f 62 61 7a 0d 0a
> 0000020 66 6f 6f 62 61 74 0d 0a 0d 0a
> 0000032
>
> MPS AT MPS-2000 ~
> $ cat ~/foo.txt | perl -e 'while (<>) {print;}' >bar.txt
>
> MPS AT MPS-2000 ~
> $ od -t x1 bar.txt
> 0000000 66 6f 6f 62 61 72 0d 0d 0a 66 6f 6f 62 61 7a 0d
> 0000020 0d 0a 66 6f 6f 62 61 74 0d 0d 0a 0d 0d 0a
> 0000036
>
> MPS AT MPS-2000 ~
> $ mount
> C:\cygwin\bin on /usr/bin type system (textmode)
> C:\cygwin\lib on /usr/lib type system (textmode)
> C:\cygwin on / type system (textmode)
> c: on /cygdrive/c type user (textmode,noumount)
> g: on /cygdrive/g type user (textmode,noumount)
> r: on /cygdrive/r type user (textmode,noumount)
>
> Is this a bug? Any suggestions?
>
> Thanks,
> Mike

When you use pipes, you lose the mount mode information.  Try running

$ perl -e 'while (<>) {print;}' <~/foo.txt >bar.txt

instead.  For controlling the mode of pipes, read about the "(no)binmode"
option at <http://cygwin.com/cygwin-ug-net/using-cygwinenv.html>.
	Igor
-- 
				http://cs.nyu.edu/~pechtcha/
      |\      _,,,---,,_		pechtcha AT cs DOT nyu DOT edu
ZZZzz /,`.-'`'    -.  ;-;;,_		igor AT watson DOT ibm DOT com
     |,4-  ) )-,_. ,\ (  `'-'		Igor Pechtchanski, Ph.D.
    '---''(_/--'  `-'\_) fL	a.k.a JaguaR-R-R-r-r-r-.-.-.  Meow!

"I have since come to realize that being between your mentor and his route
to the bathroom is a major career booster."  -- Patrick Naughton

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