阅读(2273) (0)

子例程

2016-02-24 16:03:16 更新

使用 shift 检索子例程的参数

子例程的参数来自于特殊的 @_ 数组。不带参数的 shift 默认使用 @_

sub volume {
    my $height = shift;
    my $width  = shift;
    my $depth  = shift;

    return $height * $width * $depth;
}

使用列表赋值来赋给子例程参数

你也可以使用列表赋值赋给子例程参数:

sub volume {
    my ($height, $width, $depth) = @_;

    return $height * $width * $depth;
}

通过访问 @_ 直接处理子例程参数

在某些情况下,但我们希望很少,你能够通过 @_ 数组直接访问参数。

sub volume {
    return $_[0] * $_[1] * $_[2];
}

传递的参数能被修改

传递给子例程的参数是实际参数的别名。

my $foo = 3;
print incr1($foo) . "\n"; # prints 4
print "$foo\n"; # prints 3

sub incr1 {
    return $_[0]+1;
}

如果你想要这种效果的话,这样更好:

sub incr2 {
    return ++$_[0];
}

子例程没有检查参数

如果你喜欢,你能够将任意东东传递给子例程。

sub square {
    my $number = shift;

    return $number * $number;
}

my $n = square( 'Dog food', 14.5, 'Blah blah blah' );

该函数只会使用第一个参数。因为这个关系,你可以使用任意数目的参数, 甚至没有参数来调用函数。

my $n = square();

Perl 不会对此抱怨。

Params::Validate 模块解决了许多验证问题。

Perl 有原型,忽略它们

在演进的道路上加入了原型,因此你可以像这样干:

sub square($) {
    ...
}

my $n = square( 1, 2, 3 ); # run-time error

无论如何都不要使用它们。它们不会作用于对象,它们需要在调用子例程 前先予以声明。它们是好想法,但只是不实用。

利用 BEGIN 块在编译时做事

BEGIN 是一种特殊的代码块类型。它允许程序员在 Perl 的编译阶段执行 代码,这样可以执行初始化及做其他事情。

Perl 使用 BEGIN 在任意时导入模块。下列两个语句是等效的:

use WWW::Mechanize;

BEGIN {
    require WWW::Mechanize;
    import WWW::Mechanize;
}

传递数组及哈希引用

记住传给子例程的参数是作为一个大数组传递的。如果你像下面这样干:

my @stooges    = qw( Moe Larry Curly );
my @sandwiches = qw( tuna ham-n-cheese PBJ );

lunch( @stooges, @sandwiches );

那么传给 lunch 的是列表:

( "Moe", "Larry", "Curly", "tuna", "ham-n-cheese", "PBJ" );

在 lunch 中,你如何能告诉 stooges 结束及 sandwiches 开始的位置? 你不能。如果你尝试这样:

sub lunch {
    my (@stooges, @sandwiches) = @_;

那么所有 6 个元素都会跑到 @stooges 中,而 @sandwiches 什么都不会 得到。

答案是使用引用,正如:

lunch( \@stooges, \@sandwiches );

sub lunch {
    my $stoogeref   = shift;
    my $sandwichref = shift;

    my @stooges     = @{$stoogeref};
    my @sandwichref = @{$sandwichref};
    ...
}