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“;}