数组上的 perl6 文本替换

Question

我正在尝试对整个数组应用文本替换。

但是，当我尝试更改数组时，它显示它只有 1 个元素，而它应该有 26 个。

Perl6 REPL 中的以下示例：

> my @a = 'a'..'z'
[a b c d e f g h i j k l m n o p q r s t u v w x y z]
> my @a1 = @a.subst(/<[aeiou]>/, 1, :g)
[1 b c d 1 f g h 1 j k l m n 1 p q r s t 1 v w x y z]
> @a1.elems
1#this should be 26
> @a.elems
26

如何通过整个数组的文本替换来更改数组，并返回一个数组？

另外：perl6 网站已关闭，我无法访问许多手册页 :(

Answer 1

通过使用>>. 超级运算符：这将调用列表中每个元素的给定方法，并创建调用结果的列表。

my @a = "a".."z";
my @b = @a>>.subst(/ <[aeiou]> /, 1, :g);
dd @a, @b;

# Array @a = ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"]
# Array @b = ["1", "b", "c", "d", "1", "f", "g", "h", "1", "j", "k", "l", "m", "n", "1", "p", "q", "r", "s", "t", "1", "v", "w", "x", "y", "z"]

Answer 2

.subst 是一个 Str 方法。

这意味着它假定它的第一个参数（调用者）是一个 Str。如果它还不是 Str，它会被强制转换为 Str。

当您在数组上调用.Str 时，它会将所有值连接在一起，并以空格作为分隔符。

my @a = < a b c >;
say @a.perl;       # ["a", "b", "c"]
say @a.Str.perl;   # "a b c"

所以这三行是完全等价的：

@a.subst(/<[aeiou]>/, 1, :g);
@a.Str.subst(/<[aeiou]>/, 1, :g);
@a.join(" ").subst(/<[aeiou]>/, 1, :g);

Perl6 这样做是因为它是一致的。你总是知道对.subst 的单个调用的输出是单个Str。您还知道调用者被视为 Str。

如果它在数组上做了一些不同的事情，就很难跟踪哪些方法会根据调用者发生变化以及它们是如何变化的。

我们只需要看看 Perl5 就知道当每个函数的每个怪癖不一致时要记住它们是多么困难。
（试想一下 Perl5 中默认在 $_ 上运行的所有函数，以及它们在标量与列表上下文中的作用。）

---

您不想在单个数组值上调用.subst，而是要在它包含的每个值上调用它。

有几种方法可以做到这一点：

my @ = @a.map( *.subst(…) )

my @ = @a».subst(…)

my @ = do for @a { .subst(…) }

my @ = @a.duckmap( -> Str $_ { .subst(…) } ) # only change Str's