如何使用perl从Bing保存JSON文本

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 essentials
• microsoft update
• microsoft office
• microsoft downloads
• microsoft word
• microsoft templates
• microsoft更新

Answer 1

JSON模块可用于将数据解析为Perl结构，然后打印出所需的数组元素。将此代码添加到脚本的底部。

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

Answer 2

首先，您希望从CPAN安装JSON模块。您可以通过在命令行上输入以下内容(假设linux)来实现这一点。

$ cpan JSON

然后，使用decode函数将JSON字符串解码为一个对象。

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

我不太清楚您想从这里做什么，但是要将数据保存到文本文件中，首先必须打开文件句柄

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

然后，要向它写入一条消息，只需将其打印到刚刚打开的文件句柄($FH)。

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

*注意：*在$FH与写入文件的值之间没有逗号

希望这有帮助