zeilenumbruch

[fredy]

hi,

ich verwende folgenden PERL-Code um Daten aus einer TEXTAREA auszulesen und in eine Textdatei zu schreiben.

open DB, ">./db/art.txt";
  $art = $c->param("art");
  print DB $art;
  close DB;

Nach dem 1x Speichern befinden sich nun 2 Zeilenumbrüche an der Stelle wo sich sonst nur einer befindet.

Wenn man nochmals Speichert bleibt das so (Dieses mal wurden die Zeilenumbrüche also nicht verdoppelt.)

Danke im Voraus
fredy

[Cheatah]

Hi,

ich verwende folgenden PERL-Code um Daten aus einer TEXTAREA auszulesen und in eine Textdatei zu schreiben.

open DB, ">./db/art.txt";
  $art = $c->param("art");

$art =~ s/\r/\n/g;

print DB $art;
  close DB;

Nur mal so ins Blaue geraten... ;-)

Cheatah

[fredy]

hi!

Der Ansatz war super!

$art =~ s/\r//g;

Ich denke das liegt daran, das ein Zeilenverschub unter
DOS/Windows aus 2 Zeichen besteht?

Grüße
fredy

Hi,

ich verwende folgenden PERL-Code um Daten aus einer TEXTAREA auszulesen und in eine Textdatei zu schreiben.

open DB, ">./db/art.txt";
  $art = $c->param("art");

$art =~ s/\r/\n/g;

print DB $art;
  close DB;

Nur mal so ins Blaue geraten... ;-)

Cheatah

[Cheatah]

Hi,

Der Ansatz war super!

$art =~ s/\r//g;

ah ja, oder so :-)

Ich denke das liegt daran, das ein Zeilenverschub unter
DOS/Windows aus 2 Zeichen besteht?

Ja, nehme ich auch an. Definitiv weiß ich es zwar nicht, aber die Anzeichen sprechen dafür :-)

Cheatah

[Michael Schröpl]

Was hältst Du davon,
1. mit "chomp" den eingelesenen Zeilenumbruch explizit zu entfernen und
2. mit print DB  ... "\n" selbst explizit wieder einen Zeilenumbruch abzuspeichern?

Soll sich doch Perl selbst damit befassen, aus wievielen Zeichen der Zeilenumbruch besteht ...