perl - 为什么 Perl 的 RabbitMQ 使用者会出现 404 错误？

Question

RabbitMQ 已设置，我可以使用示例脚本:

use Net::RabbitMQ;
my $mq = Net::RabbitMQ->new();
$mq->connect("localhost", { user => "guest", password => "guest" });
$mq->channel_open(1);
$mq->publish(1, "queuename", "Hi there!");
$mq->disconnect();

它发布消息(我假设)。我尝试了以下方法来简单地从队列中抓取一条消息，然后得到 404:

my $mq = Net::RabbitMQ->new();
$mq->connect("localhost", { user => "guest", password => "guest" });
$mq->channel_open(1);
print $mq->get(1, "queuename");

Answer 1

错误信息的全文是:

basic_get: server channel error 404, message: NOT_FOUND - no queue 'queuename' in vhost '/' ...

您需要使用 auto_delete => 0 创建队列- 否则它会在第一个进程终止时消失。看看 queue_declare方法。