如何正確調用帶2個子程序引用的子程序？

Question

想象一下這樣的子程序：

sub test(&&) 
{ 
    my $cr1 = shift; 
    my $cr2 = shift; 
    $cr1->(); 
    $cr2->(); 
} 

我知道我可以把它想：test(\&sub1,\&sub2)，但我怎麼能這樣調用它：

test { print 1 },{ print 2 }; 

如果我說的子程序只需要一個&，比發送一個塊將工作。我不知道如何使它與2

工作，如果我嘗試這樣運行它，我得到：

Not enough arguments for main::test at script.pl line 38, near "}," 

編輯：有沒有調用沒有sub的方式嗎？

Answer 1

你可以這樣做：

test(sub { print 1 }, sub { print 2 }); 

Answer 2

我有下面的代碼在我的計劃之一：

sub generate($$$$) 
{ 
    my ($paramRef, $waypointCodeRef, $headerRef, 
     $debugCodeRef) = @_; 
... 
    &$headerRef(); 
... 
     my $used = &$waypointCodeRef(\%record); 

我叫它與

CreateDB::generate(\%param, \&wayPointCode, \&doHeader, \&debugCode); 

Answer 3

您需要明確地說

test(sub { print 1 }, sub { print 2 }); 

或

test { print 1 } sub { print 2 }; 

隱含 「子」 僅可用於第一個參數。 http://perldoc.perl.org/perlsub.html#Prototypes：

一種&需要匿名的子程序，其中，如果作爲第一個參數傳遞，不需要的副關鍵字或隨後的逗號。

有些東西使用額外的字在那裏可以找到答案：

test { print 1 } against { print 2 }; 

sub against (&) { $_[0] } 
sub test (&@) { ... } 

，但我從來不喜歡那麼多。

Answer 4

如果你真的想彎曲的語法更然後採取看看使用Devel::Declare模塊Devel::Declare

例子：

• MooseX::Declare（GitHub repo）
• Test::Class::Sugar（GitHub repo）
• PerlX::MethodCallWithBlock （GitHub repo）

::申報可以通過 CPANTS

在這裏找到的modules on CPAN dependant對devel

完整列表例如，從Test::Class::Sugar pod：

use Test::Class::Sugar; 

testclass exercises Person { 
    # Test::Most has been magically included 

    startup >> 1 { 
     use_ok $test->subject; 
    } 

    test autonaming { 
     is ref($test), 'Test::Person'; 
    } 

    test the naming of parts { 
     is $test->current_method, 'test_the_naming_of_parts'; 
    } 

    test multiple assertions >> 2 { 
     is ref($test), 'Test::Person'; 
     is $test->current_method, 'test_multiple_assertions'; 
    } 
} 

Test::Class->runtests; 

這裏是從PerlX::MethodCallWithBlock pod東西性感：

use PerlX::MethodCallWithBlock; 

Foo->bar(1, 2, 3) { 
    say "and a block"; 
}; 

Devel :: Declare是一個多mor與使用像Filter::Simple這樣的源代碼過濾器相比，這是一種穩健和更加健全的扭曲Perl代碼的方式。

這是一個video從它的作者，這可能會幫助更多。

/I3az/