Betriebsblindheit :-(

[oesi50]

hallo Forum ;-)

hallo Christoph,

Konkret ist es irgendwas an der Konstruktion

print NEU "<td><textarea name="body" cols="80" rows="20">";
   @zeilen1 = split(/&lt;p&gt;/,$hidden_body);
   foreach $zeile1 (@zeilen1) {
      @zeilen = split(/&lt;br&gt;/,$zeile1);
      foreach $zeile (@zeilen) {
         print NEU "»» $zeile\n";
      }
   }

Da wird ein Zeilenumbruch ausgelassen.

die funktion split teilt deinen String so auf

x1|x2|x3||

('x1','x2,'x3',undef)

foreach gibt dann natürlich nur 3 Elemente

ich hoffe das gibt einen Denkanstoss.

PS. übrigens ist foreach Perl4 Syntax

mfg. oesi50