Perl6::数据的啜饮

Question

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

use strict;
use Perl6::Slurp;

my $contents = slurp(*DATA);

__END__
line 1
line 2

失败。

Answer 1

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

use Perl6::Slurp;

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

__DATA__
hello
world