在Perl中使用模块

Question

我正在尝试为示波器创建一个函数库，但似乎无法让其他模块文件正常播放。

除了Oscope.pm文件之外，这里还有什么。 如果需要，我也可以上传。

test.pl

# Includes
use 5.012;
use Oscope;
use Oscope::Acquire;
use warnings;

# From Oscope.pm
my $scope = Oscope->new('port', 'COM3');

# From Oscope::Acquire.pm
$scope->QueryAcquire();

Oscope / Acquire.pm

package Oscope::Acquire;

use Oscope;
use parent 'Oscope';

sub QueryAcquire
{
   my ($self) = @_;
   # Oscope.pm
   my $message = $self->Send('ACQUIRE?');
   return();
}

1;

输出量

无法通过C：\\ Documents and Settings \\ ericfoss \\ My Documents \\ Slick \\ Perl \\ tests \\ Test.pl第11行的“ Oscope”包找到对象方法“ QueryAcquire”。

Answer 1

Oscope->new('port', 'COM3')

应该

Oscope::Acquire->new('port', 'COM3')

Answer 2

您的lib软件包在哪里，将您的代码放在此处。 您也可以使用

use lib "path"

在这里可以找到另一种解释，答案需要超过lib。

您所在区域的消息说明了所有问题，因为找不到功能。

Answer 3

我不会说这是个好主意。 您显然想要Oscope::Aquire修补Oscope 。 这是可能的，但是我建议使用Oscope::Acquire导出带有Oscope参数的函数（ 有关导出的更多信息 ）：

Oscope / Acquire.pm

package Oscope::Acquire;
require Exporter 'import';
@EXPORT_OK = qw{QueryAcquire};

use Oscope;

sub QueryAcquire
{
    my ($oscope) = @_;
    my $message = $oscope->Send('ACQUIRE?');
    return $message;
}

1;

您将使用哪种：

use Oscope;
use Oscope::Acquire 'QueryAcquire';

my $oscope = Oscope->new();
print QueryAquire($oscope);

但是，如果您确实需要$oscope->QueryAcquire()语法，并且不想将其放在Oscope本身中，则可以猴子修补模块。 Perl文档将其称为通过typeglob修改模块的符号表 ，并且显然已弃用（“直接创建新符号表条目的结果...是未定义的，并且可能在perl的发行版之间进行更改”）：

Oscope / Acquire.pm

package Oscope::Acquire;

use Oscope;

*Oscope::QueryAcquire = sub {
    my ($self) = @_;
    my $message = $self->Send('ACQUIRE?');
    return $message;
}

1;

---

我应该仔细阅读自己的链接。 似乎批准的方法是将方法简单地添加到Oscope/Acquire.pm文件中的Oscope包中（“您可以通过显式限定子例程的名称来定义其例程之外的子例程”）：

package Oscope::Acquire;
use Oscope;

...

sub Oscope::QueryAcquire {
    my ($self) = @_;
    my $message = $self->Send('ACQUIRE?');
    return $message;
}

1;

也就是说，不需要typeglob。

Answer 4

如代码所示，您可以说$scope->Oscope::Acquire::QueryAcquire(); ，但要获得理想的效果，您需要将其作为包装的一部分。

package Oscope;

sub QueryAcquire
{
   # Code here
}

1;