stomp + activemq + perl +无法sysread（）：EOF

Question

我有一个简单的踩脚脚本连接到activemq，当我运行脚本时，出现以下错误“ cannot 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（）;中。

Answer 1

调试将帮助您

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