Forum Webscript.Ru

Программирование => Perl => Тема начата: glebushka от 13 Марта 2004, 00:57:22

Название: ничего не понимаю:(
Отправлено: glebushka от 13 Марта 2004, 00:57:22

Написал скрипт.
После переноса на другой хостинг при запуске скрипт виснет:(.
И запарывается вот на каком коде (всё лишнее убрано):
while($data=$sth->fetchrow_arrayref){
$text.=qq{
$spisok_param{sub0}
$spisok_param{sub1}
};
}
А вот так работает:
while($data=$sth->fetchrow_arrayref){
$text.=qq{
$spisok_param{sub0}
};
}
И так работает:
while($data=$sth->fetchrow_arrayref){
$text.=qq{
if(!$spisok_param{sub1}){$spisok_param{sub1}="";}
if(!$spisok_param{sub0}){$spisok_param{sub0}="";}
$spisok_param{sub0}
$spisok_param{sub1}
};
}

Впервые с таким встречаюсь... В чём может быть дело?
Значения в хеш получаю следующим образом
my @spisok_param=("sub0","sub1");
foreach(@spisok_param){$spisok_param{$_}=$Objekt->param($_);}

Название: ничего не понимаю:(
Отправлено: ondr от 13 Марта 2004, 09:20:56

Что в логах?

Название: ничего не понимаю:(
Отправлено: glebushka от 13 Марта 2004, 23:02:44

Цитировать

ondr:
Что в логах?

"Premature end of script headers"

Название: ничего не понимаю:(
Отправлено: NeoNox от 13 Марта 2004, 23:32:19

найди отличия:
$spisok_param{sub0}$spisok_param{sub1}
$spisok_param{sub0};$spisok_param{sub1};

Название: ничего не понимаю:(
Отправлено: glebushka от 14 Марта 2004, 01:06:35

Цитировать

NeoNox:
найди отличия:
$spisok_param{sub0}$spisok_param{sub1}
$spisok_param{sub0};$spisok_param{sub1};

да, вижу отличия:)
Извиняюсь, конечно не совсем корректно я задал вопрос, в оригинале в цикле вызвается подпрограмма:
$text.=&UTIL::very_small_form("","editrazdel",$spisok_param{sub0},$spisok_param{sub1},$spisok_param{sub2},$$data[0]);
Вообще мистика какая-то:( Сейчас я тупо скопировал подпрограмму целиком, как была в исходном файле, и скрипт перестал виснуть...