raku - 这个循环还有哪些其他方式可以重写？

Question

得到这个简单的循环:

use Config::Simple:from<Perl5>;

my $cfg = Config::Simple.new(syntax => 'ini');


%config{'short_name'} = 'blah';
for %config.kv -> $k, $v {
    $cfg.param("%config{'short_name'}.$k", $v);
}

工作正常。但是我想更加熟悉实现相同目标的其他方法，即使只是为了舒适地阅读其他人的代码。另外，循环似乎是“老式”的做事方式，而不是“Raku-like”，我需要更习惯于以更高级的方式使用函数。

无论如何，为了拉伸(stretch)我的新 Raku 肌肉，我想出了这个单线作为替代方案:

map(-> $k, $v { $cfg.param("%config{'short_name'}.$k", $v) }, %config.kv);

它的可读性较差(至少对于我未经训练的眼睛而言)，但它有效。

我的直觉是有一些好的方法可以使这段代码更加简洁和可读。有兴趣看看我是否正确。

Answer 1

• 重写(恕我直言，for比map更合适，如果一个变量改变的话)

      use Config::Simple:from<Perl5>;
  
      my $cfg = Config::Simple.new: syntax => 'ini';
      my %config := short_name => 'blah';
  
      $cfg.param: "%config<short_name>\.{.key}", .value  for %config;
  
      print $cfg.as_string();
  

• 通过 set_block

      use Config::Simple:from<Perl5>;
  
      my $cfg = Config::Simple.new: syntax => 'ini';
      my %config = short_name => 'blah';
  
      $cfg.set_block: %config<short_name>, %config;
  
      print $cfg.as_string();