擅长:python、mysql、java
<p>听起来好像您希望将每个JSON文档放在自己的文件中。您可以使用JSON::XS的增量解析器来实现这一点。在</p>
<pre><code>use JSON::XS qw( );
my $json = JSON::XS->utf8->new();
local $/ = \(1024*1024)
while (<>) {
for my $obj ($json->incr_parse($_)) {
my $id = $obj->{Id};
open(my $fh, '>', $id . ".txt")
or die $!;
print($fh $json->encode($obj));
}
}
</code></pre>