[Moscow.pm] Perl + JavaScript

[Alex Kapranoff]

Раскопал свой трёхгодичной давности скрипт, которым я пытался 
тестировать разные яваскриптовые конструкции (см. ниже). Вполне до сих 
пор работает. JavaScript::SpiderMonkey поставлен из портов FreeBSD, 
соответственно библиотека скачалась и поставилась сама.

#! /usr/bin/perl -w
use strict;

use JavaScript::SpiderMonkey;

my $js = new JavaScript::SpiderMonkey;

$js->init;

$js->function_set(kap => sub { print @_, "\n" });

$js->eval(<<'EOJS');
var funcs = [];
for (var i = 0; i < 10; ++i) {
     var j =i;
     funcs.push(function(){ kap(i * i) });
}

for (var i in funcs) {
     funcs[i]();
}
EOJS

Andrew Shitov wrote:
> Привет!
> 
> А кто-нить пробовал выполнять JavaScript перлом?
> 
> Я хотел использоваться родную мозилловскую libjs, для которой на спане
> есть интерфейс JavaScript.pm. Но он ваще не собирается. Есть еще
> модуль JavaScript::Engine, но его как-то не хочется, потому что это
> "Pure Perl", а не libjs.
>