Witam,
na serwerze PLD mam baze na firebirdzie i Perla. Sterwonik DBD:Interbase.
W wyniku dzialania:
#!/usr/bin/perl
use DBI;
$dbh =
DBI->connect('DBI:I nterBase:host=s erwer.pl;db=use net;ib_dialect= 3','sysdba','ma sterkey');
$sel = $dbh->prepare('selec t string1,string2 ,int1,int2 from tabela');
$sel->execute();
$wier = $sel->fetchall_array ref();
foreach $wiersz(@$wier) {
($string1,$stri ng2,$int1,$int2 ) = @$wiersz;
print "$string1,$stri ng2,$int1,$int2 \n";
}
wyswietlaja sie wartosci stringow - poprawnie, jedno z pol integer
wyswietla sie poprawnie, a jedno pokazuje kosmiczne wartosci np. gdy pole
ma wartosc zerow wyswietla sie liczba 15 cyfrowa.
Ten sam skrypt uruchomiony na innym serwerze i laczacy sie z baza na
wspomnianym PLD wyswietla wyniki poprawne.
Skrypt w PHP wyswietlajacy to samo zapytanie tez pokazuje poprawne wyniki,
czyli problem lezy po stronie perla.
czy mial ktos podobny problem i jakos go rozwiazal?
pozdrawiam
Kamil
na serwerze PLD mam baze na firebirdzie i Perla. Sterwonik DBD:Interbase.
W wyniku dzialania:
#!/usr/bin/perl
use DBI;
$dbh =
DBI->connect('DBI:I nterBase:host=s erwer.pl;db=use net;ib_dialect= 3','sysdba','ma sterkey');
$sel = $dbh->prepare('selec t string1,string2 ,int1,int2 from tabela');
$sel->execute();
$wier = $sel->fetchall_array ref();
foreach $wiersz(@$wier) {
($string1,$stri ng2,$int1,$int2 ) = @$wiersz;
print "$string1,$stri ng2,$int1,$int2 \n";
}
wyswietlaja sie wartosci stringow - poprawnie, jedno z pol integer
wyswietla sie poprawnie, a jedno pokazuje kosmiczne wartosci np. gdy pole
ma wartosc zerow wyswietla sie liczba 15 cyfrowa.
Ten sam skrypt uruchomiony na innym serwerze i laczacy sie z baza na
wspomnianym PLD wyswietla wyniki poprawne.
Skrypt w PHP wyswietlajacy to samo zapytanie tez pokazuje poprawne wyniki,
czyli problem lezy po stronie perla.
czy mial ktos podobny problem i jakos go rozwiazal?
pozdrawiam
Kamil
Comment