如何知道perl子程序是否带参数

Question

我对 perl 很陌生，我似乎找不到任何关于如何知道子例程是否接受参数的信息。

在其他语言中（例如python、java等），很清楚，一个方法/函数通常是这样的：

    def my_func(arg1, arg2):
        # do something

但在 perl 中，它很简单：

    sub my_func {
        my params = @_;
        # do something
    }

但是我看到了一些例子，其中 my params = @_ 甚至不包括在内，但子例程被调用并传递了一个参数。

例如

    sub my_func {
        my $self = shift;
        my $fieldstr = 'tbl'.$self->db_func.'*,';
        my $sql = "SELECT $fieldstr FROM tbl".$self->db_func.'WHERE'.$self->...;

        my $sth = $self->other_func->my_func($sql) or return undef;
    }

所以我想知道是否有某种准则可以知道子例程是否需要参数？

Answer 1

请看my answer to a similar question。

Perl 非常灵活，因为子例程可以简单地忽略多余的参数，为缺少的参数提供默认值，或者如果参数与预期的完全不符，则die。

Perl 的作者Larry Wall 是一位语言学家，其基本原理是子程序的行为类似于命令式动词；所以就像你可以说“取木头”、“从棚子后面取木头”或“使用拖拉机”，你也可以这么说

fetch($wood)
fetch($wood, $shed)
fetch($wood, $shed, $tractor)

甚至

fetch($wood, {from => 'shed', using => 'tractor'})

这取决于子例程来确定所需的内容。

应避免使用子例程原型，因为它们具有以不明显方式改变代码行为的副作用。它们仅用于编写额外的语言结构；一个很好的例子是Try::Tiny。

Answer 2

参数在@_ 中传递，因此您需要寻找@_ 的用途。例如，

• my ($x, $y) = @_;
• 子中的shift 与shift(@_) 相同
• $_[$i]
• &f（但不是&f()），如sub log_warn { unshift @_, 'warn'; &log }

作为一个子作者，您应该尽可能在靠近子顶部的地方使用它们，以使它们明显。最后两个通常用作优化或具有引用参数。

Answer 3

子程序调用的参数包含在数组@_中。

数组操作的两个重要函数是shift 和pop。假设您有一个列表 (1, 2, 3, 4)。 shift 从列表左侧移除一个值并返回它。

my @list = ( 1, 2, 3, 4 );

my $value = shift @list;

print "$value\n";    # will print "1"
print "@list\n";     # will print "2 3 4"

pop 从右侧而不是左侧做同样的事情：

my @list = ( 1, 2, 3, 4 );

my $value = pop @list;

print "$value\n";    # will print "4"
print "@list\n";     # will print "1 2 3"

在子程序中使用时，pop 和 shift 默认使用 @_ 数组：

some_function( 'James', 99 );    #these 2 arguments will be passed to the function in "@_"

sub some_function {
    my $name = shift;             #remove 'James' from list @_ and store it in $name
    my $age  = shift;             #remove 99 from list @_ and store it in $age
    print "Your name is $name and your age is $age\n";
}