perl6如何在管道$*的开始和结束时做某事

Question

在尴尬中，有特殊的模式开始和结束，可以在读取输入之前和之后做一些事情。perl6中的等效函数是什么？例如：

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

谢谢！

lisprog

Answer 1

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

显示：

begin
middle
end

请参阅移相器。