(PERL) fetch_array

[Serdg]

Подскажите по ошибке, что не так написал:
Код: Выделить всё

my $dbh = DBI->connect("dbi:Pg:port=5432 host=$pghost user=$login password=$pwd dbname=$dbname")
or die "Dont connect to DB:$DBI::errstr\n";
my $sth=$dbh->do("SET DATESTYLE TO 'ISO'");
my $sth=$dbh->do("SET CLIENT_ENCODING TO 'WIN'");
my $sth=$dbh->prepare("select prinadl from prinadleg where prinadl~*'From site");
$sth->ехесute();
my $clients={};
my $clients->{'prinadl'} = (my $array_ref=$sth->fetchrow_arrayref)[0]; ............................................вот эта строка интересует
print "$array_ref";
$sth->finish();

Выдает ошибку Can't use an undefined value as a HASH reference
и ниже main::insert_DB('HASH(**97cd7ac)', 'HASH(**97cd7d0)', 'HASH(**9426f28)', 'HASH(**97e3c54)')

[chorny]

Цитата: Сообщение от Serdg Подскажите по ошибке, что не так написал: Код: Выделить всё my $dbh = DBI->connect("dbi:Pg:port=5432 host=$pghost user=$login password=$pwd dbname=$dbname") or die "Dont connect to DB:$DBI::errstr\n"; my $sth=$dbh->do("SET DATESTYLE TO 'ISO'"); my $sth=$dbh->do("SET CLIENT_ENCODING TO 'WIN'"); my $sth=$dbh->prepare("select prinadl from prinadleg where prinadl~*'From site"); $sth->ехесute(); my $clients={}; my $clients->{'prinadl'} = (my $array_ref=$sth->fetchrow_arrayref)[0]; ............................................вот эта строка интересует print "$array_ref"; $sth->finish(); Выдает ошибку Can't use an undefined value as a HASH reference и ниже main::insert_DB('HASH(**97cd7ac)', 'HASH(**97cd7d0)', 'HASH(**9426f28)', 'HASH(**97e3c54)')

Не понятно в какой строке ошибка. Первая мысль - проверять результат prepare и execute. || die. Скорее всего - $sth=undef.

[Pol Pavel]

Ну вы тупые)))
Куда ж вы лезете то, если писать не умеете))) Учите ПэХаПэ, очевидно он для вас)))