perlmqseriesは非常に完全です。以下はいくつかのサンプルコードです。(サンプルのクレジットの一部はおそらく他の誰かに渡されますが、それは何年もの間私のドライブの周りに浮かんでいます。)コードはコマンドラインで指定されたキューマネージャーに接続します。指定されていない場合は、デフォルトのキューに接続しますマネジャー。次に、渡されたキュー名、具体的にはそのキューの現在の深さについて問い合わせます。これはユーザーに表示されます。このコードは、他のキュープロパティを表示するように簡単に変更できます。さらに、MQINQを使用して、キューだけでなく他のオブジェクトの属性について問い合わせることができます。サブセットのサンプルコードは次のとおりです。
use MQSeries;
my $quename = $ARGV[0];
my $quemgrname = $ARGV[1];
my $Hconn = MQCONN($qmgrname, $CompCode, $Reason);
print"MQCONN reason:$Reason\n";
my $ObjDesc = { ObjectType => MQOT_Q, ObjectName => $qname };
my $Options = MQOO_INQUIRE | MQOO_SET | MQOO_FAIL_IF_QUIESCING;
my $Hobj = MQOPEN($Hconn,$ObjDesc,$Options,$CompCode,$Reason);
print"MQOPEN reason:$Reason\n";
my $tst = MQINQ($Hconn,$Hobj,$CompCode,$Reason,MQIA_CURRENT_Q_DEPTH);
print"Depth of $qname is: $tst\n";
MQCLOSE($Hconn,$Hobj,$COptions,$CompCode,$Reason);
print"MQCLOSE reason:$Reason\n";
MQDISC($Hconn,$CompCode,$Reason);
print"MQDISC reason:$Reason\n";