如何创建一个接受多个块的 Perl 子例程？

Question

使用原型，您可以创建一个接受代码块作为其第一个参数的子例程：

sub example (&) {
   my $code_ref = shift;
   $code_ref->();
}
example { print "Hello\n" };

我怎样才能做同样的事情，但不止一个代码块？我想使用代码块，而不是变量或sub { ... }。

这不起作用：

sub example2 (&&) {
   my $code_ref = shift;
   my $code_ref2 = shift;
   $code_ref->();
   $code_ref2->();
}
example2 { print "One\n" } { print "Hello\n" };

它给出了这个错误：

Not enough arguments for main::example2

Answer 1

我希望您意识到这只是代码调整，而您所获得的只是更简洁的语法，而牺牲了清晰度？

Perl 不允许您将多个裸块传递给子例程，但第二个实际参数可以是对子例程的调用，该子例程也采用单个块并简单地返回代码引用。

这个程序演示。请注意，我选择了please 和also 作为子例程的名称。但是您必须使用既适合您自己的代码功能又不太可能与即将推出的核心语言扩展发生冲突的东西。

use strict;
use warnings;

sub please(&$) {
  my ($code1, $code2) = @_;
  $code1->();
  $code2->();
}

sub also(&) {
  $_[0];
}

please { print "aaa\n" } also { print "bbb\n" };

输出

aaa
bbb

Answer 2

为我工作...

sub example2  {
   my $code_ref = shift;
   my $code_ref2 = shift;
   $code_ref->();
   $code_ref2->();
}
example2 ( sub { print "One\n" }, sub { print "Hello\n" });

仅出于 TMTOWTDI 的目的，这里是一种以 OP 请求的方式工作的方法

首先，做一个源过滤器

package poop;

use Filter::Util::Call;

sub import {
    my ($type) = @_;
    my ($ref)  = [];
    filter_add( bless $ref );
}

sub filter {
    my ($self) = @_;
    my ($status);
if (( $status = filter_read() ) > 0) { 
        if(!/sub/ && /example2/) {
            s/\{/sub \{/g;
            }
        }

    $status;
}
1;

必须使用第二个过滤器

use poop;

sub example2  {
   my $code_ref = shift;
   my $code_ref2 = shift;
   $code_ref->();
   $code_ref2->();
}
example2 ( { print "One\n" }, { print "Hello\n" });

ps。这太可怕了，没有人希望在生产中看到这个

Answer 3

你可以 eval 块

use experimental 'signatures';
use feature 'say'; 

sub doublethecode ($block1, $block2) { eval { $block1; }; eval { $block2;} } ;
doublethecode \&{ print "OH " }, \&{ say for qw/HAI YOU LOLCAT :-P/  }; 

输出：

OH, HAI
YOU
LOLCAT
:-P

然后忽略\&就可以了。

从v5.20 开始，您可以同时使用签名和:prototype 属性。 signatures 特性提供了更“通用”的语法和极简的参数检查。也许有一天，未来的 perl 将拥有某种“内置”（可选的、高度灵活的）类型系统来配合它，但现在的原型并不是那样的。所以像：

sub doublethecode :prototype(\&\&) ($cr1, $cr2) { $cr1 ; $cr2 ; }

不是它看起来的那样。由于原型、signatures 和带有:prototype(&&) 的签名可能无法为您提供您所想得到的，这可能已经足够了：

sub doublethecode { eval { shift };  eval{ shift } } ;
doublethecode &{ print "perl" }, &{ print "6" }

输出：

perl6

为了确保 perl 不认为 {} 是哈希，& 是必要的。但实际上......在这里使用匿名子例程sub { } 有什么问题？

Answer 4

Fwiw，在 Perl 6 中：

sub doublecode (&foo, &bar) { foo(), bar() }
doublecode { print 1 }, { print 2 } # prints 12

但请参阅my partial list of caveats about Perl 6。

Answer 5

这对我有用：

     example { print "One\n" } sub { print "Hello\n" };