#!/usr/bin/perl

#
# bsp-perldbi
#   Beispielprogramm DBS Vorlesung FH Niederrhein
#   Demonstration des Perl-DBI
#   Autor: Christoph Dalitz
#   Datum: 18.10.2002
#

use strict;
use DBI;


# Variablen
my $dbh = 0;
my $sth = 0;
my @row;
my $pguser = "uid";
my $pgpassword = "pwd";


# Datenbank Login
$dbh = DBI->connect("dbi:Pg:dbname=test", $pguser, $pgpassword,
                    {AutoCommit => 0, PrintError => 0, RaiseError => 0} );
if (!$dbh) {
    print "Fehler bei Login: " . $DBI::errstr . "\n";
    exit 2;
}


# Abfrage ...
$sth = $dbh->prepare("SELECT usename FROM pg_user");
if (!$sth->execute) {
    print "Fehler bei SELECT: " . $sth->errstr . "\n";
}
else {
    # ... und Ausgabe Ergebnisse
    while (@row = $sth->fetchrow_array) {
        print "User: " .$row[0] . "\n";
    }
}

# Logout
$dbh->disconnect();


exit 0;