Perl 喜欢 ruby​​ 中的匿名子例程

Question

我是 ruby​​ 新手，并试图在 ruby​​ 中复制这个调用匿名子例程的 perl：

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

# Make a reference to a subroutine
my $codes = {
   one => sub {
      say "This is code block one";
      say "And this is code block one's line two"
   },
};

for my $next_code ( keys %{ $codes } ) {
   # Execute anonymous subroutine
   &{ $codes->{ $next_code } };
}

我试过这个：

#!/usr/bin/ruby -w

codes = {
   one: puts "This is code block one"
        puts "And this is code block one's line two",
 }
codes.each do |next_code|
   next_code
end

但是，我得到语法错误。这可能吗，还是有另一种首选的 ruby​​ 方式？

更新：是的，这就像一个调度表。我将代码存储在哈希中并稍后运行该代码。

Answer 1

Ruby 将Procs 作为匿名的第一类子例程对象。 Procs 可以通过将块传递给Proc::new、Kernel#proc 或Kernel#lambda 或使用“stabby lambda” lambda 文字语法来创建。

#!/usr/bin/env ruby

# Make a reference to a subroutine
codes = {
  one: -> {
    puts "This is code block one"
    puts "And this is code block one's line two"
  }
}

codes.each do |name, code|
  # Execute anonymous subroutine
  code.()
end

Ruby 中最广泛使用的匿名代码块形式是一种称为block 的构造，它实际上不是 一个对象，而只是一个句法构造。 Ruby 中的每个方法都只有一个可选的块参数，可以在花括号中传递，也可以在普通方法参数之后使用 do/end 关键字对。您可以在上面的代码中看到一个正在运行的块，它被传递给 Hash#each 迭代方法。

如果你有兴趣，这里是我的一个小玩具项目，它演示了在各种语言中使用一流的闭包，包括 Perl5 和 Perl6、Ruby、PHP、Python、ECMAScript、Smalltalk、Clojure、Scheme ，以及许多其他人：http://joergwmittag.github.io/lambdaconscarcdr/