string - 我可以在Perl 5中为字符串创建文件句柄，如何在Perl 6中实现呢？

在Perl 5中，我可以为字符串创建文件句柄，并像对待文件一样从字符串中读取或写入。这对于使用测试或模板非常有用。

例如：

use v5.10; use strict; use warnings;

my $text = "A\nB\nC\n";

open(my $fh, '<', \$text);

while(my $line = readline($fh)){
    print $line;
}

我如何在Perl 6中做到这一点？以下内容不适用于Perl 6（至少不适用于我的Perl6实例在64位CentOS 6.5上的MoarVM 2015.01上在January 2015 release of Rakudo Star上运行的Perl6实例）：

# Warning: This code does not work
use v6;

my $text = "A\nB\nC\n";

my $fh = $text;

while (my $line = $fh.get ) {
    $line.say;
}
# Warning: Example of nonfunctional code

我收到错误消息：

No such method 'get' for invocant of type 'Str'
   in block <unit> at string_fh.p6:8

Perl5的open(my $fh, '<', \$text)与Perl6的my $fh = $text;不同并不奇怪。所以问题是：如何从Perl 6中的字符串（如Perl 5中的open(my $fh, '<', \$str)）创建虚拟文件句柄？还是有待实施？

UPDATE（在Perl 5中写入文件句柄）

同样，您可以在Perl 5中写入字符串文件句柄：

use v5.10; use strict; use warnings;

 my $text = "";
 open(my $fh, '>', \$text);

 print $fh "A";
 print $fh "B";
 print $fh "C";

 print "My string is '$text'\n";

输出：

 My string is 'ABC'

我还没有在Perl 6中看到任何类似的东西。

最佳答案

读

逐行读取的惯用方式是.lines method，在Str和IO::Handle上都可用。

它返回一个惰性列表，您可以将其传递给for，如

my $text = "A\nB\nC\n";

for $text.lines -> $line {
     # do something with $line
}

写作

my $scalar;
my $fh = IO::Handle.new but
         role {
             method print (*@stuff) { $scalar ~= @stuff };
             method print-nl        { $scalar ~= "\n" }
         };

$fh.say("OH HAI");
$fh.say("bai bai");

say $scalar
# OH HAI
# bai bai

（由于卡尔·马萨克而改编自#perl6。）

更高级的案例

如果您需要更复杂的机制来伪造文件句柄，则IO::Capture::Simple中有IO::String和ecosystem。

例如：

use IO::Capture::Simple;
my $result;
capture_stdout_on($result);
say "Howdy there!";
say "Hai!";
capture_stdout_off();
say "Captured string:\n" ~$result;

关于string - 我可以在Perl 5中为字符串创建文件句柄，如何在Perl 6中实现呢？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/28702850/