在Perl 5中,我可以在字符串上打开文件句柄,如下所示:
open my $kfh, "<", \$message->payload;
Run Code Online (Sandbox Code Playgroud)
我有一个场景,使用字符串作为文件句柄并将其传递给open方法:
my $fh = new IO::Zlib;
open my $kfh, "<", \$message->payload;
if($fh->open($kfh, 'rb')){
print <$fh>;
$fh->close;
}
Run Code Online (Sandbox Code Playgroud)
其中$message->payload从读取卡夫卡,并且内容是一个字节数组.raiph有一个类似的问题,但它没有回答我的问题.
所以我想知道如何在Perl 6中的字符串上打开文件句柄,就像Perl 5一样?这些文档页面没有关于此的信息:
一个非常简单的问题,但我不能轻易找到答案.
我希望所有人都say在一个块中去一个文件.但后来我希望我的输出返回STDOUT.怎么做?
my $fh_foo = open "foo.txt", :w;
$*OUT = $fh_foo;
say "Hello, foo! Printing to foo.txt";
$*OUT = ????;
say "This should be printed on the screen";
Run Code Online (Sandbox Code Playgroud)