4

我理解perl闭包的工作原理没有任何问题，就像下一个一样

use 5.012;
use strict;
use warnings;

sub countdown {
        my $start = shift;
        return sub { $start-- }
}

my $c10 = countdown(3);
say while( $_ = $c10->() );

我正在尝试理解下一段 Javascript：

var runInSandbox = (function(js, inputPath) {

  (function() {
    if ((!context.initialized__QUERY)) {
      return createContext();
    };
  })();
  (function() {
    if (typeof(inputPath) !== 'undefined') {
      (process.argv)[1] = inputPath;;
      (context)["__dirname"] = path.dirname(inputPath);;
      return (module)["filename"] = inputPath;;
    };
  })();
  return vm.runInContext(js, context, "sibilant");
});

没有机会！:(请 有人可以将上面的内容重写为 perl吗？我对 perl 有点了解 - 所以对我来说理解 JS 基础知识和以下结构非常有用：

(...)() - more precisely
(function(){.....})()

((如果加倍

    if ((!context.initialized__QUERY)) {

或下一个

      (context)["__dirname"] = something ;;

或者

       return (module)["filename"] = inputPath;; // why double ;;?

如果有人可以向我建议任何资源，例如：Learning Javascript for perl programmers- 会非常好;）

Ps：JS（缩短）来自这里：https ://github.com/jbr/sibilant/blob/master/lib/cli.js

4

2 回答 2

7

我对 Perl 闭包不是非常精通，所以我至少会尝试为您揭开它的神秘面纱。

表格：

(function(...) {
 ...
})();

是一个自调用匿名函数1。这意味着您写出一个匿名函数，然后立即调用它。这通常用于封装2。例如，如果你最终创建了一堆变量，但不希望它污染全局命名空间，你可以将它放在一个匿名的、自调用的函数中。但是，在这种情况下，我根本不明白为什么第一次调用是必要的，因为它只是检查标志或其他东西。更奇怪的是return内部那些自调用的函数。他们没有被分配到任何东西。我会冒险猜测createContext()初始化context变量，但这return实际上是无用的。以下情况也是如此：

return (module)["filename"] = inputPath;;

至于双((and ))，它们似乎在很大程度上是不必要的，所以我不确定作者为什么最初把它放在那里。例如：

if ((!context.initialized__QUERY))

与以下没有什么不同：

if (!context.initialized__QUERY)

此外，下面的括号也是不必要的，双分号也是如此：

(context)["__dirname"] = something ;;

老实说，它看起来就像写得很糟糕的 JavaScript，或者可能是自动生成的 JavaScript（很可能就是这种情况）。

你可以像这样重写它：

var runInSandbox = function(js, inputPath) {

    if (!context.initialized__QUERY) {
       createContext();
    };

    if (typeof inputPath !== 'undefined') {
       process.argv[1] = inputPath;
       context["__dirname"] = path.dirname(inputPath);
       module["filename"] = inputPath;
    };

    return vm.runInContext(js, context, "sibilant");
};

笔记：

  1. 在 Perl 中，这将是sub { ... }->().
  2. 在 Perl 中，可以使用{ my $var; ... }代替sub { my $var; ... }->()和do { my $var; ...; EXPR }代替sub { my $var; ...; return EXPR; }->().
于 2013-05-09T22:43:47.570 回答
0

我认为这应该是 perl 中的样子。

my $runInSandbox = sub {
     local($js, $inputPath) = ($_[0], $_[1]);
     sub{if (!$context.initialized_QUERY) {
         &createContext();
     }}->();
     sub{ if (defined($inputPath) {
         $process{"argv"][1] = inputPath;
         $context{"__dirname"} = &$path{"dirname"}(inputPath);
         $module["filename"] = inputPath;
     } }->();
     return &$vm{"runInContext"}($js,$context,"sibilant");
};
于 2013-05-09T23:21:20.690 回答