如何使用 perl 读取 https JSON 流?
How to read a https JSON stream with perl?
好的,我会尽量详细的。
我需要连接到传输 JSON 数据的 https url,并通过 REGEX 搜索关键字作为数据流,然后将匹配的 JSON 元素解码并插入将其存入数据库。
REGEX on 不是比较简单的问题
我正在努力解决的问题是明智地读取数据行。我已经尝试了几个在网上找到的使用 LWP 的示例,但是在流从未停止加载脚本的地方挂起。
这是我得到的最接近的
#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use IO::String;
my $handle = IO::String->new(get("https://whosebug.com"));
while (defined (my $line = <$handle>)) {
print $line; #Inserted for testing
#Decode and insert into DB here
}
close $handle;
数据以相当快的速度出现,因此脚本必须高效。
任何有关如何完成此操作的指示都会很棒。
谢谢
肖恩
JSON::SL可以帮到你。
另见 Chas。 Owens 的回答,他比较了JSON::SL 和JSON::Streaming::Reader。
好的,我会尽量详细的。
我需要连接到传输 JSON 数据的 https url,并通过 REGEX 搜索关键字作为数据流,然后将匹配的 JSON 元素解码并插入将其存入数据库。
REGEX on 不是比较简单的问题
我正在努力解决的问题是明智地读取数据行。我已经尝试了几个在网上找到的使用 LWP 的示例,但是在流从未停止加载脚本的地方挂起。
这是我得到的最接近的
#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use IO::String;
my $handle = IO::String->new(get("https://whosebug.com"));
while (defined (my $line = <$handle>)) {
print $line; #Inserted for testing
#Decode and insert into DB here
}
close $handle;
数据以相当快的速度出现,因此脚本必须高效。
任何有关如何完成此操作的指示都会很棒。
谢谢 肖恩
JSON::SL可以帮到你。
另见 Chas。 Owens 的回答,他比较了JSON::SL 和JSON::Streaming::Reader。