<?xml version="1.0" encoding="windows-1252"?>
<node id="405967" title="WWW::Amazon::Wishlist" created="2004-11-07 20:29:01" updated="2005-07-29 12:27:32">
<type id="31663">
modulereview</type>
<author id="393886">
monkfan</author>
<data>
<field name="doctext">
This module is a good alternative to Net::Amazon, for this specific task.
Unlike Net::Amazon, which is limited up to 50  wishList entries,
[cpan://WWW::Amazon::Wishlist], exhaust all its content.

This can be useful for web applications that uses Amazon rich database,
to play around with Amazon hack ;-)&lt;br&gt;&lt;br&gt;

Caveat: as mentioned by the author this module is sensitive to HTML template changes.&lt;br&gt;

Below is the sample code to extract wishlist:&lt;br&gt;
&lt;code&gt;
#!/usr/bin/perl -w
use strict;

use WWW::Amazon::Wishlist qw(get_list COM); #version 1.4

my $my_amazon_com_id = '26Y2G652628T3';
#Your id can be found in your wishlist's (compact version) URL

 my @wishlist = get_list ($my_amazon_com_id,  COM);

 for ( 0 .. $#wishlist ) 
  {

    print"[$_]   Title :",$wishlist[$_]-&gt;{title},"\n",  
         "       Author:",$wishlist[$_]-&gt;{author},"\n", 
         "       ASIN  :",$wishlist[$_]-&gt;{asin},"\n",      
         "       Price :",$wishlist[$_]-&gt;{price},"\n",   
                   $wishlist[$_]-&gt;{type},"\n";

   }
&lt;/code&gt;</field>
<field name="itemdescription">
Scrape all the details from your Amazon wishlist</field>
<field name="usercomment">
</field>
<field name="identifier">
</field>
</data>
</node>
