[Vienna-pm] Zeilenumbruch ersetzen

Fabio Valeri fabio.valeri at bluewin.ch
Sat Dec 6 03:55:08 PST 2008


Ich habe die kleine Änderung (binmode()) durchgeführt und nun klappt es. 
Verstanden habe ich es zwar nicht, aber nun kann ich weiterarbeiten.

Besten Dank für Eure Hilfe.

Gruss

Fabio

Wolfgang Laun schrieb:
> Josef Schmid hat recht, binmode ist auch noch notwendig.
>
> open( INPUT, "some.csv" );
> binmode( INPUT );
> $/ = "\r\n";
> while( my $row = <INPUT> ){
>   chomp($row);
>   $row =~ s/\n/xxx/g;
>   print "$row<tr>\n";
> }
>
>
>
> 2008/12/5 Fabio Valeri <fabio.valeri at bluewin.ch>
>
>     Hallo Karl-Heinz, Stefan, Josef,
>
>     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
>
>
>     $/ = "\r\n";
>     while (<INPUT>) {
>       chomp(my $row = $_);
>       $row =~ s/\n/xxx/g;
>       print OUTPUT "$row<tr>\n";
>     }
>
>     Als Output erhalte ich nun:
>
>     **********************************
>     dom1;extra1xxxz0001;sdf1xxxdom2;extra2xxxz0002;sdf2xxxdom3;extra3xxxz0002;sdf3<tr>
>     **********************************
>
>     D.h., es wird alles aneinandergereiht, obwohl Zeilenumbruch (\n)
>     vorhanden ist. Das ist doch seltsam.
>     Mein Ziel ist
>
>     *********************
>     dom1;extra1xxxz0001;sdf1
>     dom2;extra2xxxz0002;sdf2
>     dom3;extra3xxxz0002;sdf3
>     **********************
>     zu erhalten.
>
>     @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.
>
>     Besten Dank und Gruss
>
>     Fabio
>
>     _______________________________________________
>     Vienna-pm mailing list
>     Vienna-pm at pm.org <mailto:Vienna-pm at pm.org>
>     http://mail.pm.org/mailman/listinfo/vienna-pm
>
>



More information about the Vienna-pm mailing list