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
Message-ID:	<418A8B9D.7040305@agilent.com>
Date:	Thu, 04 Nov 2004 12:05:49 -0800
From:	Earl Chew <earl_chew AT agilent DOT com>
User-Agent:	Mozilla Thunderbird 0.9 (Windows/20041103)
MIME-Version:	1.0
To:	cygwin AT cygwin DOT com
Subject:	Re: Perl binmode problem on text mount
References:	<418A779A DOT 6080808 AT agilent DOT com> <NUTMEGmZ5fgSdmlm1DT000004d6 AT NUTMEG DOT CAM DOT ARTIMI DOT COM> <20041104190817 DOT GA4244 AT efn DOT org>
X-OriginalArrivalTime:	04 Nov 2004 20:05:54.0914 (UTC) FILETIME=[B110B420:01C4C2A9]

Yitzchak Scott-Thoennes wrote:
 > So check the length.

Good idea:

	binmode STDOUT;
	print "Hello\n";

perl foo.pl > foo.txt ; od -c foo.txt ; ls -l foo.txt

	0000000  H e l l o \r \n	# Perl 5.8.5-3 Cygwin 1.5.11
	-rw-r--r--  1 earl  mkpasswd   7 Nov 4 11:10 foo.txt

	0000000  H e l l o \n		# Perl 5.6.1-2 Cygwin 1.3.10
	-rw-r--r--  1 earl  mkpasswd   6 Nov 4 11:14 foo.txt

	0000000  H e l l o \n		# Perl 5.6.1-2 Cygwin 1.5.11
	-rw-r--r--  1 earl  mkpasswd   6 Nov 4 11:14 foo.txt

Earl


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

- Raw text -