информационная безопасность
без паники и всерьез
 подробно о проекте
Сетевые кракеры и правда о деле ЛевинаЗа кого нас держат?Атака на Internet
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Claude Code мог сохранять пароли... 
 DigiCert оставила внутренний сервер... 
 Подмена пакетов в APT для Debian... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
как организовать switch() в Perl? Подскажите плз 11.03.05 22:14  
Автор: hotice Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Много способов 12.03.05 02:09  
Автор: Heller <Heller> Статус: Elderman
<"чистая" ссылка>
Во-первых, с помощью простых if'ов.
Во-вторых, можно создать хэш, в котором ключами будут являться то что обычно называется "case" (не знаю как это звучит по-русски), а соответственными значениями непосредственно код (или ператоры goto, или ссылки на подпрограммы - как удобнее) и потом требуюмую переменную можно сравнивать с ключами хэша, вызывая с помощью соответствующего значения требуемый код.
Третий способ мне кажется наиболее красивым:
SWITCH: {
 /n1/ && do {
  #код для $_=~/n1/
  #...
  #конец кода
  last SWITCH;
 };
 /n2/ && do {
  #код для $_=~/n2/
  #...
  #конец кода
  last SWITCH;
 };
 #и т. д....
 #а в самом конце, за
 #пределами конкретных блоков
 #(но внутри SWITCH) - код по умолчанию
 #default, то бишь
}

---
Вот и всё, в общем-то.
Спасибо ))) 13.03.05 22:24  
Автор: hotice Статус: Незарегистрированный пользователь
<"чистая" ссылка>
1





Рейтинг@Mail.ru


  Copyright © 2001-2026 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach