|
From: Christopher B. <bou...@gm...> - 2009-08-25 12:40:11
|
Try removing the line $ENV{'NET_AMAZON_LIVE_TESTS'} = 1, which uses
the canned data. The canned data has been cut down to make the
distribution smaller.
I would also suggest looking at the examples in the eg/ directory of
the distribution. This is a better starting point for playing around
with Net::Amazon.
Christopher
On Mon, Aug 24, 2009 at 11:43 PM, <web...@pr...> wrote:
>
> 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
>
>
>
>
> ------------------------------------------------------------------------------
> Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
> trial. Simplify your report design, integration and deployment - and focus on
> what you do best, core application coding. Discover what's new with
> Crystal Reports now. http://p.sf.net/sfu/bobj-july
> _______________________________________________
> Net-amazon-devel mailing list
> Net...@li...
> https://lists.sourceforge.net/lists/listinfo/net-amazon-devel
>
|