Witam, mam problem z połączeniem z postgresql. Zainstalowałem moduł DBD::Pg w taki sposób:
perl -MCPAN -e shell
install DBD::Pg
dostałem info że się udało.
Napisałem kod:
use DBI;
my $user = "postgres";
my $pass = "postgres";
my $dbh = DBI->connect("DBI:Pg:dbname=perl", $user, $pass)
|| die "Błąd połączenia: '$DBI::errstr'";
my $sql = "select id, kod_funduszu, data, kurs ";
$sql .= "from notowania ";
$sql .= "order by id";
my $sth = $dbh->prepare($sql) || die "Błąd przygotowania";
sth->execute || die "Błąd wykonania:'$DBI::errstr'";
while(my $rowref = $sth->fetchrow_arrayref)
{
my ($var1, $var, $var3, $var4) = @{$rowref};
print "$var4\t$var3\t$var2\t$var1\n";
}
$sth->finish
niestety nie działa, dostaje takie info:
![]()