MySQL-Datenbank öffnen:
use DBI;
$dba = DBI->connect("dbi:mysql:$database",
"$user", "$password") or die "Error -
DB not open\n";
Daten in MySQL-Datenbank schreiben:
$sql_01 = $dba->prepare(<<"END_OF_INSERT")
or die "error in insert\n";
INSERT INTO $table (col1, col2, col3) VALUES ('$dat1','$dat2','$dat3')
END_OF_INSERT
$sql_01->execute;
if ($sql_01->errstr) { print $sql_01->errstr, "\n";
}
else { print "ok -> $table"; }
$sql_01->finish if (defined $sql_01);
Daten aus MySQL-Datenbank lesen:
$sql_02 = $dba->prepare(<<"END_OF_SELECT")
or die "error in select\n";
SELECT col1 FROM $table WHERE col2 = '$dat2'
END_OF_SELECT
$sql_02->execute;
if ($sql_02->errstr) { print $sql_02->errstr, "\n";}
else { print "ok -> $table\n"; }
while (my @data = $sql_02->fetchrow_array)
{
($returndata) = @data;
print "$returndata\n";
}
$sql_02->finish if (defined $sql_02);
MySQL-Datenbank schließen :
$dba->disconnect;
Vergleich von zwei Zeichenketten:
if ($str1 eq $str2) { ... }
|