On Sat, Dec 6, 2008 at 12:55 PM, Fabio Valeri <span dir="ltr"><fabio.valeri@bluewin.ch></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> <br>In perlfunc wird zu binmode() erklärt, dass DOS&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 <> 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, "some.csv" );<br>
binmode( INPUT );<br>
$/ = "\r\n";<br>
while( my $row = <INPUT> ){<br>
chomp($row);<br>
$row =~ s/\n/xxx/g;<br>
print "$row<tr>\n";<br>
}<br>
<br></blockquote><br>
</blockquote></div><br>