Как сохранить текст JSON из Bing с помощью Perl

Question

Привет, я новичок в Perl У меня проблема с сохранением текста из BING json

здесь

 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";

я хочу сохранить в текстовый файл построчно только

• Microsoft
• Microsoft Security Essentials
• обновление для Microsoft
• Microsoft Office
• загрузки для Microsoft
• Microsoft Word
• шаблоны для Microsoft
• обновления для Microsoft

Answer 1

Модуль JSON можно использовать для анализа данных в структуре Perl, а затем распечатывать необходимые элементы массива.Добавьте этот код в конец вашего скрипта.

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

Answer 2

Сначала вы хотите установить модуль JSON из CPAN.Вы можете сделать это, набрав в командной строке следующее (при условии, что linux)

$ cpan JSON

Затем вы хотите декодировать строку JSON в объект, используя функцию декодирования

my $json = JSON->decode($bing);

IЯ не совсем уверен, что вы хотели бы сделать здесь, но чтобы сохранить данные в текстовом файле, вы должны сначала открыть дескриптор файла

open my $FH, '>', 'filename.txt' or die "Failed to open file: $!";

Затем, чтобы написать сообщение, вы просто распечатываете в файл дескриптортолько что открыл ($ FH)

print $FH 'This will be in filename.txt';

* Примечание: * Нет запятой между $ FH и значением, записываемым в файл

Надеюсь, что это поможет