JSON में एन्कोडेड एक सरणी को पार्ल

Question

के माध्यम से पार्सल के बाद मैंने JSON में एक सरणी पार्स करने के लिए लिखा है। लेकिन वापस सरणी लंबाई 1 है और मैं इसे ठीक से फिर से करने में सक्षम नहीं हूँ। तो समस्या यह है कि मैं वापस सरणी का उपयोग करने में सक्षम नहीं हूँ।

#!/usr/bin/perl 
use strict; 

my $json_text = '[ {"name" : "abc", "text" : "text1"}, {"name" : "xyz", "text" : "text2"} ]'; 

use JSON; 
use Data::Dumper::Names; 

my @decoded_json = decode_json($json_text); 
print Dumper(@decoded_json), length(@decoded_json), "\n"; 

उत्पादन आता है:

$VAR1 = [ 
    { 
     'text' => 'text1', 
     'name' => 'abc' 
     }, 
     { 
     'text' => 'text2', 
     'name' => 'xyz' 
     } 
    ]; 
1 

Answer 1

decode_json function रिटर्न एक arrayref, नहीं एक सूची है। आप इसे भिन्नता सूची प्राप्त करने चाहिए:

my @decoded_json = @{decode_json($json_text)}; 

आप perldoc perlreftut और perldoc perlref

Answer 2

JSON के बारे में, आप के रूप में यह है आप JSON :: XS मॉड्यूल स्थापित सुनिश्चित करने के लिए चाहते हो सकता है पढ़ने के लिए चाहते हो सकता है तेजी से और जेएसओएन मॉड्यूल के साथ शुद्ध पर्ल कार्यान्वयन से अधिक स्थिर। जेएसओएन मॉड्यूल जेएसओएन :: एक्सएस स्वचालित रूप से उपलब्ध होने पर इसका उपयोग करेगा।