вот кусок скрипта
my $result = $dbh->prepare("SELECT id, nazvanie_m FROM main")|| die $DBI::errstr;
$result->execute();
while (my ($ids, $slovavn)=$result->fetchrow_array())
{
if ($slovavn=~m/$zapros/i){
my $rezultat = $dbh->prepare("select * from main where id = $ids") || die $DBI::errstr;
$rezultat->execute();
print "\\n";
while (my ($id, $kafedra, $grif, $nazvanie, $annotation, $udk, $bbk, $avtor, $god, $filename)=$rezultat->fetchrow_array())
{
print "$id | $kafedra | $grif | $nazvanie | $annotation | $udk | $bbk | $avtor | $god | $filename |
\\n";
}
print "
\\n";
$rezultat->finish();
}else{
print "ничего не найдено \\n";
}
$result->finish();
}
скрипт выполняется и выдаёт постоянно "ничего не найдено"
при этом в логе появляется вот что
"DBD::mysql::st fetchrow_array failed: fetch() without execute() at \\\\home\\\\db\\\\cgi-bin\\\\search.cgi line 34.\\n"
вроде бы всё правильно, а поиск не работает (