perl - perl中的函数原型(prototype)

Question

我正在尝试创建具有与内置推送功能类似的功能的子例程 mypush，但以下代码无法正常工作。

    @planets = ('mercury', 'venus', 'earth', 'mars');
    myPush(@planets,"Test");

    sub myPush (\@@) {
         my $ref = shift;
         my @bal = @_;
         print "\@bal :  @bal\nRef : @{$ref}\n";
         #...
    } 

Answer 1

在这一行:

    myPush(@planets,"Test");

Perl 还没有看到原型(prototype)，所以不能应用它。 (如果你打开警告，你总是应该这样做，你会收到一条消息 main::myPush() called too early to check prototype。)

您可以在使用之前创建子例程:

    sub myPush (\@@) {
         my $ref = shift;
         my @bal = @_;
         print "\@bal :  @bal\nRef : @{$ref}\n";
         #...
    }

    @planets = ('mercury', 'venus', 'earth', 'mars');
    myPush(@planets,"Test");

或者至少用它的原型(prototype)预先声明它:

    sub myPush (\@@);

    @planets = ('mercury', 'venus', 'earth', 'mars');
    myPush(@planets,"Test");

    sub myPush (\@@) {
         my $ref = shift;
         my @bal = @_;
         print "\@bal :  @bal\nRef : @{$ref}\n";
         #...
    }