Perl & Switch
Четверг, Декабрь 20, 2007То-то я не ожидал, что встречу эту конструкцию в Perl… Очень ее хотелось, но не знал что оно есть, потому что кнструкции типа:
if ($param == '1') {}
elsif ($param == '2') {}
else {};
очень уж громоздкие и не удобные. Да и вообще все не правильно. Все гениальное просто. И встречается тогда, когда встречается. Ни раньше, ни позже. Случайно нашел в Интернете. Источник уже что-то и не вспомню.
В общем, делается всё подключением модуля Switch.
use Switch;
switch($param) {
case 1 { ...; }
case 2 { ...; }
else { ...; }
};
Вуаля!