[mqm@yyjk sbin]$ cat put_mq_message.pl
use MQSeries qw(:functions);
use MQSeries::QueueManager;
use MQSeries::Queue;
use MQSeries::Message;
use MQSeries::Command;
use Data::Dumper;
use MQSeries qw(:functions);
use MQSeries::QueueManager;
use Encode;
#
# # Simplest, trivial usage
# #
my $qmgr = MQSeries::QueueManager->
new(QueueManager => 'QM_PICP_313345010019_01',
ClientConn => { 'ChannelName' => "SVRCONN",
'TransportType' => 'TCP', # Default
'ConnectionName' => "1.3.240.1(9090)",
'MaxMsgLength' => 100 * 1024 * 1024,
}, ) ||
die("Unable to connect to queue manager\n");
my $msg_date='<?xml version="1.0" encoding="GBK"?><CFX><HEAD><VER>1.0</
订阅专栏 解锁全文
537
评论
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
查看更多评论
添加红包
