cách nhúng perl băm vào hàm băm javascript

Question

Tôi đang làm việc trong khung template toolkit. Tôi đã có một perl hash datatype trong tập tin tt của tôi. Tôi muốn chuyển đổi kiểu dữ liệu băm này thành kiểu dữ liệu băm javascript.

mã: mẫu:

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

bây giờ tôi muốn tôi băm để có thể truy cập trong javascript

Answer 1

Hãy thử sử dụng JSON từ CPAN. Đó là JavaScript Simple Object Notation và bạn trực tiếp sử dụng nó trong 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'}); 

Output:

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

Answer 2

Có một số plugin TT sẵn để làm điều này, bất kỳ trong số đó sẽ là một giải pháp tốt hơn vì nhúng perl thô thành mẫu của bạn. Cá nhân tôi thích JSON::Escape, nhưng có một số khác. Trong hơn 5 năm viết TT trên cơ sở hàng ngày hoặc ít hơn, tôi chưa bao giờ phải sử dụng chỉ thị [% PERL %]. Tôi không viết CGI, tôi cho là vậy. YMMV.

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

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