Ой кому-то это понравится

Switch and Smart Match operator

Perl 5 now has a switch statement. It's available when use feature 'switch' is in effect. This feature introduces three new keywords, given, when, and default:
given ($foo) {
when (/^abc/) { $abc = 1; }
when (/^def/) { $def = 1; }
when (/^xyz/) { $xyz = 1; }
default { $nothing = 1; }
}

A more complete description of how Perl matches the switch variable against the when conditions is given in "Switch statements" in perlsyn.

This kind of match is called smart match, and it's also possible to use it outside of switch statements, via the new ~~ operator. See "Smart matching in detail" in perlsyn.

This feature was contributed by Robin Houston.

________________

#!/usr/bin/perl
print " :) "

Ага:)
Сейчас буду ставить:)

Аааааа, нет в репозиториях пока:) Птичка обломинго:) Жду:)