Mail Archives: cygwin/2003/04/02/00:29:45
Hallo Rolf,
Am Dienstag, 1. April 2003 um 18:13 schriebst du:
> Gerrit P. Haase wrote:
>> Rolf schrieb:
>>>So, is this a cygwin perl problem? Or has the stock perl decided
>>>to only work with magic ENV variables?
>> I don't see the problem in the latest Perl (5.9.0) and I'm trying to
>> figure out how it can be fixed, in the meantime, please try to use the
>> magic PERLIO=perlio setting for your environment.
>> Gerrit
> Ok, using PERLIO=perlio, but I'm still having a problem (which worked in
> the previous version of Perl).
> TEST.PL:
> 1:#!/bin/perl
> 2:$/ = "\r\n";
> 3:
> 4:open( LOG, "<in" ) ||
> 5: die "Could not open log.\n";
> 6:binmode LOG, ":crlf";
> 7:
> 8:$in = <LOG>;
> 9:print $in;
> in (od -c in):
> 0000000 a b c \r \n d e f \r \n
> 0000012
> This is on a BINMODE mount. This script outputs "0000000 a b c
> \n d e f \n". If I go back to prev Perl, OR remove line#2 OR
> remove line#6, then it outputs "0000000 a b c \n"
1. No PERLIO setting:
$ od -c in
0000000 a b c \r \n a b c \r \n
0000012
$ ./crlf.pl 2>&1 | tee log.in
abc
abc
$ od -c log.in
0000000 a b c \r \n a b c \r \n
0000012
2. PERLIO=perlio:
$ export PERLIO=perlio
$ ./crlf.pl 2>&1 | tee log.in
abc
abc
$ od -c log.in
0000000 a b c \n a b c \n
0000010
3. PERLIO=raw:
$ export PERLIO=raw
$ ./crlf.pl 2>&1 | tee log.in
abc
abc
$ od -c log.in
0000000 a b c \n a b c \n
0000010
4. PERLIO=stdio:
$ export PERLIO=stdio
$ ./crlf.pl 2>&1 | tee log.in
abc
abc
$ od -c log.in
0000000 a b c \n a b c \n
0000010
5. PERLIO=:
$ export PERLIO=
$ ./crlf.pl 2>&1 | tee log.in
abc
abc
$ od -c log.in
0000000 a b c \r \n a b c \r \n
0000012
Gerrit
--
=^..^=
--
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/
- Raw text -