(PERL) fetch_array

И всё прочее, что касается HTML
Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
Аватара пользователя
Agronom
ст. сержант
Сообщения: 305
Зарегистрирован: 2006-12-11 10:30:13

(PERL) fetch_array

Непрочитанное сообщение Agronom » 2007-10-11 13:07:47

Подскажите по ошибке, что не так написал:

Код: Выделить всё

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->execute();
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(0x97cd7ac)', 'HASH(0x97cd7d0)', 'HASH(0x9426f28)', 'HASH(0x97e3c54)')

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг HostFood.ru

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

Аватара пользователя
Alex Keda
стреляли...
Сообщения: 35462
Зарегистрирован: 2004-10-18 14:25:19
Откуда: Made in USSR
Контактная информация:

Re: (PERL) fetch_array

Непрочитанное сообщение Alex Keda » 2007-10-11 16:49:00

может там не двух а более многомерный массив?
чёнить типа php-шного

Код: Выделить всё

var_dump($var);
в перле нет?
Убей их всех! Бог потом рассортирует...

Аватара пользователя
XoRe
рядовой
Сообщения: 13
Зарегистрирован: 2007-10-15 18:04:04
Откуда: Россия
Контактная информация:

Re: (PERL) fetch_array

Непрочитанное сообщение XoRe » 2007-10-15 21:18:00

my $clients->{'prinadl'} = ($sth->fetchrow_arrayref)[0];
А если так?

А вообще:
$ary_ref = $sth->fetchrow_arrayref;
$ary_ref = $sth->fetch; # псевдоним
Осуществляет выборку очередной строки данных и возвращает ссылку на массив,
содержащий значения полей.
<'\/'>