Switch / case в Perl

Довольно большим недостатком в Perl было отсутствие структуры switch ... case. Многие Perl - ненавистники приводили именно этот факт, в своих длинных речах против Perl. И я задумался, почему же такой структуры не существует? Это действительно очень странно.

Приходилось использовать что-то подобное, для создания псевдо-switch структуры:

#switch ($x)
$x==10 and do {some}
($x>20 and $x<50) and  do {some}

Были и более продвинутые варианты, с использованием цикла for.
Но, все равно - это не то.

А оказывается, структура switch ... case в Perl есть.
Для ее реализации нужно подключить модуль Switch, который входит в стандартный дистрибутив Perl 5.8+

use Switch;

$i=10;

switch($i){
case 1 {print "I=1";}
case 2 {print "I=2";}
case [3..11] {print "I=$i";}
else {print "Hello World";}
	  }

Обсудите статью на форумах

Оставьте комментарий к статье

Стоит почитать по теме «Perl-сценарии и CGI-скрипты»