很多时候在不同系统之间进行数据交互的时候,往往会用到各种标准的数据载体,xml, file, JMS。在这里主要讲讲用perl发送和接收MQ消息。
我们用到的MQ server是IBM的MQ.
大致的步骤如下:
1,新建queue manager对象
2,新建queue对象
3,新建MQ message对象
4,通过queue对象get/put message对象。
5,关闭queue
简单的实例代码如下:
#!/usr/bin/perl -w
use strict;
use warnings;
#MQ related modules
use MQSeries;
use MQSeries::QueueManager;
use MQSeries::Queue;
use MQSeries::Message;
my $qmgr = MQSeries::QueueManager-&