Datenbank-Zugriff (Beispiel)

Das folgende Programm verbindet sich mit der Datenbank "linuxkurs" auf dem 
lokalen Rechner. Dabei wird der Benutzer "abfrage" mit Passwort "abfrage"
benutzt.
Anschliessend wird der Inhalt der Tabelle "Adressen" ausgegeben und die
Datenbankverbindung wieder getrennt:

 #!/usr/bin/perl

 use DBI;
 
 $dbhandle = DBI->connect('DBI:mysql:linuxkurs:localhost',
             "abfrage","abfrage") or die $DBI::errstr;

 $abfrage=$dbhandle->prepare('SELECT * FROM Adressen;');
 $abfrage->execute;

 while (@zeile = $abfrage->fetchrow)
 {
   print "@zeile\n";
 }

 $abfrage->finish;
 $dbhandle->disconnect;