mq put 消息

BEGIN{push(@INC,"/usr/local/perl/lib/site_perl/5.22.1/x86_64-linux")}; use MQSeries qw(:functions); use MQSeries::QueueManager; # # # Simplest, trivial usage # # my $qmgr = MQSeries::Q...