Mailing-List: contact cygwin-help AT sourceware DOT cygnus DOT com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe AT sources DOT redhat DOT com>
List-Archive: <http://sources.redhat.com/ml/cygwin/>
List-Post: <mailto:cygwin AT sources DOT redhat DOT com>
List-Help: <mailto:cygwin-help AT sources DOT redhat DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender: cygwin-owner AT sources DOT redhat DOT com
Delivered-To: mailing list cygwin AT sources DOT redhat DOT com
Message-ID: <3B83D0B6.9090705@ece.gatech.edu>
Date: Wed, 22 Aug 2001 11:33:10 -0400
From: Charles Wilson <cwilson AT ece DOT gatech DOT edu>
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.2) Gecko/20010713
X-Accept-Language: en-us
MIME-Version: 1.0
To: "Walker, Gavin (CMIS, ANU - Acton)" <Gavin DOT Walker AT cmis DOT csiro DOT au>
CC: "'cygwin AT cygwin DOT com'" <cygwin AT cygwin DOT com>
Subject: Re: Cygwin 1.3.2-1 Problems with CR/LF in Perl
References: <754324CDE8E4EE4498D8E0357D91368502EDFC AT saab-bt DOT act DOT cmis DOT csiro DOT au>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit

Go to the cygwin-apps mailing list archives and look at the last few 
days.  Hopefully there is a new perl coming soon that addresses your 
problems; it should be available as a test version in the next few days. 
  Once it is, PLEASE test it, Gavin.  None of "us" use text mounts...

--Chuck


Walker, Gavin (CMIS, ANU - Acton) wrote:

> Hi,
>    I've been trying to write a perl script to edit a text file.  The cut
> down version of it is a little further down.  It's pretty simple, read a
> file in and dump it out.  My problem is that successive runs creates a
> string of CR on each
> line.  Every time I run it another CR is added.  To get rid of them I have
> to use chomp, then chop and append my own \n.  Perl appears to be reading
> the CR/LF characters separately and then out as CR/CR/LF.  This is supposed
> to work on unix as well so I can't go chopping unnecessarily.  Running the
> same program under DOS (probably using windows' perl) doesn't cause any
> problems.  Perl version is 5.6.1 for cygwin.  On installation I told cygwin
> to use Dos text format (cvs handles the dos/unix interchange).
> 
> Gavin Walker
> Canberra, Australia
> 
> #!perl -w
> use strict;
> 
> rename("file2","file1");
> open(F1,"file1");
> open(F2,">file2");
> while(<F1>) {
>     # have to use chomp; chop; print F2 $_ . "\n"; to get it to work
>     print F2;
> }
> close(F1);
> close(F2);




--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Bug reporting:         http://cygwin.com/bugs.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/