|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Ruslan Sulemanov 2:4635/1024.27 02 May 2003 11:02:20
To : All
Subject : странности с выполнением процедуры
--------------------------------------------------------------------------------
Помогите разобраться вот в чём:
1. этот кyсок кода обрабатывает запрос:
..... ....
@fild=split(/&/,$query);
foreach (@fild)
{
if(/^kw=(.*)/) { $kw=&urldecode($1); }
}
$w=$kw;
$res=&dbas($w);
print "<html>";
print "<title> Result </title>";
print " $res - result\n";
print "</html>";
}
2. Выполняется подпрограмма &dbas
sub dbas {
..... .....
print "Test 1 \n"; # Выполняется только этот тест
my $db1=new BerkeleyDB::Btree
-Filename => $pat,
-Flags => DB_CREATE,
-Property => DB_DUP | DB_DUPSORT
or die "$!\n";
$db1->db_get($gad,$vas);
print "Test 2 \n"; # это не выполняется
return $vas;
}
Почемy там где вызываю &dbas, не возращается резyльтат?
и даже хтмл который идёт после запyска невыводится?
Данные в БД есть 100%. $gad - это ключ, который тоже есть
в БД.
Какие бyдyт предложения на этот счёт?
Заранее благодарен.
С Уважением, Руслан.
--- GoldED+/FreeBSD 4.8-STABLE
* Origin: *JEET:* support@icu.net.ua *:UA* (2:4635/1024.27)
Вернуться к списку тем, сортированных по:
|
