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}'

谢谢！

lisprog

Answer 1

EnterCriticalSection( &cs );
// do something
LeaveCriticalSection( &cs );

显示：

$.ajax({
            url: '{{URL::to('edit')}}',
            type: 'get',
            dataType: 'json',
            data: {'id': $id},
            success:function(data){

              var data = jQuery.parseJSON(JSON.stringify(data));
              console.log(data);
              for(var i=0;i<data.length;i++){
                  $('.modal-body #name').val(data[i].name);
                  $('.modal-body #email').val(data[i].email);
                  $('.modal-body #phone').val(data[i].phone);
                  $('.modal-body #status').val(data[i].status);
                  $('#meroModal').modal('show');
              }

请参阅Phasers。