[Warszawa-pm] perl - STDOUT - Windows - niechciany CR

[Piotr Fusik]

> Mi się wydaje, że zamiast "\n" trzeba pisać "\x0a",
> bo to nie jest to samo np. pod Windows.

To jest to samo.
Translacja "\n" na "\r\n" odbywa się podczas zapisu i nie robi jej sam 
Windows, lecz perl lub biblioteka C.

Rozumiem, że użycie innego perla lub:
perl test624.pl | dos2unix > from_STDOUT
nie wchodzi w grę?

Spróbuj jeszcze:
C:\>set PERLIO=perlio
C:\>perl test624.pl > from_STDOUT

i "raw", "win32" w miejsce "perlio". Jeśli któreś zadziała, będziemy 
próbowali ustawić z samego skryptu.

Piotr

Dnia 2015-04-23 02:27 Stanislaw Romanski napisał(a):

> 
>
>Cześć, 
>
>Też spróbowałem. Też nie działa :-( 
>
>Ten staruszek, to nie ActivePerl, ale kompilat własny firmy. 
>
>Wyświetla Copyright 1987 - 2006, 
>
>więc choć wersja stara, pewnie z nowszymi dodatkami. 
>
>Stanisław 
>
>W dniu 2015-04-22 20:37, Piotr Fusik napisał(a): 
>
>> Czy ten staruszek to ActivePerl? 
>> 
>> Spróbowałbym: 
>> 
>> use open qw(:std :utf8); 
>> 
>> Sent from my LG F3Q 
>> 
>> ------ Original message------ 
>> 
>> FROM: Stanislaw Romanski 
>> 
>> DATE: Wed, 04/22/2015 16:11 
>> 
>> TO: warszawa-pm w pm.org; 
>> 
>> SUBJECT:[Warszawa-pm] perl - STDOUT - Windows - niechciany CR 
>> 
>> Cześć, 
>> 
>> Czy jest spotkanie jutro ? I gdzie ? 
>> 
>> Stanisław 
>> 
>> --------- 
>> 
>> I mam takie pytanie merytoryczne: 
>> 
>> Jak pisać LF bez CR do STDOUT w Windows, 
>> 
>> w perlu 5.8.8. ? 
>> 
>> Skrypt jak poniżej, 
>> 
>> - perl 5.20, Windows 8 - działa jak powinien 
>> 
>> - perl 5.8.8, Windows 7 - w pliku 'from_OUTFILE' dobija CR przed LF 
>> 
>> Czemu ? 
>> 
>> I jak zmusić staruszka, by do STDOUT pisał binarnie ? 
>> 
>> ----------------------------------------------------------------- 
>> 
>> #!perl -w
>> # test624.pl
>> #
>> # Please run it
>> # perl test624.pl > from_STDOUT
>> # ---------------------------------
>> 
>> use strict;
>> 
>> my $text = "abcndefn";
>> open (OUTFILE, '>', 'from_OUTFILE');
>> binmode OUTFILE;
>> binmode STDOUT;
>> print OUTFILE $text;
>> print STDOUT $text;
>> 
>> _______________________________________________
>> Warszawa-pm mailing list
>> Warszawa-pm w pm.org
>> http://mail.pm.org/mailman/listinfo/warszawa-pm [1]
>
> 
>
>Links:
>------
>[1] http://mail.pm.org/mailman/listinfo/warszawa-pm
>