On Sun, 18 Nov 2001 17:55:34 +0100, "M" <morten_skovgaard@hotmail.com>
wrote:
>Er der nogen, der ved, om jeg mangler noget for at kunne hive oplysninger ud
>af databasen?
Umiddelbart mangler du kun at installere de Perl-moduler, der følger
med postgresql (jeg kan ikke lige huske om de bliver installeret
automatisk) _eller_ DBI med den tilhørende driver. Det sidste er nok
at foretrække...
>Og vil det være muligt at se et eksempel på, hvordan det
>gøres? Jeg har tidligere kun beskæftiget mig med ASP, IIS5 og SQL server...
Jeg har smidt et kort eksempel med hhv. postgresql's eget perl modul
og DBI i bunden af denne meddelelse.
/wulff
#!/usr/bin/perl
# postgresql's eget modul
use strict;
use Pg;
# connect to database
my $conn = Pg::connectdb("dbname=worldonline");
die "$conn->errorMessage" unless $conn->status eq
Pg::PGRES_CONNECTION_OK;
# build query
my $query = <<SQL;
SELECT *
FROM t_contacts
WHERE name = 'test'
SQL
# execute query
my $result = $conn->exec($query);
die "$conn->errorMessage" unless $result->resultStatus eq
Pg::PGRES_COMMAND_OK;
#!/usr/bin/perl
# med DBI
use strict;
use DBI;
# connect to database
my $DBH = DBI->connect(<DSN>, <username>, <password>)
or die "$DBI::errstr";
# build query
my $query = <<SQL;
SELECT *
FROM t_contacts
WHERE name = 'test'
SQL
# execute query
my $STH = $DBH->prepare($sql) or die "$DBI::errstr";
$STH->execute() or die "$DBI::errstr";
# print results
while ( my $row = $STH->fetchrow_hashref() )
{
print "$row->{id}\t$row->{name}";
}
# disconnect from database
$DBH->disconnect or die "$DBI::errstr";