From mboxrd@z Thu Jan 1 00:00:00 1970 From: Charles Wilson To: "Walker, Gavin (CMIS, ANU - Acton)" Cc: "'cygwin@cygwin.com'" Subject: Re: Cygwin 1.3.2-1 Problems with CR/LF in Perl Date: Wed, 22 Aug 2001 08:33:00 -0000 Message-id: <3B83D0B6.9090705@ece.gatech.edu> References: <754324CDE8E4EE4498D8E0357D91368502EDFC@saab-bt.act.cmis.csiro.au> X-SW-Source: 2001-08/msg00979.html 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() { > # 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/