On Tue, 27 May 2003, Tom Rodman wrote:
> --------
>
> 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.
> Tom
Tom,
Try
$ printf "\r\n\n"|PERLIO=perlio perl -pe '1;'|od -a
(see <http://cygwin.com/ml/cygwin/2003-03/msg01093.html>).
Igor
--
http://cs.nyu.edu/~pechtcha/
|\ _,,,---,,_ [EMAIL PROTECTED]
ZZZzz /,`.-'`' -. ;-;;,_ [EMAIL PROTECTED]
|,4- ) )-,_. ,\ ( `'-' Igor Pechtchanski
'---''(_/--' `-'\_) fL a.k.a JaguaR-R-R-r-r-r-.-.-. Meow!
"I have since come to realize that being between your mentor and his route
to the bathroom is a major career booster." -- Patrick Naughton
--
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/
