设置Perl模块结构

发布时间：2020-12-16 06:16:27 所属栏目：大数据来源：网络整理

导读：我无法弄清楚如何以面向对象的方式构造Perl模块,因此我可以让一个父模块具有多个子模块,并且只有所需的特定子模块才会被调用脚本加载.例如,我希望能够像这样进行方法调用： use Example::API; my $api = Example::API-new();my $user = {};$user-{'id'} = '1

我无法弄清楚如何以面向对象的方式构造Perl模块,因此我可以让一个父模块具有多个子模块,并且只有所需的特定子模块才会被调用脚本加载.例如,我希望能够像这样进行方法调用：

use Example::API;    
my $api = Example::API->new();

my $user = {};
$user->{'id'} = '12345';

$api->Authenticate();
$user->{'info'} = $api->Users->Get($user->{'id'});
$user->{'friends'} = $api->Friends->Get($user->{'id'});

在文件结构方面,我希望将模块设置如下,或者以任何结构使一切正常工作：

api.pm
users.pm
friends.pm
...

我想首先这样做的原因是,如果有人只想对API进行身份验证,他们就不必加载所有其他模块.同样,如果有人只想获取用户的信息,他们就不必加载friends.pm模块,只需加载users.pm.如果您能提供必要的示例Perl代码来设置每个模块以及解释如何设置文件结构,我将不胜感激.如果我想要完成我想要完成的任何事情,我会很感激地解释最好的方法和一些关于如何设置的示例代码.

解决方法

从您的示例中,在您的主模块中,我假设您将提供访问器方法来获取子类.所以你要做的就是包括require Sub :: Module;在该方法的顶部.编译时不会发生任何事情,但第一次运行代码时,perl将加载模块.第一次加载后,该行需要Sub :: Module;将成为一个无操作.

如果所有代码都是面向对象的,则无需担心导入函数.但如果你这样做,声明使用Module qw(a b c);被解释为：

BEGIN {
    require Module;
    Module->import(qw(a b c));
}

BEGIN使它在编译时发生,但没有什么能阻止你在运行时使用内部.您在运行时导入的任何子例程都必须使用括号调用,并且原型将不起作用,因此除非您知道自己在做什么,否则运行时导入可能是个坏主意.运行时需要和通过包方法访问是完全安全的.

所以你的$api-> Users方法可能会像这样工作：

# in package 'Example::API' in the file 'Example/API.pm'

sub Users {
    require Example::API::Users;  # loads the file 'Example/API/Users.pm'
    return  Example::API::Users->new( @_ ); # or any other arguments
}

在上面的示例中,我展示了包名称和它们所在文件之间的两个转换.通常,所有::都更改为/并将.pm添加到结尾.然后perl将在全局变量@INC的所有目录中搜索该文件.您可以查看require的文档以获取所有详细信息.

更新：

缓存此方法的一种方法是在运行时使用仅返回值的函数替换它：

sub Users {
    require Example::API::Users;
    my $users = Example::API::Users->new;

    no warnings 'redefine';
    *Users = sub {$users};

    $users
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!