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();
$insert = „INSERT INTO DBTABLE (name, password) VALUES (‚otto‘, ‚findichgut‘)“;
$abfrage = $dbh->prepare($insert);
$rv = $abfrage->execute || dberror („fehler bei insert: $DBI::errstr“);
$select = „SELECT * FROM DBTABLE WHERE name like = ‚o%‘“;
$abfrage = $dbh->prepare($select);
$rv = $abfrage->execute || dberror („fehler bei select: $DBI::errstr“);
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“;}