perl 监控websphere 队列和通道状态

最新推荐文章于 2025-01-03 17:55:09 发布

scan724

最新推荐文章于 2025-01-03 17:55:09 发布

阅读量513

点赞数

CC 4.0 BY-SA版权

分类专栏： Websphere Mq

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/60141843

Websphere Mq 专栏收录该内容

22 篇文章 ¥39.90 ¥99.00

订阅专栏

本文介绍如何使用Perl脚本监控Websphere应用程序服务器的MQ队列和通道状态，确保系统的稳定运行和及时发现潜在问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[mqm@node01 queue]$ cat t4.pl 
  use MQSeries;
  use MQSeries::Command;
  use Data::Dumper;
    #
  if ( $#ARGV < 4 ){
       print "Usage ./get_mq_sessage SYSTAG YWJZZF_CZCB_SEND CHANNEL1 192.168.137.2 5015 :!\n";
       exit(-1);
                 };

  my $systag=$ARGV[0];
  my $QueueManager=$ARGV[1];
  my $ChannelName=$ARGV[2];
  my $ip=$ARGV[3];
  my $port=$ARGV[4];
  my $qmgr_obj = MQSeries::QueueManager->new
    (
     QueueManager => "$QueueManager",
     ClientConn   => { 'ChannelName'    => "$ChannelName",
                       'TransportType'  => 'TCP', # Default
                       'ConnectionName' => "$ip($port)",
                       'MaxMsgLength'   => 16 * 1024 * 1024,
                     },
    ) ||

了解本专栏