stomp+activemq+perl+cannot sysread(): EOF

Question

我有一个简单的 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();

Answer 1

调试会帮助你

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