如何在 Perl 中传递可选参数？ （对于初学者）

Question

我读过http://www.perl101.org/subroutines.html，但我就是不明白可选参数。

我想拨打PDF::API2 中的following sub。文档说“-indent”是一个选项。我究竟如何传递一个缩进 20 的参数？

这是我目前正在传递的内容：

$txt->section($str, $contentwidth,$heightmax);

这是子

sub section {
    my ($self,$text,$width,$height,%opts)=@_;
    my $overflow = '';

    foreach my $para (split(/\n/,$text)) {
        if(length($overflow) > 0) {
            $overflow .= "\n" . $para;
            next;
        }
        ($para,$height) = $self->paragraph($para,$width,$height,%opts);
        $overflow .= $para if (length($para) > 0);
    }
    if (wantarray) {
        return ($overflow,$height);
    }
    return $overflow;
}

Answer 1

my ($self, $text, $width, $height, %opts) = @_;

%opts 提供了它。您需要传递一个键值对列表。但它不是参考，只是可选的附加值。

$self 由 Perl 为您插入。然后你就得到了你已经传递的三个强制参数。之后就是选项了。

$obj->section( $text, $width, $height, -indent => 1 );

将这些选项分配给%opts 的方式会将高度之后的所有剩余参数吞入该哈希中，并将稍后传递给$self->paragraph。

只要确保它总是成对的值。