Perl6中通过Slang为标量添加€作为$别名失败求助

首先，你遇到的核心问题是只修改了语法识别规则，但没有同步调整动作类（Actions）的处理逻辑。Perl 6的语法解析和语义处理是分离的：Grammar负责识别代码结构，Actions负责把识别结果转换成实际的执行逻辑（比如变量引用）。你之前的代码让Grammar能认出€是sigil，但Actions不知道该把它当成$来处理，所以才会直接输出€name而不是替换变量值。

另外关于$*LANG和$?LANG：确实$*LANG已经过时，现在官方推荐使用$?LANG，不过部分旧代码可能还能兼容，但建议统一用新的。

修正后的ScalarEU.pm6模块 #

unit module ScalarEU;
sub EXPORT(|) {
    # 扩展Grammar，让sigil规则匹配€或$
    my role EuscalarGrammar {
        token sigil:sym<$> { '€' | '$' }
    }
    # 扩展Actions，将€映射为$的语义处理
    my role EuscalarActions {
        method sigil:sym<$>($/) {
            # 把匹配到的€标记为$类型的sigil，让后续逻辑正确识别变量
            make $/.value eq '€' ?? '$' !! $/.value;
        }
    }
    # 获取当前语言环境的Grammar和Actions
    my $lang = $?LANG;
    # 给原Grammar混入自定义规则
    my $grammar = $lang.grammar.HOW.mixin($lang.grammar, EuscalarGrammar);
    # 给原Actions混入自定义处理逻辑
    my $actions = $lang.actions.HOW.mixin($lang.actions, EuscalarActions);
    # 重新定义MAIN slang，应用修改后的Grammar和Actions
    $lang.define_slang('MAIN', $grammar, $actions);
    {}
}

测试程序（保持你的原有代码即可） #

use lib "lib";
use ScalarEU;
sub MAIN ($name) {
    say "Hello, €name!";
}

为什么这样能解决问题？ #

• Grammar的修改让解析器能识别€作为标量sigil；
• Actions的修改则告诉解析器：当匹配到€时，按照$的语义去处理它——也就是把€name当成$name来解析，这样变量替换就能正常工作了。

运行测试程序时，执行./hello World，你会得到预期的输出：Hello, World!

额外提示 #

早期的Perl 6文章（比如你参考的2008年的内容）因为语言版本迭代，很多API和实现细节已经变化，建议优先参考最新的官方文档或社区维护的模块示例。另外，确保你的Rakudo版本是较新的，旧版本对Slang的支持可能存在兼容性问题。

内容的提问来源于stack exchange，提问作者Arne Sommer