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

[Stanislaw Romanski]

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;

 
-------------- następna część ---------
Załącznik HTML został usunięty...
URL:  <http://mail.pm.org/pipermail/warszawa-pm/attachments/20150422/44f13c9c/attachment.html>