perl中的函数原型

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尚未见过原型,因此无法应用它.(如果你打开警告,你应该总是这样,你会收到一条消息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");

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

    sub myPush (\@@);

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

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