opendir 在 Perl 6 中如何工作？

Question

有人可以告诉我，为什么“opendir”不起作用？

#!/usr/bin/env perl6
use v6;

my $file = 'Dokumente/test_file';

if ( my $fh = open $file, :r ) {
    for $fh.lines -> $line {
    say $line;
    }
} else {
    say "Could not open '$file'";
}


my $dir = 'Dokumente';

my $dh = opendir $dir err die "Could not open $dir: $!";

输出：

你好，世界！
2号线。
最后一行。

找不到不存在的子目录&opendir
当前指令：“_block14”pc 29 (EVAL_1:0)
从 Sub '!UNIT_START' pc 1163 (src/glue/run.pir:20) 调用
从 Sub 'perl6;PCT;HLLCompiler;eval' pc -1 ((未知文件):-1) 调用
从 Sub 'perl6;PCT;HLLCompiler;evalfiles' pc 1303 调用 (compilers/pct/src/PCT/HLLCompiler.pir:707)
从 Sub 'perl6;PCT;HLLCompiler;command_line' pc 1489 调用 (compilers/pct/src/PCT/HLLCompiler.pir:794)
从 Sub 'perl6;Perl6;Compiler;main' pc -1 ((未知文件):-1) 调用

Answer 1

Perl6 现在已经准备好了。这样我们就可以对这个非常老的问题给出正确的答案了。

Perl6 中不再有 opendir。但感谢许多使用 Perl 6 的人，打开目录现在非常简单。

正如 perl - dir doc 所说：

打开目录只需键入：

for dir() -> $file {
    say $file;
}

并使用过滤器：

for dir('/path/to/dir', test => /\.jpg$/ ) -> $file {
    say $file;
}

所以你可以忘记 opendir、readdir、grep 等。

Answer 2

opendir 还没有实现。请发送邮件至 [email protected] 来提交错误报告。

Answer 3

我没有 Perl 6，但看起来您错误地调用了 opendir。这个 Perl 片段对我有用：

my $dh;
opendir $dh, '/home/ar' or die 'Could not open directory';