html eingabefeld eingabe per perl in sql db - #159053 (Perl/CGI)

bendenn

2012-06-15 17:18

User since
2012-06-15
22 Artikel
BenutzerIn
[default_avatar]

hallo zusammen,
bin absoluter perl beginner!
könnte gut hilfe gebrauchen.
mein problem:
habe eine html textarea erstellt.
möchte den eingegebenen inhalt per perl in einer sql datenbank speichern.
bis jetzt hab ich das hier:

eingabefeld in index.html

Code: (dl )

<form action="/otrs/comments.pl" method="post">	
Name: <input size=40 maxlength=40 name="AnwenderName"><br>
<p>Text:<br><textarea rows="5" cols="50" name="Kommentartext"></textarea></p>
<p><input type="submit" value="Absenden"></p>

comments.pl

Code (perl): (dl )

use strict;
use CGI::Carp qw(fatalsToBrowser);

read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
my @Formularfelder = split(/&/, $Daten);
my ($Feld, $Name, $Wert);
my %Formular;
foreach $Feld (@Formularfelder) {
  (my $Name, my $Wert) = split(/=/, $Feld);
  $Wert =~ tr/+/ /;
  $Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $Wert =~ s/</&lt;/g;
  $Wert =~ s/>/&gt;/g;
  $Formular{$Name} = $Wert;
 }
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>CGI-Feedback</title></head>\n";
print "<body><h1>CGI-Feedback vom Programm <i>comments.pl</i></h1>\n";
print "<p><b>Name:</b> $Formular{AnwenderName}</p>\n";
print "<p><b>Kommentartext:</b> $Formular{Kommentartext}</p>\n";
print "</body></html>\n";

leider wird inhalt so nur auf einer html seite ausgegeben.

die ersten großen sorgen macht mir die verbindung zur datenbank.
und wie bekomme ich den inhalt aus der textarea in die datenbank?
ich habe verschiedene möglichkeiten versucht, leider erfolglos.
kann mir jemand ein hinweis auf ein funktionierendes script geben?

die sql datenbank ist da und funzt auch soweit.

gruß ben

modedit Editiert von GwenDragon: Code in CODE-Tags gestellt

modedit Editiert von pq: tabs nochmal entfernt, gleichzeitig mit gwendragon editiert
Last edited: 2012-06-15 17:29:08 +0200 (CEST)