Сообщения

1

Perl / проблему решил таки

« : 26 Октября 2001, 10:36:11 »

в функцию надо было добавить вот эту строчку

my $db_data = $sth->fetchrow_hashref;
my %the_hash = %$db_data;
return %the_hash;

2

Perl / reference to hash (fetchrow_hashref)

« : 25 Октября 2001, 14:12:16 »

привет
вопрос:
есть функция которая делает некий селект из базы:


sub somefunc
{
...skip....
my $rc = $sth->execute;              
my %db_data = $sth->fetchrow_hashref;
return %db_data;
}

потом я пытаюсь вывести результат:
my %db_rs = &DBp::db_selectf();  
foreach my $item (keys %db_rs)
{                              
print "$item";                
}
вместо того что мне надо печатается ссылка на хеш
HASH(0x8148ee8)

хелп ми :-)