Inhalt einer Textarea in eine Datei speichern

[RedSnake]

Hallo,

ich schreibe gerade eine Rezeptdatenbank. Leider habe ich eine kleiner Problem.

Hier ist mein Quelltext:

sub cocktail_zubereitung_save {

$id_cocktail = param("id_cocktail");
  $zubereitung = param("zubereitung");

print ("$zubereitung");

#chomp ($zubereitung);

open(DATA, ">./database/zubereitung/$id_cocktail.txt");# || die "kann $data nicht lesen!\n";
 print DATA ($zubereitung);
 close (DATA);

print p("Daten gesichert");

}

sub cocktail_zubereitung {
 print p("Zubereitung");
 $id_cocktail = param("id_cocktail");

open(DATA, "<./database/zubereitung/$id_cocktail.txt") || die "kann $data nicht lesen!\n";
 @datensatz = <DATA>;
 close (DATA);

print hr, start_form;
 print p("<textarea rows="10" cols="50" name="zubereitung">@datensatz</textarea>");

print ("<INPUT TYPE="hidden" NAME="id_cocktail" value="$id_cocktail">");
 print ("<INPUT TYPE="hidden" NAME="action" value="cocktail_zubereitung_save">");
 print submit("Zubereitung sichern");
 print end_form;
}

Wenn ich die Sub cocktail_zubereitung aufrufe, dann sehe ich textarea-Feld zwar meine Daten, aber ab der 2. Zeile ist immer ein Lerrzeichen, welches da nicht hingehört.

Habt ihr eine Ahnung warum und was man dagegen machen kann?

RedSnake