使用Net :: Stomp的Perl到Java Active MQ消息传递

Question

我正在尝试使用Perl的Net :: Stomp向Active MQ主题发送消息。 另一方面，Java客户端监视主题并从中获取消息。 Active MQ基于Spring框架，我在Spring config.xml中定义了以下内容

<amq:transportConnectors>
        <amq:transportConnector name="openwire" uri="tcp://localhost:61616" />
        <amq:transportConnector name="stomp" uri="stomp://localhost:61613" />
</amq:transportConnectors>
<!--  ActiveMQ destinations to use for RTlog Messages -->
<amq:topic id="rTlogDest"  physicalName="RTlogTopic" name="RTlogTopic"/>

从Perl发送的消息根本没有被另一端的Java客户端接收.perl代码如下所示。 它有什么问题吗？

use Net::Stomp;
my $stomp = Net::Stomp->new({hostname => 'localhost', port => '61613'});
$stomp->connect({login => 'admin', passcode => 'password'});

#$stomp->send({destination => 'RTlogTopic', body => 'test message'});

$frame = Net::Stomp::Frame->new(
      { command => 'SEND', 
        headers => { 'destination' => 'RTlogTopic',
                     'timestamp' => time
                   }, 
        body => 'test message' } );

$stomp->send_frame($frame);

$stomp->disconnect;

我也使用了$stomp->send方法（上面已注释掉），但它也不起作用。 然后我读到某个地方，STOMP需要消息被框架和发送，因此我构成了消息。 MQ Java侦听器适用于通过TCP（来自其他Java客户端）进入端口61616的消息，但我无法通过61613（多个消息生成器）使其适用于Perl。 我用Google搜索并发现很多人已经将它用于PHP到Java，但没有一个Perl到Java的例子。 是否有不同的方式需要在Java监视器端（使用者）处理Stomp消息，或者通常的onMessage实现（如TCP）应该如何工作？

Answer 1

我实现了向Activemq队列发送消息（fyi，5.3）。 您可以在下面查看代码。

首先，检查你的目的地名称在stomp-perl方面是否正常，它应该像'/ topic / abc'一样发送到Amq主题abc。 请参见http://activemq.apache.org/stomp.html

您还可以通过将浏览器指向以下内容来检查您的消息是否在队列中或已发布到您的主题中： http：// localhost：8161 / admin或您的Amq正在运行的主机。

希望这可以帮助。

这是示例代码：

#!/usr/bin/perl
use Net::Stomp;

my $msg = "hello world\n";
print $msg

# send a message to the queue 'xyz'

my $stomp = Net::Stomp->new( { hostname => 'localhost', port => '61613' } );
$stomp->connect( { login => 'hello', passcode => 'there' } );
$stomp->send(
   { destination => '/queue/xyz', body => $msg } );
$stomp->disconnect;