perl - Perl6::数据的啜饮

Question

有人可以使用 DATA 文件句柄发布 Perl6::Slurp 的参考示例吗？

use strict;
use Perl6::Slurp;

my $contents = slurp(*DATA);

__END__
line 1
line 2

失败。

Answer 1

如perldocPerl6::Slurp::slurp所示，对 typeglob 的引用是 的合适参数。

use Perl6::Slurp;

$hw = slurp \*DATA;
print $hw;

__DATA__
hello
world