Вот, не могу понять почему вылазит ошибка:
dbih_setup_fbav: invalid number of fields: 0, NUM_OF_FIELDS attribute probably not set right at ./fb.exmaple line 25.
Подскажите, плз.
=========================
#!/usr/bin/perl
use DBI;
#
$host = "192.168.0.1";
$dbname = "TEST";
$user = "SYSDBA";
$passwd = "masterkey";
#
$dsn =<< "DSN";
dbi:InterBase:dbname=$dbname;
host=$host;
port=3050;
ib_dialect=$dialect;
ib_role=$role;
ib_charset=$charset;
ib_cache=$cache
DSN
$base = DBI->connect($dsn, $user, $passwd);
#
$query=$base->prepare("SELECT * FROM COUNTRY");
$query->execute;
while ( @row = $query->fetchrow_array) {
print "@row\n";
}