perl - FIFO 队列上的 Amazon::SQS::Simple MessageGroupId

Question

我需要有关如何使用 CPAN 模块将 MessageGroupId 作为参数传递的帮助

Amazon::SQS::Simple

我尝试了以下方法:

my $messageGroupId = 1;
my $q = $sqs->GetQueue('http://queue.amazonaws.com/' . $queue_name);
$q->{MessageGroupId} = $messageGroupId;
$q->SendMessage($message);

我还尝试将 MessageGroupId 放入 $message 变量中:

my $messageGroupId = 1;
my $q = $sqs->GetQueue('http://queue.amazonaws.com/' . $queue_name);
$q->{MessageGroupId} = $messageGroupId;
$q->SendMessage({ MessageGroupId => 1 });

但是SQS总是给出这个错误:

ERROR [try ]: On calling SendMessage: 400 Bad Request (The request must contain the parameter MessageGroupId.)

Answer 1

@ysth 的回答几乎是正确的；我发现以下方法有效:

$q->SendMessage($message, ("MessageGroupId" => 1));