stomp + activemq + perl +不能sysread():EOF

时间:2015-05-15 12:50:28

标签: perl activemq stomp

我有一个简单的stomp脚本连接到activemq,当我运行脚本时,我得到以下错误 “无法sysread():EOF”

Perl脚本代码:

#!/usr/bin/perl
use Net::STOMP::Client;
$stomp = Net::STOMP::Client->new(uri => "stomp://hostname:61616");
$peer = $stomp->peer();
printf("connected to broker %s (IP %s), port %d\n",
$peer->host(), $peer->addr(), $peer->port());
$stomp->connect();
printf("speaking STOMP %s with server %s\n",
$stomp->version(), $stomp->server() || "UNKNOWN");
printf("session %s started\n", $stomp->session());
$stomp->disconnect();
printf("session ended\n");

有人可以让我知道我做错了什么吗?我看到一个类似的帖子,但后来我没有看到相同的回应。 问题是$ stomp-> connect();

1 个答案:

答案 0 :(得分:0)

Debug会帮助你

use Net::STOMP::Client;
$stomp = Net::STOMP::Client->new(
                                uri => "stomp://hostname:61616",
                                debug => "connection api"
                                );
相关问题