如何使用 perl 處理 JSON，以便將多行而不是一行作為結構輸出？
my $json_string = '{"status":"success","answer":{"status":"success","result":{"full_fqdn":"example.com","result":"blablabla","php_version":"8.0","cgi":"disabled"}}}';
我想得到與此輸出類似的結果：
"status": "success",
"answer": {
"status": "success",
"result": {
"full_fqdn": "example.com",
"result": "blablabla",
"php_version": "8.0",
"cgi": "disabled"
}
}
我不太了解正確使用 JSON 以這種方式轉換輸出。謝謝！
uj5u.com熱心網友回復：
JSON::PP是一個核心模塊。該pretty方法啟用冒號周圍的縮進和空格。indent您可以使用、indent_length、space_before和控制細節space_after。
#!/usr/bin/perl
use warnings;
use strict;
use JSON::PP;
my $json_string = '{"status":"success","answer":{"status":"success","result":{"full_fqdn":"example.com","result":"blablabla","php_version":"8.0","cgi":"disabled"}}}';
my $j = 'JSON::PP'->new->pretty;
print $j->encode($j->decode($json_string));
如果您需要更快的處理，請從 CPAN安裝Cpanel::JSON::XS 。
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/425563.html