<!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>Też spróbowałem. Też nie działa :-(</p>
<p> </p>
<p>Ten staruszek, to nie ActivePerl, ale kompilat własny firmy.</p>
<p>Wyświetla Copyright 1987 - 2006,</p>
<p>więc choć wersja stara, pewnie z nowszymi dodatkami.</p>
<p> </p>
<p>Stanisław</p>
<p> </p>
<p>W dniu 2015-04-22 20:37, Piotr Fusik napisał(a):</p>
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px"><!-- html ignored --><!-- head ignored --><!-- meta ignored -->
<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 ignored -->
<p style="margin-top: 0; margin-bottom: 0;">Sent from my LG F3Q</p>
</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;"><strong>From: </strong>Stanislaw Romanski<!-- stasdatospl ignored --></p>
<p style="margin-top: 0; margin-bottom: 0;"><strong>Date: </strong>Wed, 04/22/2015 16:11</p>
<p style="margin-top: 0; margin-bottom: 0;"><strong>To: </strong>warszawa-pm@pm.org;</p>
<p style="margin-top: 0; margin-bottom: 0;"><strong>Subject:</strong>[Warszawa-pm] perl - STDOUT - Windows - niechciany CR</p>
<p style="margin-top: 0; margin-bottom: 0;"> </p>
<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>
<!-- html ignored --><br />
<pre>_______________________________________________
Warszawa-pm mailing list
<a href="mailto:Warszawa-pm@pm.org">Warszawa-pm@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/warszawa-pm">http://mail.pm.org/mailman/listinfo/warszawa-pm</a>
</pre>
</blockquote>
<p> </p>
<div> </div>
</body></html>