Компьютерный форум NoWa.cc Здесь может быть Ваша реклама
Правила Форума
редакция от 22.06.2020
Портал .::2BakSa.WS::.
Вернуться   Компьютерный форум NoWa.cc > В помощь вебмастеру > Веб - Программирование > Perl

Уважаемые пользователи nowa.cc и 2baksa.ws. У нас сложилось тяжелое финансовое положение. Мы работаем для вас вот уже более 15 лет и сейчас вынуждены просить о помощи. Окажите посильную поддержку проектам. Мы очень надеемся на вас. Реквизиты для переводов ниже.
Webmoney Webmoney WMZ: 826074280762 Webmoney WMR: 146037758184 Webmoney WMP: 209123518174 Webmoney WME: 804621616710
PayPal PayPal_Email E-mail для связи по вопросу помощи
Кошелек для вашей помощи YooMoney 410013204813773
YooMoney Спасибо за поддержку!
Ответ
 
Опции темы Поиск в этой теме Опции просмотра Language
Старый 11.10.2007, 16:26   #1
Пользователь
 
Аватар для Serdg
 
Пол:Мужской
Регистрация: 20.09.2005
Сообщений: 107
Репутация: 31
По умолчанию (PERL) fetch_array

Подскажите по ошибке, что не так написал:
Код: Выделить всё
Код:
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)')
Serdg вне форума
 
Ответить с цитированием Вверх
Здесь может быть Ваша реклама


Реклама: сухие строительные смесикресла качалкастулья woodville kora купитьтуры на теплоходе с 1 августа 2021насос grundfos tp 200-330/4


Старый 28.12.2007, 22:24   #2
chorny
Неактивный пользователь
 
Пол:Мужской
Регистрация: 28.12.2007
Сообщений: 43
Репутация: 9
По умолчанию Ответ: (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)')

Не понятно в какой строке ошибка. Первая мысль - проверять результат prepare и execute. || die. Скорее всего - $sth=undef.
chorny вне форума
 
Ответить с цитированием Вверх
Старый 22.08.2009, 21:48   #3
Pol Pavel
Неактивный пользователь
 
Пол:Мужской
Регистрация: 12.10.2008
Адрес: Дома
Сообщений: 4
Репутация: 0
По умолчанию Re: (PERL) fetch_array

Ну вы тупые)))
Куда ж вы лезете то, если писать не умеете))) Учите ПэХаПэ, очевидно он для вас)))
Pol Pavel вне форума
 
Ответить с цитированием Вверх
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Редакторы для Perl Pilat66 Perl 11 07.03.2011 12:12
Perl + TOR roddik Perl 3 11.09.2009 13:05
Программирование на Perl scromniaga Perl 16 30.08.2009 04:27
(Perl) nslookup Serdg Perl 2 22.08.2009 21:44
About Perl Ivan_32 Программирование 2 04.07.2008 11:22

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 00:22. Часовой пояс GMT +3.


Copyright ©2004 - 2021 2BakSa.WS

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc. Перевод: zCarot
Время генерации страницы 0.16266 секунды с 13 запросами