JSON數據輸出

下面是具有JSON數據Perl代碼：JSON數據輸出

use Data::Dumper; 
use JSON; 

my $var = '{ 

    "episode1": { 
     "title":"Cartman Gets an Anal Probe", 
     "id":"103511", 
     "airdate":"08.13.97", 
     "episodenumber":"101", 
     "available":"true", 
     "when":"08.13.97" 
    } 
    }, 
    { 
    "episode2": { 
     "title":"Weight Gain 4000", 
     "id":"103516", 
     "airdate":"08.20.97", 
     "episodenumber":"102", 
     "available":"true", 
     "when":"08.20.97" 
    } 
}'; 

my $resp = JSON::jsonToObj($var); 

print Dumper ($resp);

的輸出是：

$VAR1 = { 
    'episode1' => { 
    'when' => '08.13.97', 
    'episodenumber' => '101', 
    'airdate' => '08.13.97', 
    'title' => 'Cartman Gets an Anal Probe', 
    'id' => '103511', 
    'available' => 'true' 
    } 
};

我傾倒JSON數據，但只有在episode1輸出被傾倒。但是，我想在轉儲時顯示episode1和episode2。怎麼做？

來源

2014-11-04 user2201935

寫入有效的JSON。

從JSON Lint

Parse error on line 14: 
...: "08.13.97" }},{ "episode2": 
---------------------^ 
Expecting 'EOF'

如果你想對象的數組，你需要數據的數組：[...]。

來源

2014-11-04 12:11:14 Quentin

謝謝。我編輯了這個問題。 – user2201935 2014-11-04 12:21:27

@ user2201935 - 內容的減少使得代碼成爲減少測試用例的一個更好的例子。縮進的損失使情況變得更糟。你實際上遇到的問題仍然是一樣的，這個答案仍然解釋你需要做什麼來解決它。 – Quentin 2014-11-04 12:31:20

謝謝。我把它[..]。有效。 – user2201935 2014-11-04 12:36:47

JSON數據輸出

回答

相關問題