raku - 如何将变量插入 Perl 6 正则表达式字符类？

Question

我想把一个单词的所有辅音都变成大写:

> my $word = 'camelia'
camelia
> $word ~~ s:g/<-[aeiou]>/{$/.uc}/
(｢c｣ ｢m｣ ｢l｣)
> $word
CaMeLia

为了使代码更通用，我将所有辅音的列表存储在一个字符串变量中

my $vowels = 'aeiou';

或在数组中

my @vowels = $vowels.comb;

$vowels 或 @vowels 变量如何解决原来的问题？

Answer 1

也许 trans 方法比 subst 子或运算符更合适。

试试这个:

my $word = "camelia";
my @consonants = keys ("a".."z") (-) <a e i o u>;
say $word.trans(@consonants => @consonants>>.uc);
# => CaMeLia