javascriptハッシュにPerlハッシュを繋ぐ方法

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> 

今私は私のハッシュはjavascriptの

Answer 1

にアクセスできるようにしたいCPANからJSONを使用してみてください。それはJavaScript Simple Object Notationで、JavaScriptで直接使用します。

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

あなたのテンプレートに生のPerlを埋め込むより良い解決策になるそのいずれかが、これを行うために利用可能ないくつかの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>