|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 02 May 2003 14:39:07
To : Ruslan Sulemanov
Subject : Re: странности с выполнением процедуры
--------------------------------------------------------------------------------
Здравствуй, Ruslan Sulemanov.
RS> Hello, All!
RS> Помогите разобраться вот в чём:
RS> 1. этот кyсок кода обрабатывает запрос:
RS> ..... ....
RS> @fild=split(/&/,$query);
RS> foreach (@fild)
RS> {
RS> if(/^kw=(.*)/) { $kw=&urldecode($1); }
RS> }
RS> $w=$kw;
RS> $res=&dbas($w);
RS> print "<html>";
RS> print "<title> Result </title>";
RS> print " $res - result\n";
RS> print "</html>";
RS> }
RS> 2. Выполняется подпрограмма &dbas
RS> sub dbas {
RS> ..... .....
RS> print "Test 1 \n"; # Выполняется только этот тест
RS> my $db1=new BerkeleyDB::Btree
RS> -Filename => $pat,
RS> -Flags => DB_CREATE,
RS> -Property => DB_DUP | DB_DUPSORT
RS> or die "$!\n";
RS> $db1->db_get($gad,$vas);
RS> print "Test 2 \n"; # это не выполняется
RS> return $vas;
RS> }
RS> Почемy там где вызываю &dbas, не возращается резyльтат?
RS> и даже хтмл который идёт после запyска невыводится?
RS> Данные в БД есть 100%. $gad - это ключ, который тоже есть
RS> в БД.
RS> Какие бyдyт предложения на этот счёт?
Будет предложение обернуть вызов dbas в eval и посмотреть на результат.
Предварительно убедиться, что положенный по протоколу CGI заголовок скрипт
все-таки выводит. В приведенных фрагментах кода его нет, а работа с запросом
позволяет сделать предположение :-), что CGI.pm не используется...
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по:
|
Re: странности с выполнением процедуры 
