我完全理解 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 a bit - 所以对我来说对于理解 JS 基础知识和结构非常有用,比如:
(...)() - more precisely
(function(){.....})()
double ((
在 if 中
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
最佳答案
我不是非常精通 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");
};
注意事项:
- 在 Perl 中,这将是
sub { ... }->()
。 - 在 Perl 中,可以使用
{ my $var; ... }
而不是sub { my $var; ... }->()
和do { my $var; ...; EXPR }
而不是sub { my $var; ...;返回表达式; }->()
.
关于javascript - 用 perl 术语解释 JS 闭包,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16472282/