Amazon web services Paws:：SQS:：TagQueue因'；在不应出现的位置找到列表的开头'；

说：

但是这个程序失败了：

use strict;
use warnings;
use Paws;

# Environment defines AWS_ACCESS_KEY_ID, AWS_SECRET_ACCESS_KEY, AWS_DEFAULT_REGION
foreach (qw/AWS_ACCESS_KEY_ID AWS_SECRET_ACCESS_KEY AWS_DEFAULT_REGION/) {
    die("Required environment variable $_ definition missing") if (($ENV{$_} // '') eq '');
}

my $sqs = Paws->service('SQS', 'region' => $ENV{'AWS_DEFAULT_REGION'});
my $create_queue_result = $sqs->CreateQueue('QueueName' => "test_queue");
my $queue_url = $create_queue_result->QueueUrl();

# All's well up to this point; queue is created

$sqs->TagQueue(
    'QueueUrl'  => $queue_url,
    'Tags'      => {'test_tag' => 'abc'},
)

在不期望的位置找到列表的开头
跟踪开始于/opt/perl5/lib/site_perl/5.30.0/Paws/Net/XMLResponse.pm第46行
Paws:：Net:：XMLResponse:：process（'Paws:：Net:：XMLResponse=HASH（0x2a21178）'，'Paws:：SQS:：TagQueue=HASH（0x3456d38）'，'Paws:：Net:：APIResponse=HASH（0x3480da8）'在/opt/perl5/lib/site_perl/5.30.0/Paws/Net/Caller.pm第46行调用
Paws:：Net:：Caller:：Caller_to_response（'Paws:：Net:：Caller=HASH（0x1a20550）'，'Paws:：SQS=HASH（0x25bd690）'，'Paws:：SQS:：TagQueue=HASH（0x3456d38）'，'Paws:：Net:：apirponse=HASH（0x3480da8）'调用于/opt/perl5.30.0/Paws/Net/RetryCallerRole.pm第19行
Paws:：Net:：RetryCallerRole:：do_call（'Paws:：Net:：Caller=HASH（0x1a20550）'，'Paws:：SQS=HASH（0x25bd690）'，'Paws:：SQS:：TagQueue=HASH（0x3456d38）'在/opt/perl5/lib/site_perl/5.30.0/Paws/SQS.pm第149行调用
Paws:：SQS:：TagQueue（'Paws:：SQS=HASH（0x25bd690）'，'QueueUrl'，'https://us-west-2.queue.amazonaws.com//test_queue在paws_sqs第22行调用“，”标记“，”散列（0x2c02080）”

如果只传递了“test_queue”而不是完整的$queue_url，则会发生相同的故障。

---

该接口是否记录错误？我是否遗漏了一些明显的内容？

这是解析AWS响应时的一个问题，因为错误首先从XMLResponse抛出。我建议在中打开一个问题。这是解析来自AWS的响应时的问题，因为错误首先从XMLResponse抛出。我建议在中打开一个问题。

use strict;
use warnings;
use Paws;

# Environment defines AWS_ACCESS_KEY_ID, AWS_SECRET_ACCESS_KEY, AWS_DEFAULT_REGION
foreach (qw/AWS_ACCESS_KEY_ID AWS_SECRET_ACCESS_KEY AWS_DEFAULT_REGION/) {
    die("Required environment variable $_ definition missing") if (($ENV{$_} // '') eq '');
}

my $sqs = Paws->service('SQS', 'region' => $ENV{'AWS_DEFAULT_REGION'});
my $create_queue_result = $sqs->CreateQueue('QueueName' => "test_queue");
my $queue_url = $create_queue_result->QueueUrl();

# All's well up to this point; queue is created

$sqs->TagQueue(
    'QueueUrl'  => $queue_url,
    'Tags'      => {'test_tag' => 'abc'},
)

Start of list found where not expected

Trace begun at /opt/perl5/lib/site_perl/5.30.0/Paws/Net/XMLResponse.pm line 46
Paws::Net::XMLResponse::process('Paws::Net::XMLResponse=HASH(0x2a21178)', 'Paws::SQS::TagQueue=HASH(0x3456d38)', 'Paws::Net::APIResponse=HASH(0x3480da8)') called at /opt/perl5/lib/site_perl/5.30.0/Paws/Net/Caller.pm line 46
Paws::Net::Caller::caller_to_response('Paws::Net::Caller=HASH(0x1a20550)', 'Paws::SQS=HASH(0x25bd690)', 'Paws::SQS::TagQueue=HASH(0x3456d38)', 'Paws::Net::APIResponse=HASH(0x3480da8)') called at /opt/perl5/lib/site_perl/5.30.0/Paws/Net/RetryCallerRole.pm line 19
Paws::Net::RetryCallerRole::do_call('Paws::Net::Caller=HASH(0x1a20550)', 'Paws::SQS=HASH(0x25bd690)', 'Paws::SQS::TagQueue=HASH(0x3456d38)') called at /opt/perl5/lib/site_perl/5.30.0/Paws/SQS.pm line 149
Paws::SQS::TagQueue('Paws::SQS=HASH(0x25bd690)', 'QueueUrl', 'https://us-west-2.queue.amazonaws.com/<REDACTED_ACCOUNT_NUMBER>/test_queue', 'Tags', 'HASH(0x2c02080)') called at paws_sqs line 22