<html>
<body style='font-size: 10pt; font-family: Verdana,Geneva,sans-serif'>
<div style="font-size:10pt;"><p style="margin-top:0;margin-bottom:0;">Czy ten staruszek to ActivePerl?</p><p style="margin-top:0;margin-bottom:0;"> </p><p style="margin-top:0;margin-bottom:0;">Spróbowałbym:</p><p style="margin-top:0;margin-bottom:0;">use open qw(:std :utf8);</p><p style="margin-top:0;margin-bottom:0;"> </p><div><signature_tag><p style="margin-top:0;margin-bottom:0;">Sent from my LG F3Q</p></signature_tag></div><p style="margin-top:0;margin-bottom:0;"> </p><p style="margin-top:0;margin-bottom:0;">------ Original message------</p> <p style="margin-top:0;margin-bottom:0;"><b>From: </b>Stanislaw Romanski<stas@datos.pl></p><p style="margin-top:0;margin-bottom:0;"><b>Date: </b>Wed, 04/22/2015 16:11</p><p style="margin-top:0;margin-bottom:0;"><b>To: </b>warszawa-pm@pm.org;</p><p style="margin-top:0;margin-bottom:0;"><b>Subject:</b>[Warszawa-pm] perl - STDOUT - Windows - niechciany CR</p><p style="margin-top:0;margin-bottom:0;"> </p><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<p>Cześć,</p>
<p>Czy jest spotkanie jutro ? I gdzie ?</p>
<p>Stanisław</p>
<p>---------</p>
<p>I mam takie pytanie merytoryczne:</p>
<p>Jak pisać LF bez CR do STDOUT w Windows,</p>
<p>w perlu 5.8.8. ?</p>
<p>Skrypt jak poniżej,</p>
<p> - perl 5.20, Windows 8 - działa jak powinien</p>
<p> - perl 5.8.8, Windows 7 - w pliku 'from_OUTFILE' dobija CR przed LF</p>
<p>Czemu ?</p>
<p>I jak zmusić staruszka, by do STDOUT pisał binarnie ?</p>
<p>-----------------------------------------------------------------</p>
<p>#!perl -w<br /># test624.pl<br />#<br /># Please run it<br /># perl test624.pl > from_STDOUT<br /># ---------------------------------<br /><br />use strict;<br /><br />my $text = "abc\ndef\n";<br />open (OUTFILE, '>', 'from_OUTFILE');<br />binmode OUTFILE;<br />binmode STDOUT;<br />print OUTFILE $text;<br />print STDOUT $text;<br /><br /></p>
<p><br /> </p>
<div> </div>
</div></body>
</html>