IBM MQ 问题

Perl小手

在PERL 利用IBM MQ 消息队列中间件进行消息传递的时候，怎么用模块：
MQSeries::Message来设定消息类型？

目前是1个队列供多个程序使用，为了保证各个程序不接受错消息，各程序在接受消息前先判断消息类型，不属于自己接受的类型消息则不接受。

但怎么设定这个消息类型？（并不是在消息体内设计消息标志）

deathcult

没用过这个模块，查询perldoc MQSeries::Message
或者：
http://www.cpan.org/modules/by-module/MQSeries/MQSeries-1.19.readme
看看能否有帮助。

精灵gm鼠

my $putmsg = MQSeries::Message->;new
         (
          MsgDesc            =>;
          {
           Format            =>; MQFMT_STRING,
          },
         );

在Format里面可以指定消息格式。该格式是一个标识性的字串。