perl 6“do(file)”等效项

Question

在perl5中，我曾经对配置文件进行“do（file）”，如下所示：

---script.pl start ---
our @conf = ();
do '/path/some_conf_file';
...
foreach $item (@conf) {
    $item->{rules} ...
...
---script.pl end ---

---/path/some_conf_file start ---
# arbitrary code to 'fill' @conf
@conf = (
{name => 'gateway',
    rules => [
        {verdict => 'allow', srcnet => 'gw', dstnet => 'lan2'}
    ]
},

{name => 'lan <-> lan2',
    rules => [
        {srcnet => 'lan', dstnet => 'lan2',
         verdict => 'allow', dstip => '192.168.5.0/24'}
    ]
},
);
---/path/some_conf_file end ---

另外Larry Wall的“Programming Perl”也提到了这个方法：

但是做FILE对于读取程序配置文件之类的事情仍然有用。手动错误检查可以通过以下方式完成：

# read in config files: system first, then user 
for $file ("/usr/share/proggie/defaults.rc",
                "$ENV{HOME}/.someprogrc") {
         unless ($return = do $file) {
             warn "couldn't parse $file: $@" if $@;
             warn "couldn't do $file: $!"    unless defined $return;
             warn "couldn't run $file"       unless $return;
         } }

优点：

• 不需要每次都编写自己的解析器-perl解析并为您创建数据结构；
• 更快/更简单：本机perl数据结构/类型，无需从外部格式（如YAML）转换开销；
• 与作为conf文件的模块相比，不需要操纵@INC从某处加载模块；
• 与conf文件的模块相比，额外的代码更少；
• “配置文件”的“语法”与perl本身一样强大；
• “ad hoc”格式；

弊：

• 没有隔离：我们可以执行/销毁“配置文件”中的任何内容;

perl6如何获得相同的结果
在perl6中有没有更好的方法（没有缺点）并且不解析自己的语法、语法、模块包括
类似“从文件中的文本表示加载哈希或数组”之类的内容？

Answer 1

您可以使用电子邮箱（$file）（参考 http://doc.perl6.org/language/5to6-perlfunc#do）。

正如您指出的，使用EVALFILE有缺点，因此我不打算在这方面添加任何内容：-）

下面是一个示例配置文件:

# Sample configuration (my.conf)
{
    colour  => "yellow",
    pid     => $*PID,
    homedir => %*ENV<HOME> ~ "/.myscript",
    data_source => {
        driver => "postgres",
        dbname => "test",
        user   => "test_user",
    }
}

这是一个使用它的示例脚本：

use v6;

# Our configuration is in this file
my $config_file = "my.conf";
my %config := EVALFILE($config_file);

say "Hello, world!\n";

say "My homedir is %config<homedir>";
say "My favourite colour is %config<colour>";
say "My process ID is %config<pid>";
say "My database configuration is:";
say %config<data_source>;

if $*PID != %config<pid> {
    say "Strange. I'm not the same process that evaluated my configuration.";
}
else {
   say "BTW, I am still the same process after reading my own configuration.";
}