1

なぜ「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)
がサブ '!UNIT_START' から呼び出されました pc 1163 (src/glue/run.pir:20)
がサブ 'perl6;PCT から呼び出されました; HLLCompiler;eval' pc -1 ((unknown file):-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)
サブ 'perl6;Perl6;Compiler;main' pc -1 ((unknown file):-1) から呼び出されました

4

3 に答える 3

1

opendirはまだ実装されていません。rakudobug@perl.orgにメールを送信して、バグレポートを提出してください。

于 2010-02-28T17:48:27.877 に答える
-2

私は Perl 6 を持っていませんが、opendir を間違って呼び出しているようです。このperlスニペットは私のために働きます:

my $dh;
opendir $dh, '/home/ar' or die 'Could not open directory';
于 2010-02-26T16:52:14.570 に答える