<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html><body style='font-size: 10pt; font-family: Verdana,Geneva,sans-serif'>
<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>
</body></html>