자바 해시에 perl 해시를 convet하는 방법

Question

나는 template toolkit 프레임 워크에서 일하고있다. 내 tt 파일에 perl 해시 데이터 형식이 있습니다. 이 해시 데이터 유형을 javascript 해시 데이터 유형으로 변환하고 싶습니다.

코드 : 템플릿 :

 [% 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

이 템플릿에 원시 펄을 내장보다 더 나은 솔루션이 될 것입니다 어떤있는이 작업을 수행하기 위해 사용할 수있는 여러 가지 TT 플러그인이 있습니다. 개인적으로는 JSON::Escape을 선호하지만 몇 가지가 있습니다. 매일 매일 TT를 작성하는 데 5 년이 넘는 시간 동안, 나는 [% PERL %] 지시어를 사용하지 않아야합니다. 그래도 나는 CGI를 쓰지 않을거야. YMMV.

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

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