Mailing-List: contact cygwin-help@cygwin.com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe@cygwin.com>
List-Archive: <http://sourceware.org/ml/cygwin/>
List-Post: <mailto:cygwin@cygwin.com>
List-Help: <mailto:cygwin-help@cygwin.com>, <http://sourceware.org/ml/#faqs>
Sender: cygwin-owner@cygwin.com
Mail-Followup-To: cygwin@cygwin.com
Delivered-To: mailing list cygwin@cygwin.com
Date: Thu, 4 Nov 2004 16:26:08 -0500
From: Christopher Faylor <cgf-no-personal-reply-please@cygwin.com>
To: cygwin@cygwin.com
Subject: Re: Perl binmode problem on text mount
Message-ID: <20041104212608.GC16067@trixie.casa.cgf.cx>
Reply-To: cygwin@cygwin.com
Mail-Followup-To: cygwin@cygwin.com
References: <41897FF4.1080501@agilent.com> <418A9BF3.5010903@familiehaase.de>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <418A9BF3.5010903@familiehaase.de>
User-Agent: Mutt/1.4.1i

On Thu, Nov 04, 2004 at 10:15:31PM +0100, Gerrit P. Haase wrote:
>Earl Chew wrote:
>
>>This code used to work on Perl 5.6.1-2 on Cygwin 1.3.10.
>>
>>I've now moved to Perl 5.8.5-3 on Cygwin 1.5.11.
>>
>>Here is the Perl program:
>>
>>    binmode STDOUT;
>>    print "Hello\n";
>>
>>1. Output to file on text mount
>>
>>    perl foo.pl > foo.txt ; od -c foo.txt
>>
>>    0000000  H e l l o \r \n    # Perl 5.8.5-3 Cygwin 1.5.11
>>    0000000  H e l l o \n        # Perl 5.6.1-2 Cygwin 1.3.10
>>
>>2. Output to file via cat
>>
>>    perl foo.pl | cat > foo.txt ; od -c foo.txt
>>
>>    0000000  H e l l o \n        # Perl 5.8.5-3 Cygwin 1.5.11
>>    0000000  H e l l o \n        # Perl 5.6.1-2 Cygwin 1.3.10
>>
>>Has anyone else experienced the same issue?
>
>Actually it is not perl writing \r here:
>
>$ perl ./binmode.pl | od -c
>0000000   H   e   l   l   o  \n
>0000006

Pipes are binmode by default.

cgf

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

