擅长:python、mysql、java
<p>使用JSON模块的Perl 1-liner:</p>
<pre><code>perl -lane 'use JSON; my $data = decode_json($_); print join( ",", @{ $data->{rows}->[0]->{Egroup} } )' demo.json
</code></pre>
<p><strong>输出</strong></p>
^{pr2}$
<p>如果您没有安装<a href="http://search.cpan.org/~makamaka/JSON-2.90/lib/JSON.pm" rel="nofollow">JSON</a>,那么您可以复制<a href="http://cpansearch.perl.org/src/MAKAMAKA/JSON-PP-2.27400/lib/JSON/PP.pm" rel="nofollow">JSON::PP</a>(<em>PP表示纯Perl</em>)的源代码并将其放入您的工作目录中:</p>
<pre><code>/working/demo.json
/working/JSON/PP.pm # <- put it here
perl -lane -I/working 'use JSON::PP; my $data = decode_json($_); print join( ",", @{ $data->{rows}->[0]->{Egroup} } )' demo.json
</code></pre>