Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re: Bing API Authentication in Perl

by Mr. Muskrat (Canon)
on Oct 03, 2012 at 15:37 UTC ( #997077=note: print w/replies, xml ) Need Help??

in reply to Bing API Authentication in Perl

If you are going to use the four argument credentials, you need to pass the right data into it. Location is <host>:<port> as documented in LWP::UserAgent.

Try this totally untested piece of code and see if you get better results.

#!/usr/bin/perl use strict; use warnings; use WWW::Mechanize; use Crypt::SSLeay; my $mech = WWW::Mechanize->new(); # Don't pass the full URL as the location in the call to credentials! my $server = ''; my $url = "https://$server/Bing/SearchWeb/Web?Query=%27Xbox%27&$top=1 +0&$format=JSON"; my $loc = "$server:443"; my $account_key = "<my key>"; # Yes, WWW::Mech still supports LWP::UserAgent's four arg credentials $mech->credentials($loc, '', '', $account_key); $mech->get($url); print $mech->content();

Update: After I posted this, I realized that you were using https so I updated the port from 80 to 443.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://997077]
[Corion]: Nice to see that the kids have some understanding of important things that happen and the appropriate behaviour :)
[marto]: at times mine surprise me with this behavior :)
[Corion]: I mean, in a way it would be nicer+easier if they always where that obedient, but it's comforting to see that they are when it matters, at least for now ;)

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (9)
As of 2016-12-08 09:30 GMT
Find Nodes?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:

    Results (138 votes). Check out past polls.