![]() |
![]() |
Правила Форума редакция от 22.06.2020 |
|
|
Окажите посильную поддержку, мы очень надеемся на вас. Реквизиты для переводов ниже. |
|
![]() |
|
Опции темы | Опции просмотра |
![]() |
![]() |
![]() |
![]() Подскажите по ошибке, что не так написал:
Код: Выделить всё Код:
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)') |
|
![]() |
![]() ![]() |
Реклама: | wnk 100/1 | Насос Grundfos TPE 100-110/4 | подарочный букет для мужчины на день рождения | стеллаж венге дуб молочный | шампунь для ультразвуковой ванны |
![]() |
![]() |
Неактивный пользователь
Пол: ![]() Регистрация: 28.12.2007
Сообщений: 43
Репутация: 9
|
![]() Не понятно в какой строке ошибка. Первая мысль - проверять результат prepare и execute. || die. Скорее всего - $sth=undef. |
![]() |
![]() ![]() |
![]() |
![]() |
Неактивный пользователь
Пол: ![]() Регистрация: 12.10.2008
Адрес: Дома
Сообщений: 4
Репутация: 0
|
![]() ![]() ![]() ![]() ![]() Куда ж вы лезете то, если писать не умеете))) Учите ПэХаПэ, очевидно он для вас))) |
![]() |
![]() ![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Редакторы для Perl | Pilat66 | Perl | 11 | 07.03.2011 12:12 |
Perl + TOR | roddik | Perl | 3 | 11.09.2009 12:05 |
Программирование на Perl | scromniaga | Perl | 16 | 30.08.2009 03:27 |
(Perl) nslookup | Serdg | Perl | 2 | 22.08.2009 20:44 |
About Perl | Ivan_32 | Программирование | 2 | 04.07.2008 10:22 |
|
|