जावास्क्रिप्ट हैश

Question

पर perl हैश को कैसे कॉन्फ़िगर करें मैं template toolkit ढांचे में काम कर रहा हूं। मुझे अपनी टीटी फाइल में एक पर्ल हैश डेटाटाइप मिला है। मैं इस हैश डेटाटाइप को जावास्क्रिप्ट हैश डेटाटाइप में परिवर्तित करना चाहता हूं।

कोड: टेम्पलेट:

 [% PERL %] 
     use JSON qw(encode_json); 

     my $vars = { 

      'version' => 3.14, 
      'days'  => [ qw(mon tue wed thu fri sat sun) ], 
      'cgi'  => CGI->new(), 
      'me'  => { 
       'id'  => 'abw', 
       'name' => 'Andy Wardley', 
      }, 
     }; 

     my $json = encode_json($vars->{'me'}); 
    [% END %] 


<script> 
    function callme(){ 
    var me = [% $json %] 
    } 
</script> 

अब मैं चाहता हूँ मुझे हैश सुलभ होने के लिए जावास्क्रिप्ट में

Answer 1

CPAN से JSON का उपयोग करें। यह JavaScript Simple Object Notation है और आप इसे सीधे जावास्क्रिप्ट में उपयोग करते हैं।

use JSON qw(encode_json); 

my $vars = { 

    'version' => 3.14, 
    'days'  => [ qw(mon tue wed thu fri sat sun) ], 
    'cgi'  => CGI->new(), 
    'me'  => { 
     'id'  => 'abw', 
     'name' => 'Andy Wardley', 
    }, 
}; 
print encode_json($vars->{'me'}); 

आउटपुट:

{"name":"Andy Wardley","id":"abw} 

Answer 2

यह करने के लिए उपलब्ध कई टीटी प्लगइन्स, जिनमें से सभी अपने खाके में कच्चे पर्ल एम्बेड करने की तुलना में एक बेहतर समाधान हो जाएगा रहे हैं। निजी तौर पर, मैं JSON::Escape पसंद करता हूं, लेकिन कुछ अन्य हैं। कम से कम दैनिक आधार पर टीटी लिखने के 5 से अधिक वर्षों में, मुझे अभी तक [% PERL %] निर्देश का उपयोग करने का सहारा लेना पड़ा है। मैं सीजीआई नहीं लिख रहा हूं, मुझे लगता है। YMMV।

[%- USE JSON.Escape(pretty => 1); 
    SET me = { id => 'abw', name => 'Andy Wardley' }; 
... 
-%] 

<script> 
    function callme() { 
    var me = [% me.json %] 
    ... 
</script>