[Vienna-pm] Zeilenumbruch ersetzen

Wolfgang Laun wolfgang.laun at gmail.com
Sat Dec 6 02:24:21 PST 2008


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
> http://mail.pm.org/mailman/listinfo/vienna-pm
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/vienna-pm/attachments/20081206/a0617c2d/attachment.html>


More information about the Vienna-pm mailing list