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><br><br><div class="gmail_quote">2008/12/5 Fabio Valeri <span dir="ltr"><fabio.valeri@bluewin.ch></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Hallo Karl-Heinz, Stefan, Josef,<br>
<br>
Besten Dank an Euch alle für die prompte Antwort. Das (\n statt "\n") war ein grober Fehler von mir, ich hatte es einfach übersehen. Nun habe ich die folgende Version versucht<div class="Ih2E3d"><br>
<br>
$/ = "\r\n";<br>
while (<INPUT>) {<br>
chomp(my $row = $_);<br>
$row =~ s/\n/xxx/g;<br></div>
print OUTPUT "$row<tr>\n";<br>
}<br>
<br>
Als Output erhalte ich nun:<br>
<br>
**********************************<br>
dom1;extra1xxxz0001;sdf1xxxdom2;extra2xxxz0002;sdf2xxxdom3;extra3xxxz0002;sdf3<tr><br>
**********************************<br>
<br>
D.h., es wird alles aneinandergereiht, obwohl Zeilenumbruch (\n) vorhanden ist. Das ist doch seltsam.<br>
Mein Ziel ist<div class="Ih2E3d"><br>
*********************<br>
dom1;extra1xxxz0001;sdf1<br>
dom2;extra2xxxz0002;sdf2<br>
dom3;extra3xxxz0002;sdf3<br>
**********************<br></div>
zu erhalten.<br>
<br>
@Josef: Ich würde gerne Module verwenden, aber mir scheint das nicht so trivial zu sein. Sobald ich mehr Zeit habe, werde ich mal diese Alternvative versuchen.<br>
<br>
Besten Dank und Gruss<br><font color="#888888">
<br>
Fabio</font><div><div></div><div class="Wj3C7c"><br>
_______________________________________________<br>
Vienna-pm mailing list<br>
<a href="mailto:Vienna-pm@pm.org" target="_blank">Vienna-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/vienna-pm" target="_blank">http://mail.pm.org/mailman/listinfo/vienna-pm</a></div></div></blockquote></div><br>