Модераторы: ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> perl5.10 и perl5.12 проблема в while цикле 
:(
    Опции темы
gcc
Дата 10.3.2011, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: нет
Всего: 17



делаю самое элементарное

Код

$h->{$1."%".$2}++  while ( $CGI->{in} =~ /(\d{1,6})[X*%]+(\d{4})/g );


работает!
работает на версии:
Код

This is perl, v5.10.1 (*) built for i486-linux-gnu-thread-multi



но когда, пытаюсь на сервер
Код

This is perl 5, version 12, subversion 1 (v5.12.1) built for i386-freebsd-thread-multi-64int


данный участок кода с while идет в безконечность
как только его закомментирвоать, то безконечности нету!

что поменялось в while на v5.12.1?

т.е. мне нужно получить массив или хэш или такие строки $1."%".$2


Это сообщение отредактировал(а) gcc - 10.3.2011, 19:15
PM WWW ICQ Skype GTalk Jabber   Вверх
ming
Дата 14.3.2011, 18:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 97
Регистрация: 30.1.2009
Где: Новосибирск

Репутация: 1
Всего: 3




use warnings?

может быть стоит переписать на 
while ( что-то ) {
   делать то-то
}
потому что $1 и $2 еще не определены в форме "делать то-то while(что-то);"
PM MAIL ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Регулярные выражения | Следующая тема »


 




[ Время генерации скрипта: 0.0512 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.