Thread html eingabefeld eingabe per perl in sql db (3 answers)
Opened by bendenn at 2012-06-15 17:18

rosti
 2012-06-15 17:51
#159054 #159054
User since
2011-03-19
3507 Artikel
BenutzerIn
[Homepage]
user image
Quote
read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});


Nein.

Code (perl): (dl )
1
2
3
4
5
6
7

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 )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

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)

View full thread html eingabefeld eingabe per perl in sql db