MySQL + Perl

Hallo,

Könnte mir einer ein kleines Beisepielprogramm schreiben mit dem ich unter Perl Daten in eine MySQL Daten bank einfügen kann und wieder rauslesen kann und löschen und ändern…
Oder einen Link wos sowas giebt…
Ich will damit ein Programm schreiben das Daten von Benutzern ( Email, URL, Name, Passwort ) speichert und dann in einer Liste ausgibt…

BITTTEEE…

Hier isses:
DBNAME, DBUSER, DBHOST und DBPASSWORD musst Du ändern. DBTABLE und die Feldnamen (name, password) und die entsprechenden Inhalte natürlich auch.

#!/usr/bin/perl

use CGI;
use DBI;

$dbdriver =„mysql“;
$database =„DBNAME“;
$sqlhost =„db.DBHOST.de“;
$sqluser =„DBUSER“;
$sqlpwd =„DBPASSWORD“;
$sqlport ="";
$datasource =„DBI:blush:dbdriver:blush:database:blush:sqlhost“;

$dbh = dbconnect();

Beispiel für INSERT

$insert = „INSERT INTO DBTABLE (name, password) VALUES (‚otto‘, ‚findichgut‘)“;
$abfrage = $dbh->prepare($insert);
$rv = $abfrage->execute || dberror („fehler bei insert: $DBI::errstr“);

Beispiel für SELECT

$select = „SELECT * FROM DBTABLE WHERE name like = ‚o%‘“;
$abfrage = $dbh->prepare($select);
$rv = $abfrage->execute || dberror („fehler bei select: $DBI::errstr“);

Nun alle Ergebniszeilen durchgehen

while (@fields=$abfrage->fetchrow){ ($name, $password) = @fields;
print „$name hat das Passwort $password
\n“;
} # while

####################################

sub dbconnect{
$dbh = DBI->connect($datasource, $sqluser, $sqlpwd) || dberror(„fehler bei connect: $DBI::errstr“);
return $dbh;
}

sub dberror{print „\nDB-Fehler :“; print @_; print „\n“;}