小编use*_*022的帖子

尝试逐步将一些 Perl 脚本转换为 Raku。即使在这里浏览了很多内容并更深入地阅读了Learning Perl 6，我仍然坚持下面的内容。

我无法取得进展的部分是最后一个循环（转换为for）；获取密钥并按月份名称和日期编号对它们进行排序看起来是不可能的，但我相信这是可行的。

任何有关如何使用“惯用”语法实现这一目标的提示都将非常受欢迎。

#!/usr/bin/perl

use strict;

my %totals;

while (<>) {
    if (/redis/ and /Partial/) {
        my($f1, $f2) = split(' ');
        my $w = $f1 . ' ' . $f2;
        $totals{$w}++;
    }
}

my %m = ("jan" => 1, "feb" => 2, "mar" => 3, "apr" => 4, "may" => 5, "jun" => 6,
         "jul" => 7, "aug" => 8, "sep" => 9, "oct" => 10, "nov" => 11, "dec" => …