Perl 5.10 — минифаг

Несколько изменений:
Функция say
Аналог старого-доброго print, с тем лишь отличием, что say автоматически добавляет «\n» к выводимой строке:
# привычный
print «$_\n» for @lines;
# становится лаконичнее
say for @lines;

Оператор //
Смесь || и defined, которая называется defined-or. Известно, что следующий код не совсем корректен, поскольку не учитываются «ложные» значения «» и 0:
$var = $_[0] || ‘default’;
Корректная запись выглядит так:
$var = $_[0];
$var = ‘default’ unless defined $var;
# или
$var = defined $_[0] ? $_[0] : ‘default’;
Благодаря новому оператору // предыдущих два примера переписываются вот таким образом:
$var = $_[0];
$var //= ‘default’;
# или
$var = $_[0] // ‘default’;

Оператор ~~
Данный оператор реализует механизм умного сопоставления или smart matching. Он является коммутативным (то есть, $a ~~ $b эквивалентно $b ~~ $a) и его поведение зависит от типов передаваемых аргументов. Например:
say «$x существует» if $x ~~ @array; # grep $_ == $b, @$a или grep $_ == $b, @$a
say «foobar в массиве» if @x ~~ /foobar/; # grep /$b/, @$a
say «$key существует» if $key ~~ %hash # exists $a->{$b}
Другими словами, ~~ — это «все-в-одном». Такое себе контекстно-зависимое сокращение. Полная таблица поведений доступна по ссылке из заголовка.

given — аналог C-конструкции switch
Теперь эта конструкция built-in. Ее реализуют три новых слова: given, when и default. К тому же, она использует, описанное выше, умное сопоставление. Пример в студию!
# вместо вот этого
if( $var ~~ undef ) { … }
elsif( $var ~~ $var ) { … }
elsif( $var ~~ @array ) { … }
elsif( $var ~~ %hash ) { … }
elsif( $var ~~ /regexp/ ) { … }
else { … }
# теперь пишем так
given( $var ) {
when( undef ) { … }
when( $var ) { … }
when( @array ) { … }
when( %hash ) { … }
when( /regexp/ ) { … }
default { … }
}
Игра «Отгадай число» (:
use feature qw( switch say );
my @guessed;
my $num = int( rand 100 ) + 1;
while( my $guess = ) {
chomp $guess;
given( $guess ) {
when( /\D/ ) { say «Число, пожалуйста» }
when( @guessed ) { say «Это вы уже называли» }
when( $num ) { say «В яблочко!»; last }
when( $_ < $num ) { say "Маловато"; continue } when( $_ > $num ) { say «Многовато»; continue }
push @guessed, $_;
}
}

Регулярные выражения
Буферам захвата теперь можно давать имена. Для этого используем синтаксис (?…). Существует возможность обращаться к именованным буферам в теле самого выражения — \k. Хеш %+ используется для доступа к содержимому захваченных буферов. Существует похожий хеш %-, отличие которого состоит в том, что он хранит не само значение, а ссылку на массив значений всех захваченных буферов с одинаковыми именами.
# name=value
$str =~ /(?\w+)=(?\w+)/;
say «The value of $_ is $+{$_}» foreach keys %+;
Добавлены собственнические квантификаторы (possessive quantifiers). Такие квантификаторы сопоставляют максимально-длинную подстроку и никогда ее не отпускают, то есть машина регулярных выражений не пытается сопоставить более короткую подстроку. Синтаксис схожий с «не жадными» квантификаторами, только вместо знака «?» используется «+». То есть: ?+, *+, ++, {min,max}+.

state-переменные
C-аналог модификатора static. Переменные объявленные со словом state имеют лексическую область видимости, но сохраняют свое значение постоянно.
sub counter {
state $i = 0;
return $i++;
}

Filetest -X операторы стали стековыми
Теперь запись
-x $file && -w _ && -f _
сокращаем до
-f -w -x $file

Обсуждение закрыто.

Яндекс.Метрика