如何读取 Perl 中传递给构造函数的参数和 `use Module` 传递的参数？

Question

目前我正在制作一个新模块，我想知道如何在我的模块中实现 2 件事。

我们经常看到这样的use：

use My::Module qw(something);

例如：

use CGI::Carp qw(fatalsToBrowser);

1. 所以第一个问题是，我该如何 检索这个，我的意思是是否 用户指定了任何内容以及内容 他指定了？

2. 第二个问题是，我如何传递并读取参数 直接在构造函数上，例如 这个：

   my $my_module = My::Module->new(arg1,arg2,arg3);

AS 在评论中请求简单模块测试代码：

package My::Module;

# $Id$

use strict;
use Carp;

sub new {
        my $class = shift;
        my $self  = {};

        $self->{ARG1}         = undef;
        $self->{ARG2}         = undef;
        $self->{ARG3}         = undef;
        $self->{ARG4}         = undef;

        bless($self,$class);
        return $self;
}

sub arg1 {
        my $self = shift;
        if (@_) { $self->{ARG1} = shift }
        return $self->{ARG1};
}

sub arg2 {
        my $self = shift;
        if (@_) { $self->{ARG2} = shift }
        return $self->{ARG2};
}

sub arg3 {
        my $self = shift;
        if (@_) { $self->{ARG3} = shift }
        return $self->{ARG3};
}

sub arg4 {
        my $self = shift;
        if (@_) { $self->{ARG4} = shift }
        return $self->{ARG4};
}

sub dump {
        my $self = shift;

        require Data::Dumper;
        my $d = Data::Dumper->new([$self], [ref $self]);
        $d->Deepcopy(1);
        return $d->Dump();
}

1;  # so the require or use succeeds

Answer 1

perldoc -f use 解释了 use 关键字 只是在编译时加载模块，然后对其调用 ->import 。调用者提供给 use 语句的参数将被传递给 import 方法调用。

至于你的第二个问题：构造函数只是方法。获取它们的参数就像获取任何其他方法或函数一样，使用 @_< /代码>变量。

Answer 2

import 子例程获取在 use 中传递的参数。以下代码示例应该对您有帮助。

文件：My/Module.pm

package My::Module;

use warnings;
use strict;

use Data::Dumper;

sub import {
    my ( $package, @args ) = @_;

    print Dumper \@args;
}

1;

文件：module.pl

#!/usr/bin/env perl

use warnings;
use strict;

use My::Module qw(something);

如果您正在编写面向对象的模块，您可以尝试Moose 这将为您节省大量时间。