![]() |
Модераторы: korob2001, ginnie |
![]() ![]() ![]() |
|
cerberon |
|
|||
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 15.4.2010 Репутация: нет Всего: нет |
Есть вот такой простенький код:
ругается на switch-case, как если бы не был подключен модуль Switch Теперь магия раз: закомментируем строку "print 123/123;" - не ругается и работает. Раскомментируем обратно - опять ругается. Закомментируем строчку "$s=~/wq/;" - ничего не изменилось, по прежнему ругается на switch. Магия два: удалим строку "$s=~/wq/" (можно заменить /wq/ на m!wq!, главное избавиться то слешей) - снова не ругается и работает. В чем тут загвоздка? |
|||
|
||||
Pfailed |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 933 Регистрация: 19.7.2009 Репутация: 22 Всего: 39 |
Видимо магия в том что этот модуль использует source-фильтры.
Используйте оператор given, который появился в perl 5.10 вместо этого модуля. Добавлено через 3 минуты и 7 секунд Хотя у меня ваш пример выполняется без ошибок, возможно стоит обновить модуль, а заодно и perl до 5.10 и пользоваться given. |
|||
|
||||
NuINu |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 131 Регистрация: 19.7.2008 Репутация: 5 Всего: 6 |
просто никогда не пользуйтесь switch и все
elsif работает вполне приемлемо. то что написано в коде - ересь! читать не возмножно, нарушает привычный синтаксис перла. повторю совет, не пользуйтесь этой гадостью, на си все равно не похоже. |
|||
|
||||
cerberon |
|
||||
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 15.4.2010 Репутация: нет Всего: нет |
спасибо попробую
код разумеется бессмысленен, не выкидывать же сюда всю простыню на 300 строк, вот я и вычислил минимальный код, на котором возникает подобная ошибка не знаю какой там для перла привычный синтаксис, но маяться с elsif'ами - издевательство, тем более если мне нужен функционал next |
||||
|
|||||
mvsgt |
|
|||
Бывалый ![]() Профиль Группа: Участник Сообщений: 209 Регистрация: 27.3.2009 Репутация: 1 Всего: 1 |
Издевательство - писать код, который невозможно поддерживать.
|
|||
|
||||
![]() ![]() ![]() |
Правила форума "Perl" | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Perl: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |