Hallo Leute,
folgendes Problem.
Ich ein kleines Netzwerk bestehend aus 4 Rechnern. Auf einem dieser Rechner ist eine MySQL-Datenbank eingerichtet. Nun möchte ich mittel Perl-Skript auf die Daenbank bzw. die Daten zugreifen.
- der Rechner mit der Datenbank hat die IP 192.168.6.1
- der Port zur Datenbank ist 3306
- die MySQL-Datenbank heißt "trafficforclients"
- die Tabelle aus der ich Daten haben möchte heißt "markus"
hier nun mein Skript, das ich auf einem anderen Netzwerkrechner laufen lasse:
use DBI;
my $user = "xxxxx";
my $password = "xxxxx";
my $dbh = DBI->connect('dbi:mysql:trafficforclients:192.168.6.1', $user, $password)
or die "Can't connect to $data_source: $DBI::errstr";
# Befehl fuer Ausfuehrung vorbereiten. Referenz auf Statement
# Handle Objekt wird zurueckgeliefert
my $sth = $dbh->prepare( 'SELECT * FROM markus' ) ||
die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
# Vorbereitetes Statement (Abfrage) ausfuehren
$sth->execute ||
die "Kann Abfrage nicht ausfuehren: $DBI::errstr\n";
# Bearbeitung des Abfrageergenisses
while ( my @ergebnis = $sth->fetchrow_array ){
# Im Array @ergebnis steht nun ein Datensatz
print $ergebnis[0] . " " . $ergebnis[1] . "\n";
}
# Statement-Handle Resources freigeben
$sth->finish;
$dbh->disconnect;
