Just for the sake of reference. This is a working script I could manage to come up with (key must be changed)
#!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use JSON; my $BingKey="your key"; my $MyBingJsonQuery = "Hello"; my $href= 'https://api.cognitive.microsoft.com/bing/v5.0/search?q= +bill gates&count=20&mkt=en-us&safesearch=Moderate'; print "Connecting to Bing for: $href\n"; my $ua= LWP::UserAgent->new(); my $req = HTTP::Request->new(GET => $href); $req->header('content-type' => 'application/json'); $req->header('Ocp-Apim-Subscription-Key'=>'d1490494840c4a1dbdd499a +eee7ded9e'); $req->header('host'=>'api.cognitive.microsoft.com'); my $res = $ua->request($req); print $res->as_string; # Check the outcome of the response if ($res->is_success) { print "I could connect to the API\n"; my $resp= $ua->get($href); my $data = decode_json($resp->content); my @urls = map { $_->{'Url'} } @{ $data->{d}->{results} }; } else { print "Impossible retrieving info from Web\n"; }
In reply to Re: New Bing Search Api (5)
by Anonymous Monk
in thread New Bing Search Api (5)
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |