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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка компиляции и switch 
:(
    Опции темы
cerberon
Дата 15.4.2010, 17:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 15.4.2010

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



Есть вот такой простенький код:
Код

#!/usr/bin/perl

use Switch;

print 123/123;
sub1("qwe");

sub sub1
{
    my ($s)=@_;
    switch($s) {
        case "qwe" {print 123;}
        else {print 321;}
    }                
}

sub sub2 {
    my ($s)=@_;
    $s=~/wq/;
}

ругается на switch-case, как если бы не был подключен модуль Switch
Теперь магия раз: закомментируем строку "print 123/123;" - не ругается и работает.
Раскомментируем обратно - опять ругается.
Закомментируем строчку "$s=~/wq/;" - ничего не изменилось, по прежнему ругается на switch.
Магия два: удалим строку "$s=~/wq/" (можно заменить /wq/ на m!wq!, главное избавиться то слешей) - снова не ругается и работает.
В чем тут загвоздка?
PM MAIL   Вверх
Pfailed
Дата 15.4.2010, 18:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39



Видимо магия в том что этот модуль использует source-фильтры.
Используйте оператор given, который появился в perl 5.10 вместо этого модуля.

Добавлено через 3 минуты и 7 секунд
Хотя у меня ваш пример выполняется без ошибок, возможно стоит обновить модуль, а заодно и perl до 5.10 и пользоваться given.


--------------------
PM MAIL   Вверх
NuINu
Дата 15.4.2010, 20:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 131
Регистрация: 19.7.2008

Репутация: 5
Всего: 6



просто никогда не пользуйтесь switch и все
elsif работает вполне приемлемо.


то что написано в коде - ересь! читать не возмножно, нарушает привычный синтаксис перла. повторю совет, не пользуйтесь этой гадостью, на си все равно не похоже.
PM MAIL   Вверх
cerberon
Дата 15.4.2010, 22:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 15.4.2010

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



Цитата(Pfailed @  15.4.2010,  18:07 Найти цитируемый пост)
Используйте оператор given, который появился в perl 5.10 вместо этого модуля.

спасибо попробую

Цитата(NuINu @  15.4.2010,  20:46 Найти цитируемый пост)
то что написано в коде - ересь! читать не возмножно, нарушает привычный синтаксис перла

код разумеется бессмысленен, не выкидывать же сюда всю простыню на 300 строк, вот я и вычислил минимальный код, на котором возникает подобная ошибка
не знаю какой там для перла привычный синтаксис, но маяться с elsif'ами - издевательство, тем более если мне нужен функционал next
PM MAIL   Вверх
mvsgt
Дата 16.4.2010, 11:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 209
Регистрация: 27.3.2009

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



Издевательство - писать код, который невозможно поддерживать.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




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


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

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