Perl通过产品API访问Amazon marketplace

我需要通过perl使用Amazon产品API来获取给定ASIN的第三方新的和使用过的（市场）产品列表。我需要能够看到价格，以及亚马逊是否满足每个报价（有资格获得prime/super saver配送）。我已经浏览了Net：：Amazon模块，但我看不到任何方法可以做到这一点

---

有人做过类似的事情吗？

所以我自己也在研究这个问题，看起来亚马逊提供的商品在报价中具有属性

'IsEligibleForSuperSaverShipping'=>'1'

。因此，这将类似于：

my $ua = Net::Amazon->new(
    associate_tag => 'derpderp',
    token         => 'morederp',
    secret_key    => 'herpaderp',
);

my $rsp = $ua->search( asin => 'B000FN65ZG' );

if ($rsp->is_success()) {
    if (my $o = $rsp->{xmlref}->{Items}->{Offers}) {
        foreach my $offer (keys %{ $o }) {
            if ($o->{$offer}->{IsEligibleForSuperSaverShipping}) {
                # This is offered by Amazon.com
            } # if
        } # foreach
}
else {
    die "Error: ", $rsp->message(), "\n";
}

• 请注意，截至2013年11月4日，ASIN是通过Amazon实现的；将来可能不会

这里的问题是

Net:：Amazon

神奇地生成了它的访问器（并且没有使用

Class:：Accessor

，但是它很旧，所以我们可以原谅它……）。我不确定在上面的

{Items}

元素中，个人提供的正确访问器是什么。进入你的对象是，但在这种情况下，找到正确的访问器应该不是那么难（因为它是自动生成的），除非这样，我认为你可以感觉舒适地进入对象

此外，您可能会建议联系作者的作者Mike Schilli或当前的维护人员，这可能是值得做的，尤其是如果这是Amazon始终如一的结果，并且可以添加到API中。问题是亚马逊的回报是一种可变的。引用

方法因查询返回的项而异。以下是最常见的。它们都是访问器，这意味着它们可以像

Method（）

一样用于检索值，或者像

Method（$value）

一样用于设置字段的值

---

这使得我们很难假设您可以测试超级保存程序的返回，因为它可能没有返回结构中的键。

您检查过CPAN吗？是的，我检查过CPAN。Net:：Amazon:：Property类具有最低的二手商品价格和二手商品数量，但无法找到实际的商品列表。我也看不到任何其他模块会抓住报价列表。