如何在 Perl 中设置 MQSeries

Question

我被分配将请求消息放置到 Websphere MQ 队列并使用 perl 脚本监听响应队列以获取响应消息。

我有 MQ 方面的经验，但没有 Perl 脚本方面的经验 ..

我在 perl 模块上搜索了一些名为“CPAN mqseries 模块”的东西，可用于集成 WBI MQ。

但是我不知道如何在我的 unix 环境中设置它。 我为我的 unix 团队提供了以下链接

• MQ-Series-1.34
• App-cpanminus-1.7040

即使我在这里的 unix 团队也对设置一无所知，他们询问“软件是否具有 RPM 包或 AIX 二进制文件”......但我在任何地方都看不到它们。 他们不知道如何使用 CPAN 进行设置。

我尝试从mqseries.1.34 复制所有.pm 文件，这些文件是从/usr/opt/perl/5.8.8/lib/ 下的上述链接下载的，如何在尝试调用一些仅加载模块的示例perl 时出现以下错误。

在这里我附上了我的示例脚本。

package myMQModule;

use strict;
use warnings;

use MQSeries;
use MQSeries::QueueManager;
use MQSeries::Queue;
use MQSeries::Message;


1; # end with a true value

在上面运行脚本时出现以下错误`

"functions" is not defined in %MQSeries::EXPORT_TAGS at /usr/opt/perl5/lib/5.8.8/aix-thread-multi/MQSeries/QueueManager.pm line 20
Can't continue after import errors at /usr/opt/perl5/lib/5.8.8/aix-thread-multi/MQSeries/QueueManager.pm line 20
BEGIN failed–compilation aborted at /usr/opt/perl5/lib/5.8.8/aix-thread-multi/MQSeries/QueueManager.pm line 20

所以我需要有关如何在我的 unix 环境中设置 mqseries 模块的帮助，是否有任何指南可以做到这一点。 你帮助高度赞赏.. 请帮忙！！！

Answer 1

最好不要手动安装 Perl 模块。您已经找到了 cpanminus，它是为您安装模块的好工具，但您需要先安装它。来自metacpan 站点的这里是安装 cpanminus 的说明：

curl -L https://cpanmin.us | perl - --sudo App::cpanminus 

注意，它确实需要超级用户权限。

安装 cpanminus 后，使用它从 shell 正确安装 MQSeries 模块：

cpanm MQSeries
cpanm MQSeries::QueueManager
etc

如果有任何依赖，cpanminus 会为你处理这些。

注意：某些模块具有二进制组件，可能需要开发工具（gcc 等）来构建它们。

继续您的脚本。你在那里写的是一个模块，而不是一个脚本。如果您编写一个脚本来“使用”您的模块，您将能够将函数放入模块中并从您的脚本中调用它们，例如：

#!/usr/bin/env perl
use strict;
use warnings;
use myMQModule;

my $ret_val = myMQModule::some_func();
.
.

我认为您需要首先通过安装 cpanm 并尝试安装模块来确保您的模块已正确安装，如果模块已正确安装，它将报告您拥有最新版本并且不再执行任何操作。