Formulardaten auswerten mit param()

LaZy-L

Beim auswerten der Formulardaten mit der param() funktion habe ich ein problem.
sagen wir ich speichere ein den inhalt eines formularfeldes auf folgende art in einem skalar:

Zitat:

my $text = $cgi->param('text');

aber der text der in das formularfeld, sagen wir mal ein textarea eingegeben wurde, sieht folgendermaßen aus:

Zitat:

Lieber xxxxx,
alles gute zum geburtstag.

dann enthält das skalar $text nur folgenden wert:

Zitat:

Lieber xxxxx,

da das return nicht mit übergeben wird!
kann man das irgendwie umgehen??
also, dass ich wenn ich den textarea inhalt später wieder ausgeben will der gesamte text vorhanden ist?

LaZy-L

hab die lösung schon selbst gefunden.
ich lese die formulardaten nun nicht mehr mit param() ein sondern mit read(). Das hat mich vorerst zu der Schwierigkeit gebracht, dass ich die gesendeten Daten nun selbst entwirren musste, doch ich habs geschafft schaut euch an wie:

Zitat:

read(STDIN, my $Daten, $ENV{CONTENT_LENGTH});

$Daten =~ /name\=(.*)\&mail\=(.*)\&text\=(.*)/;
my @Sonderteile;

my @Daten = ($1, $2, $3);
my $typ;
my $dat="";

foreach $dat (@Daten) {
my @Absatz = split(/\%0D\%0A/,$dat);
$dat="";

foreach $typ (@Absatz) {
if(index($typ,"\%")==-1) {

}
else {
@Sonderteile = split(/\%/,$typ);
#print "<p>$typ\n";
$typ="";
my $Sonderteil="";
my $zahler=0;

foreach $Sonderteil (@Sonderteile) {
#print "$Sonderteil</p>\n";
if($zahler==0) {
$typ = $typ.$Sonderteil;
$zahler++;
}
else {
my $Sonderwert = substr($Sonderteil, 0, 2);
my $Sonderzeichen = chr(hex($Sonderwert));
$Sonderteil =~ s/$Sonderwert/$Sonderzeichen/g;

$typ = $typ.$Sonderteil;
$zahler++;
}
}
}
$typ =~ s/\+/\ /g;
$dat = $dat.$typ."<br>";
}
}

Am Ende hat man alle Formulardaten super ausgewertet in dem Array @Daten.

(Is vielleicht nix besonderes, ich bin aber voll stolz darauf, dass ich das geschafft hab! Hat auch lang genug gedauert großes Grinsen

)

(hier klicken, um zum Original Thread zu gelangen)