Dokumentation zu Perl::DBI

[DemoFreak]

Hallo zusammen,

kurz und bündig: ich bin zu doof, eine für Newbies brauchbare Dokumentation zum Perl-Mod DBI zu finden (genaugenommen bin ich sogar zu doof, überhaupt irgendeine Doku zu finden).

Newbie definiere ich wie folgt: Perl-Kenntnisse vorhanden (reicht, um Mods zu benutzen :o), SQL prinzipiell verstanden...

Wenn bitte jemand einen Link für mich hätte, vielleicht auch 1-2 kurze, möglichst nicht gleich grossartig objektorientierte Beispielskripte, wäre das super :o)

der Hannes

[Sebastian Burkhart]

Moin!

Wenn bitte jemand einen Link für mich hätte, vielleicht auch 1-2 kurze, möglichst nicht gleich grossartig objektorientierte Beispielskripte, wäre das super :o)

http://search.cpan.org/search?module=DBI

Falls du MySQL benutzt, findest du auf <www.mysql.com> auch noch einige Dokus zur Benutzung des DBI-Moduls.

Ciao!
Buggi

[DemoFreak]

http://search.cpan.org/search?module=DBI
Falls du MySQL benutzt, findest du auf <www.mysql.com> auch noch einige Dokus zur Benutzung des DBI-Moduls.

Thx...

Hannes

[Jan Huss]

Hallo,
hier ein einfaches Beispiel für Dich:

use DBI;

$dbaseData = 'dbi:mysql:DBNAME;DBHOST';
$dbaseUserName = 'DBUSER';
$dbasePw = 'DBPASS';

DB-Verbindung herstellen...

my $dbase = DBI->connect($dbaseData, $dbaseUserName, $dbasePw);

SQL-Query vorbereiten...

my $query = $dbase->prepare("SELECT * FROM t01_test");

und aushühren...

$query->execute;

evtl. Fehler ausgeben...

if ($dbase->errstr gt '') {
print '<br>Es ist ein DB-Fehler aufgetreten: '.$dbase->errstr.'<br>';
}

DB-Verbindung kappen...

$dbase->disconnect;

Das Result-Set zeilenweise auslesen, Spalten werden in @tmp gespeichert.

while (my @tmp = $query->fetchrow_array){
    print $tmp[0];
}

Soviel zur Grundlegenden Handhabung.

Gruß Jan

[DemoFreak]

Dankeschön :o)