input - perl6 如何在管道 $*IN 的 BEGIN 和 END 处做一些事情？

Question

在 awk 中，有特殊的 BEGIN 和 END 模式允许您在读取输入之前和之后做一些事情。 perl6 中的等效函数是什么？例如:

cat someFile | perl6 -ne '{do something before reading input} 
                          {do something else with input}
                          {do something last after all inputs read}'

谢谢!

流水线

Answer 1

END say 'end';
say 'middle';
BEGIN say 'begin';

显示:

begin
middle
end

参见 Phasers .