如何调用我在同一个文件中定义的Perl包？

发布时间：2020-12-15 21:17:33 所属栏目：大数据来源：网络整理

导读：我需要定义一些模块并将它们全部用在同一个文件中。不，我不能改变要求。我想做一些类似如下的事情： { package FooObj; sub new { ... } sub add_data { ... }}{ package BarObj; use FooObj; sub new { ... # BarObj "has a" FooObj my $self = ( myFoo =

我需要定义一些模块并将它们全部用在同一个文件中。不，我不能改变要求。

我想做一些类似如下的事情：

{
    package FooObj;

    sub new { ... }

    sub add_data { ... }
}

{
    package BarObj;

    use FooObj;

    sub new { 
        ... 
        # BarObj "has a" FooObj
        my $self = ( myFoo => FooObj->new() );
        ...
    }

    sub some_method { ... }
}

my $bar = BarObj->new();

但是，这会导致消息：

Can’t locate FooObj.pm in @INC …
BEGIN failed…

我该如何让这个工作？

解决方法

放弃使用。认真。

使用tell perl从另一个文件中读取代码，因为代码在同一个文件中，因此您不需要执行该操作。

（编辑：李大同）

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