Perl 6 POSIX字符类是否尊重语言环境？

Question

Perl 6 POSIX字符类是否尊重LOCALE？我正在玩一个程序，该程序将打印与POSIX字符类匹配的所有字符，并且无论我设置什么语言环境，它似乎总是打印相同的集合。如果我的语言环境是en_US. US-ASCII，我仍然得到520位数字。在Mac上执行此操作意味着我没有在其他地方找到的很酷的语言环境探索工具（或者，它们以不同的名称存在），这也很烦人。

这都是在这个命令下完成的，我需要将其转换为shell别名：

$ perl6 -e 'say join " ", map *.gist, $*VM, $*PERL, $*DISTRO, $*KERNEL'
moar (2016.10) Perl 6 (6.c) macosx (10.10.5) darwin (14.5.0)

并且，该计划：

my $properties = set( <
    alnum alpha ascii blank cntrl digit graph lower print graph punct
    space upper word xdigit
    > );

sub MAIN ( Str $property where * ∈ $properties = 'digit' ) {
    say "NAME is " ~ %*ENV<NAME>;
    say "LC_CTYPE is " ~ ( %*ENV<LC_CTYPE> // %*ENV<LC_ALL> );
    say "property is $property";
    use MONKEY-SEE-NO-EVAL;


    my $pattern = EVAL "rx/ <$property> /";
    say "regex is " ~ $pattern.gist;

    show_chars( $pattern );
    }

sub show_chars ( Regex $pattern ) {
    for 0 .. 0x10FFFF -> $codepoint {
        state $count = 0;
        LAST { say "\nThere were $count characters" }
        my $char = chr( $codepoint );
        next unless $char ~~ $pattern;
        $count++;

        print "$char ";
        print "\n" if $count %% 50;
        }
    }

注意，我在程序中做了一件愚蠢的评估工作。我正在寻找rx中变量插值的替代品。S05表明这是一件事，但没有文档，所以我想不是。我开始探索自己的代币，但不得不继续。现在我问了另一个关于插值的问题。

Answer 1

2019年更新许多链接不起作用。有些是永久性的，有些是暂时的，有些是有替代品的¹

关于此答案：

谢谢你的工作！FWIW，我一点也不关心地区。我刚刚看到“POSIX”，很惊讶Perl 6会关心这个问题brian d foy

谢谢我看到莫里茨在我开始之前已经回答了你的问题。但我决定我想探索回购协议等，寻找字符串“locale”的匹配。。。然后我决定发布这些结果会很有用，而且在这里它们会更有用，在这里，搜索perl6和locale的人可能会找到它们，而不仅仅是作为个人要点雷夫

我并不是直接回答您关于POSIX和regex的狭隘问题。莫里茨回答了这个问题。这篇文章正是我对“Perl 6和/或Rakudo中对任何特定于语言环境的处理有什么支持？”这一更普遍问题的答案进行的广泛搜索的记录通过在各种repo等中搜索“locale”匹配项。

这个“答案”结合了权威的来源和疯狂的猜测。如果它有联系，那就是确定的。如果这是我的散文，那就是疯狂的猜测。

在现有公共模块列表中搜索“locale”将生成3个模块。Afaict，无影响Perl 6行为。

谷歌搜索“区域设置”的docs.perl6.org会产生“您的搜索-站点：docs.perl6.org区域设置-不匹配任何文档。”

在perl6进行“locale”页内搜索。失败将生成单个错误报告。

谷歌搜索设计/推测文档会产生三个感兴趣的结果：

>

提到故意不处理核心中的时间区域设置处理。

提及内置规则

在NQP的源代码中搜索“区域设置”会产生零匹配项。

搜索MoarVM的repo中的“locale”会在第三方GCC libatomic库（一个可移植的原子操作库；我不知道为什么这样的代码应该关心locale）。

谷歌在#perl6中搜索“locale”会产生大量提及，包括：

>

2007 TimToady：“在标准unicode级别上……完全忽略了区域设置”。和“但如果你要求语言相关的字符处理，你可以要求它注意语言环境”。（我认为还没有人编写了后者所需的代码。）

2008年，当莫里茨（Moritz为上述问题编写了另一个答案）问“知道Perl 6将如何处理语言环境吗？”时，没有人回答他。

2012 TimToady说“我们倾向于强烈不喜欢地方”。

2016年“一些关于日期、数字和内容的标准语言环境资料会很有用”

2016“我不认为我们有区域意识的数字格式”。

2016“Perl 6不处理任何特定于语言环境的东西，例如那些土耳其特殊情况AFAIK。”

1该答案中的许多链接在2019年被破坏：

>

perl6.fail永远消失了。请改用perl6和rakudo的rt bug跟踪器、perl6队列和gh问题队列。rt跟踪器正在消失，目前是只读的。

设计perl6.org现在已经倒闭了，也许是永远的。我所知道的最好的替代品是归档。组织。但afaik无法跨页面搜索。

irclog。perlgeek。反链接已永久关闭。我所知道的最好的替代品是colabti的irclog，它可以追溯到2009年左右。（莫里茨的perlgeek数据可追溯到2005年。）使用URL中的日期映射到colabti的日志。

Answer 2

据我所知，Perl 6正则表达式不支持POSIX字符类。您提到的内置方法映射到Unicode属性或块（或类似的构造，请原谅我对Unicode的无知），它们都不是特定于语言环境的。

就评估而言，你可以这样处理它：

my $re_string = '<alpha>';
say 'a' ~~ rx / <$re_string> /;