Forum Webscript.Ru

Программирование => Perl => Тема начата: BonJorno от 14 Августа 2003, 12:48:59

Название: непонятный вопрос
Отправлено: BonJorno от 14 Августа 2003, 12:48:59
в CGI скрипте генерю таблицу, вроде все просто и понятно:
print ;
while (($osn,$namosn) = $cursor->fetchrow_array) {
     print Tr(
     td ({-class=>\'Topic\',-onMouseOver=>"this.className =\'SelectedTopic\';", -ONMOUSEOUT=>"this.className =\'Topic\';", -width=>\'200px\',-nowrap},$osn),"\\n",
     td ({-class=>\'Topic\', -width=>\'170px\',-nowrap},$namosn),"\\n"
     ),"\\n";
}
print "
";
----------------------------------
и вот эта штука выкидывает на каждый print Tr(... и каждый print table,  в лог следующее:
Odd number of elements in hash assignment at C:\\Inetpub\\wwwroot\\cgi-bin\\dip_bottom.plx  

не могу понять чего ей не хватает?
Название: непонятный вопрос
Отправлено: NeoNox от 14 Августа 2003, 13:08:25
Закрывающий тег /tr где?
А вообще - не умееш создавать все с CGI.pm значит используй нормальный синтаксис.
Далее - покажи что содержит $cursor
Название: непонятный вопрос
Отправлено: Wyclef от 14 Августа 2003, 14:08:12
Цитировать
BonJorno:
while (($osn,$namosn) = $cursor->fetchrow_array) {

Проверь так:while(@row = $cursor->fetchrow_array) {
    print @row, br;
}

Цитировать
NeoNox:
Закрывающий тег /tr где?

Tr();
[off]...переработал ))[/off]

perldoc perldiag
Цитировать
[i]Odd number of elements in hash assignment[/i]
    (W misc) You specified an odd number of elements to initialize a hash,
    which is odd, because hashes come in key/value pairs.
Название: непонятный вопрос
Отправлено: NeoNox от 14 Августа 2003, 15:31:36
Wyclef угу