50. Flip-flop в Perl 6

Ура, это уже 50-я заметка в новом сезоне perl6.ru!

Сегодня мы поговорим об операторе флип-флоп, который похож на то, что было в пятом перле в виде трех точек. В Perl 6 этот оператор имеет вид ff.

Классический пример, на котором видно, как работает оператор, — пропуск Pod-документации:

say 'Hello, World!';

=begin pod
Documentation to the
"Hello, World!" program.
=end pod

say 'All done.';

Теперь берем перл и читаем программу построчно:

my @lines = './helloworld.pl'.IO.lines;

А затем проходимся в цикле по строкам и с помощью ff пропускаем блоки строк, начиная с открывающей строки =begin и заканчивая закрывающей =end:

for @lines {
    next if /^ '=' begin/ ff /^ '=' end/;
    .say;
}

На печати появляется код, очищенный от комментариев:

say 'Hello, World!';
say 'All done.';