Dokumentation zu Perl::DBI

[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