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

[thread]17486[/thread]

html eingabefeld eingabe per perl in sql db

Tags: perl5 CGI Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+4 replies

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)

+3 replies

rosti

2012-06-15 17:51

User since
2011-03-19
3470 Artikel
BenutzerIn

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

Nein.

Code (perl): (dl )

use CGI;

# baue eine Kontrollstruktur, wo prüft, ob eine Eingabe vorliegt
# und dann kriegst Du die Eingaben so:

my $name = CGI::param('AnwenderName');
my $comment = CGI::param('Kommentartext');

Das Wichtigste ist die Kontrollstruktur. Guck erstmal, ob Du die Eingaben kriegst, dann machen wir den Rest mit der DB.

--Rosti

PS/Edit: MySQL in Kürze:

Code (perl): (dl )

use strict;
use warnings;
use DBI;

my $DBH = dbh() or die $@;
my $story = qq(Otto und Franz gehen mit dem Hund Foo spazieren und treffen Boo);

# Ohne Fehlerbehandlung
$DBH->do("INSERT INTO test(text)VALUES(?)", {}, $story);

# Mit Fehlerbehandlung
eval{
        $DBH->do("INSERT INTO test(text)VALUES(?)", {}, $story);
};
# Frage $@ ab ob es einen Fehler gab.

sub dbh{
        my %cfg = (
                base => 'myweb',
                host => 'localhost',
                port => 3306,
                user => '',
                pass => '',

        @_);
        return eval{
                DBI->connect("DBI:mysql:$cfg{base}:$cfg{host}:$cfg{port}", $cfg{user}, $cfg{pass},
                        {RaiseError => 1, PrintError => 0}
                );
        };
}

Last edited: 2012-06-15 18:30:41 +0200 (CEST)

+2 replies

bendenn

2012-06-17 21:06

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

Guten Abend.
Danke für die Hilfe Rosti!
Habe lange am Script getüftelt. Leider bekomme ich die Eingabe in die Textarea nicht per print ausgespuckt.

Code (perl): (dl )

#! C:\xampp\perl\bin\perl.exe

#use strict;

use CGI;
#use CGI qw/-no_debug :all/;
use CGI::Carp qw(fatalsToBrowser);
#my $cgi = new CGI;

# baue eine Kontrollstruktur, wo prüft, ob eine Eingabe vorliegt
# und dann kriegst Du die Eingaben so:

my $comment = CGI::param('Kommentartext');

=Bei einer Eingabe in die html Textarea bekomme ich:
Serverfehler!

Die Anfrage kann nicht beantwortet werden, da im Server ein interner Fehler aufgetreten ist.

Fehlermeldung: 
Premature end of script headers: comments.pl

Sofern Sie dies für eine Fehlfunktion des Servers halten, informieren Sie bitte den Webmaster hierüber.

Error 500

localhost
06/17/12 20:45:10
Apache/2.2.21 (Win32) mod_ssl/2.2.21 OpenSSL/1.0.0e PHP/5.3.8 mod_perl/2.0.4 Perl/v5.10.1

-----------------------
Bei keiner Eingabe in Textarea startet sub Ausgabe
=cut
#print 'Kommentartext '.$comment ;

# Fehlerbehandlung
$fehlermeldung = "" ;
$fehler_gefunden = "" ;

# Hier wird nur abgefragt ob denn überhaupt etwas in dem Formularfeld steht
$errormeldung = "<li>Das Feld Vorname wurde nicht ausgefüllt.\n" ;

if ( $comment eq "") {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

# Wenn Fehler - dann aufruf der Subroutine
if ($fehler_gefunden) {
& Ausgabe(); }

# Fehlerausgabe
sub Ausgabe {
print <<EOF;
"Content-type: text/html\n\n";
"<HTML><HEAD><TITLE>FEHLER</TITLE></HEAD>\n";
"<BODY><font face=\"Verdana, Arial\" size=\"2\">\n";
"Beim ausfüllen haben Sie folgendes vergessen:<ol> <b>$fehlermeldung</b>\n";
"</ol><br><br>\n";
"Bitte gehen Sie zurück und versuchen es erneut!\n";
"</font></BODY></HTML>\n";
EOF
exit;
}

gruß Ben

rosti

2012-06-17 22:11

User since
2011-03-19
3470 Artikel
BenutzerIn

Wahrscheinlich hat Dein Script keinen heade Content-Type... gesendet.
Um ein bischen mehr Struktur reinzubringen habe ich Dir mal ein kleines Script aufgeschrieben, spiel mal ein bischen damit, es könnte als Vorlage für weitere Entwicklungen dienen:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use CGI;

# Alle VARs in der globalen Hash-Referenz $main
my $main = {
        CGI => new CGI,
        eingabe => '',     # Wert vom Eingabefeld
        mesg => '',        # Hinweise für den Anwender
};

print "Content-Type: text/html; Charset=UTF-8\n\n";
print out();

exit;
######################################## Funktionen #######################
# Parameter Kontrolle und dann die Ausgabe
sub out{
        if(param()){
                control();      
        }
        else{
                browse();
        }
        return form();
}

# Keine Parameter
sub browse{
        $main->{mesg} = 'Bitte was eingeben';
}

# Parameter
sub control{
        if(param('klick') || param('eingabe')){
                $main->{eingabe} = param('eingabe');
                $main->{mesg} = "Es wurde was eingegeben ($main->{eingabe}) oder geklickt";
                
                # hier kommt der Code 
                # zum Eintragen in die DB
        }
        else{ 
                $main->{mesg} = 'Unbekannter Parameter';
        }
}

# Formular erzeugen
sub form{
        return qq(
                <p>Mesg: $main->{mesg}</p>
                <form action="$ENV{SCRIPT_NAME}">
                        <input name="eingabe" value="$main->{eingabe}">
                        <input type="submit" name="klick">
                </form>
                <p>
                        <a href="$ENV{SCRIPT_NAME}">Seite neu Laden ohne Parameter</a>
                </p>
        );
}


# Delegate CGI::param Method
sub param{ 
        return $main->{CGI}->param(@_);
}

View all threads created 2012-06-15 17:18.