擅长:python、mysql、java
<p>带有<code>JSON</code>模块的Perl:</p>
<pre><code>cat servername.json | perl -MJSON -0 -ne '$j = decode_json($_); push @{$j->{run_list}}, q<role[My_New_Role]>; print encode_json($j)'
</code></pre>
<p>您可以通过将print命令替换为<code>print to_json($j, {pretty => 1})</code>来很好地打印它</p>