perl - 当调用的参数比预期的多时，子程序是否应该嘎嘎作响？

Question

子程序在调用时是否应该使用比预期更多的参数，还是应该忽略额外的参数？

#!/usr/bin/env perl
use warnings;
use strict;


sub routine {
    my ( $a, $b ) = @_;
    return $a * $b;
}

my $reslult = routine( 4, 5, 6 );

Answer 1

一般来说，我不会费心手工编写参数检查，但我认为正确的 react 是呲牙咧嘴。这样你就可以扩展函数以在以后接受可选参数而不会破坏现有的调用者。

如果你的 Perl 足够新，你可以像这样安装和使用 Function::Parameters :

use warnings;
use strict;
use Function::Parameters qw(:strict);

fun routine($x, y) {
    return $x * $y;
}

my $result = routine(4, 5, 6);  # croaks automatically

(顺便说一句，不要将您的变量称为 $a 或 $b :这些名称由 sort 使用并免于 strict 'vars' 检查。)