Автор Тема: (PERL) fetch_array  (Прочитано 1936 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн R4z0R

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 1
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
(PERL) fetch_array
« : 11 Октября 2007, 17:31:55 »
Подскажите по ошибке, что не так написал:
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)\')
« Последнее редактирование: 11 Октября 2007, 17:41:02 от R4z0R »

Оффлайн vladsu

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 271
  • +0/-0
  • 0
    • Просмотр профиля
    • http://vladislavsurguchev.eu/
(PERL) fetch_array
« Ответ #1 : 12 Октября 2007, 02:10:42 »

...
my $sth=$dbh->prepare("...");
unless ( defined $sth ) {
    print "...";
    exit 0;
}

$sth->execute();

my %clients;
$clients{\'prinadl\'} = ($sth->fetchrow)[0];
print $clients{\'prinadl\'};
$sth->finish();
----------------------------------------------
Мой сайт чёрно-белых фотографий из разных уголков мира тут

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28