delorie.com/archives/browse.cgi   search  
Mail Archives: cygwin/2003/05/27/17:53:35

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
Date: Tue, 27 May 2003 16:53:52 -0500
Message-Id: <200305272153.h4RLrqOu007681@tigris.pounder.sol.net>
X-Authentication-Warning: tigris.pounder.sol.net: rodmant set sender to nicebounce AT trodman DOT com using -f
To: cygwin AT cygwin DOT com
References: <200305271754 DOT h4RHsXTK006079 AT tigris DOT pounder DOT sol DOT net>
X-note: 1G0!G/usr/sbin/sendmail -v -t -f"nicebounce AT trodman DOT com" # less traceable, bypasses MUA
X-note: -t => determine receipients from STDIN/headers
From: nicebounce AT trodman DOT com (Tom Rodman)
X-note: "From:" if gone is usually added by MUA; best etiquette: define own From:
X-note: if you define "From:" even your bogus def is always honored
Subject: binmode() workaround; non ":raw" default- is this a bug or by design?
Mime-Version: 1.0

--------

to review.. the problem (UNIX style lines converted to DOS):
--v-v------------------C-U-T---H-E-R-E-------------------------v-v--
bash-2.05b$ printf "\r\n\n"|perl -pe '1;'|od -a
0000000  cr  nl  cr  nl
0000004

work around:
--v-v------------------C-U-T---H-E-R-E-------------------------v-v--
bash-2.05b$ printf "\r\n\n"|perl -pe '
  BEGIN {
    binmode (\*STDIN, q{:raw});
    binmode (\*STDOUT,q{:raw});
      # would "binmode (STDOUT,q{:raw }); be as good?
  }
  1;' | od -a
0000000  cr  nl  nl
0000003
bash-2.05b$ perl -v|grep 'This is';uname -r
This is perl, v5.8.0 built for cygwin-multi-64int
1.3.22(0.78/3/2)
<snipped>
--^-^------------------C-U-T---H-E-R-E-------------------------^-^-- 

Comments please.

--
thanks/regards,
Tom
# run below to get my address:
perl -e 'print unpack("u", "\.\=\$\!T\<F\]D\;6\%N\+F\-O\;0H\`");' 


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


  webmaster     delorie software   privacy  
  Copyright © 2019   by DJ Delorie     Updated Jul 2019