|
From: <web...@pr...> - 2009-08-25 03:43:57
|
I am using the NET::Amazon perl module and for 25-50% of the results on every search come back with incomplete information. Example: ------ Net::Amazon::Property=HASH(0x1f13f20) -Raw List Pice -List Pice -Supersaver B000SF6IIU -ASIN -Our Price -Image URL Large -ImageURLMedium -ImageurlSmall Home Improvement -Catalog http://www.amazon.com/PUR-Pitcher-Replacement-Filter-CRF-950Z/dp/B000SF6IIU%3FSubscriptionId%3D155W878PZJX38A5CTZG2%26tag%3Dws%26linkCode%3Dxm2%26camp%3D2025%26creative%3D165953%26creativeASIN%3DB000SF6IIU -URL PUR -Manufacturer -UsedPrice PUR 2 Stage Water Pitcher Replacement Filter #CRF-950Z -ProductName -Availability -Collectible Price 0 -Collectible Count 0 -Number of offerings ---- As you can see it gives no information for any Image URLs, or prices. But if you go to the URL, you can clearly see that it has images and a price. this is the code I am using: ------ $ENV{'NET_AMAZON_LIVE_TESTS'} = 1; my $ua = Net::Amazon->new( token => 'XXXXXXXXXXXXXXXXXXXX', secret_key => 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX', max_pages => 1, ); my $response = $ua->search(blended => $page); if($response->is_success()) { print $response->as_string(); for ($response->properties()){ print "------------------\n"; print $_."\n"; print $_->RawListPrice(),"\tRaw List Pice\n", $_->ListPrice(),"\tList Pice\n", $_->SuperSaverShipping(),"\tSupersaver\n", $_->ASIN(), "\tASIN\n",$_->OurPrice(), "\tOur Price\n", $_->ImageUrlLarge(), "\tImage URL Large\n",$_->ImageUrlMedium(), "\tImageURLMedium\n",$_->ImageUrlSmall(), "\tImageurlSmall\n",$_->Catalog(), "\tCatalog\n",$_->url(), "\tURL\n",$_->Manufacturer(), "\tManufacturer\n",$_->UsedPrice(),"\tUsedPrice\n",$_->ProductName(), "\tProductName\n",$_->Availability(), "\tAvailability\n",$_->CollectiblePrice(), "\tCollectible Price\n",$_->CollectibleCount(), "\tCollectible Count\n",$_->NumberOfOfferings(), "\tNumber of offerings\n"; } } else { print "Error: ", $resp->message(), "\n"; } ----- Anybody know if i I am doing something wrong? There is some documentation in the NET::Amazon that suggests i might be grabbing info from a test database, but the instructions for going to the live database are kind of vague for someone who doesn't know everything about PERL programming. Thanks, Aaron pricechackah.com |