Question

Hi i am new with perl i have a problem to save text from BING json

here

 use strict;
 use warnings;
 use LWP::UserAgent;
 my $uagent = LWP::UserAgent->new;
 my $bing = $uagent->get("http://api.bing.com/osjson.aspx?query=microsoft")->content;
 print "$bing\n";

i want to save to text file line by line only a

• microsoft
• microsoft security essentials
• microsoft update
• microsoft office
• microsoft downloads
• microsoft word
• microsoft templates
• microsoft updates

Answer 1

The JSON module can be used to parse the data into a Perl structure and then print out the required array elements. Add this code to the bottom of your script.

use JSON;
my $data = decode_json($bing);
print join ',', @{ $data->[1] };