return $a - $b;

}

say 10 + 20; # -10

sub postfix:<@> ($power)

{

    2 ** $power;

}

say 8@; # 256

gather и take

В Perl 6 появилась удобная пара gather/take, которая помогает избежать вспомогательного массива, когда нужно сохранять промежуточные результаты в циклических операциях.

# gather.p6

say gather

{

   for 1..5 -> $c

   {

      take $c;

   }

}

Каждый вызов take добавляет новое значение в массив, возвращаемый блоком gather, и программа напечатает строку 12345. (Кстати, стрелка –> здесь является не чем иным, как началом анонимной функции.)

given, when и default

Ключевые слова given, when и default предназначены для организации конструкции типа switch в C:

# given.p6

my $x = 'y';

given ($x)

{

    when "a" {say 'First letter'}

    when "b" {say 'Second letter'}

    default {say "Is '$x'"}

}

Блоки when могут содержать и более сложные конструкции, например, сопоставление с регулярным выражением:

given ($x)

{

    when /<[a-z]>/ {say 'isalpha'}

}

Программа напечатает isaplha, поскольку буква «y» совпадает с символьным классом <[a-z]> в регулярном выражении.

Новые регулярные выражения