get_mq_message.pl

来源：互联网发布：淘宝助理图片搬家失败编辑：程序博客网时间：2024/06/06 01:05
  use MQSeries qw(:functions);  use MQSeries::QueueManager;  use MQSeries::Queue;  use MQSeries::Message;  use MQSeries::Command;  use Data::Dumper;  #  # Open a queue for input, loop getting messages, updating some  # database with the data.  #  if ( $#ARGV < 4 ){       print "Usage ./get_mq_sessage YWJZZF_CZCB_SEND CHANNEL1 192.168.137.2 5015 CZ_RSP:!\n";       exit(-1);                 };  my $QueueManager=$ARGV[0];  my $ChannelName=$ARGV[1];  my $ip=$ARGV[2];  my $port=$ARGV[3];  my $QueueName=$ARGV[4];   my $qmgr_obj = MQSeries::QueueManager->new    (     QueueManager => "$QueueManager",     ClientConn   => { 'ChannelName'    => "$ChannelName",                       'TransportType'  => 'TCP', # Default                       'ConnectionName' => "$ip($port)",                       'MaxMsgLength'   => 16 * 1024 * 1024,                     },    ) || die("Unable to connect to queue manager\n");  my $queue = MQSeries::Queue->    new(QueueManager => $qmgr_obj,        Queue        => "$QueueName",        Mode         => 'input',       ) or die("Unable to open queue.\n");  my $command = MQSeries::Command->new(QueueManager => $qmgr_obj);    my $getmessage = MQSeries::Message->new(Data =>"");       $attr = $command->InquireQueue       (        QName          => "$QueueName",        QAttrs         => [qw(                              OpenInputCount                              OpenOutputCount                              CurrentQDepth                               )],       ) or die "InquireQueue: " . MQReasonToText($command->Reason()) . "\n";        print "$QueueName 当前队列深度为==";       print $attr->{CurrentQDepth}."\n";    $queue->      Get(Message => $getmessage         ) or die("Unable to get message\n" .           "CompCode = " . $queue->CompCode() . "\n" .           "Reason = " . $queue->Reason() . "\n");    my $msg_header = $getmessage->MsgDesc();     my $msg_data = $getmessage->Data();    print "MsgSeqNumber====";    print $msg_header->{MsgSeqNumber}."\n";    print "第一条消息内容==";    print $msg_data;    print "\n";    #print Dumper(%$msg_header);     $qmgr_obj->Close();
0 0