jak konwertować hasl w języku Perl na javascript hash

Question

Pracuję w ramach template toolkit. Mam typ danych hash perla w moim pliku tt. Chcę przekonwertować ten typ danych hash na typ danych javascript hash.

Kod: szablon:

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

teraz chcę hash mi być dostępny w javascript

Answer 1

Spróbuj użyć JSON z CPAN. Jest to JavaScript Simple Object Notation i używasz go bezpośrednio w 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'}); 

wyjściowa:

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

Answer 2

Istnieje kilka wtyczek TT dostępne, aby to zrobić, z których każdy byłby lepszym rozwiązaniem niż osadzanie surowego perla w szablonie. Osobiście wolę JSON::Escape, ale jest kilka innych. Przez ponad 5 lat pisania TT w mniej lub bardziej codziennych sytuacjach nigdy nie musiałem uciekać się do stosowania dyrektywy [% PERL %]. Nie przypuszczam, że nie piszę CGI. YMMV.

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

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