当我在 glot.io 上玩 Perl 6 的时候我知道它们真的很像带有简单程序的 docker:
dir('/')>>.Str.say;
我想知道递归到目录里面是否还有更好的方法。 IO::Path.dir 会返回一个 IO::Path 对象的 Seq 序列。那就是为什么 >>.
超运算符会有效。它当然不会递归因为没有用来进行递归的子例程, 经过一段时间的冥思苦想我找到了我找了很久的东西。
在 Perl 6 中带有一个位置参数的 block 块是可调用的(Callable)。那个参数被绑定给主题变量 $_
。 那是我们为什么能做:
for 1,2,3 {.say}
递归到目录中会很容易如果我们把 Str '/'
变成 IO::Path 对象并且检测我们是否得到了一个目录并且使用那个元素调用那个 block 块。那个 block 块需要一个名字, 这个我们可以通过使用 my &block = {Nil}
做到, 或者我们使用编译时变量 &?BLOCK
。
for '.' {
.Str.say when !.IO.d;
.IO.dir()>>.&?BLOCK.IO.d
}
.&?BLOCK
形式会把调用看作像方法调用一样, 这意味着 .
号左侧的对象会成为调用的第一个参数, 在调用者所属的地方。
我相信这是一个相当好的关于怎样使用 &?BLOCK
来避免嵌套循环和短变量的例子。这会在稍后被添加到文档中。
在 Zoffix 的友好帮助下, 那个例子被进一步优化了。
{ .d && .dir».&?BLOCK || .put }(".".IO)
网友评论