On Sat, Dec 6, 2008 at 12:55 PM, Fabio Valeri <span dir="ltr">&lt;fabio.valeri@bluewin.ch&gt;</span> wrote:<br><div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Ich habe die kleine Änderung (binmode()) durchgeführt und nun klappt es. Verstanden habe ich es zwar nicht, </blockquote><div>&nbsp;<br>In perlfunc wird zu binmode() erklärt, dass DOS&amp;Co \r\n als Zeilenbegrenzung im File stehen haben, was aber von der I/O-Library zur Herstellung der Portabilität für Perl-Programme (wie auch in C und sonstwo) in \n umgewandelt wird. Ergo ist ein sonstiges \n aus dem File dann programmintern nicht mehr von einem solchen Umwandlungsergebnis zu unterscheiden. <br>
<br>Durch binmode() wird die o.a. Umwandlung unterdrückt, wonach aber die explizite Angabe von \r\n im Verbund mit dem Operator &lt;&gt; trotzdem eine Verarbeitung a la Text-File ermöglicht.<br><br><br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br>
<br>
Besten Dank für Eure Hilfe.<br>
<br>
Gruss<br>
<br>
Fabio<br>
<br>
Wolfgang Laun schrieb:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Josef Schmid hat recht, binmode ist auch noch notwendig.<br>
<br>
open( INPUT, &quot;some.csv&quot; );<br>
binmode( INPUT );<br>
$/ = &quot;\r\n&quot;;<br>
while( my $row = &lt;INPUT&gt; ){<br>
 &nbsp;chomp($row);<br>
 &nbsp;$row =~ s/\n/xxx/g;<br>
 &nbsp;print &quot;$row&lt;tr&gt;\n&quot;;<br>
}<br>
<br></blockquote><br>
</blockquote></div><br>