Правила Форума редакция от 22.06.2020 |
|
|
|
|
|
Опции темы | Опции просмотра | Language |
11.10.2007, 16:26 | #1 |
(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(); и ниже main::insert_DB('HASH(0x97cd7ac)', 'HASH(0x97cd7d0)', 'HASH(0x9426f28)', 'HASH(0x97e3c54)') |
|
Реклама: | депиляция интимной зоны | комоды с ящиком | перенести объявления авито в вк | барнхаус 70 кв м проекты | нижний городец теплоходом |
28.12.2007, 22:24 | #2 |
Неактивный пользователь
Пол: Регистрация: 28.12.2007
Сообщений: 43
Репутация: 9
|
Ответ: (PERL) fetch_array
Не понятно в какой строке ошибка. Первая мысль - проверять результат prepare и execute. || die. Скорее всего - $sth=undef. |
22.08.2009, 21:48 | #3 |
Неактивный пользователь
Пол: Регистрация: 12.10.2008
Адрес: Дома
Сообщений: 4
Репутация: 0
|
Re: (PERL) fetch_array
Ну вы тупые)))
Куда ж вы лезете то, если писать не умеете))) Учите ПэХаПэ, очевидно он для вас))) |
Опции темы | |
Опции просмотра | |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Редакторы для 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 |
|
|