Ich kann Dateihandles zu Strings in Perl 5 erstellen, wie mache ich das in Perl 6?

Question

In Perl 5 kann ich ein Dateihandle zu einer Zeichenfolge erstellen und aus der Zeichenfolge lesen oder schreiben, als ob es eine Datei wäre. Dies ist ideal für die Arbeit mit Tests oder Vorlagen.

Zum Beispiel:

use v5.10; use strict; use warnings; 

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

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

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

Wie kann ich das in Perl 6? Die folgenden nicht Arbeit für Perl 6 (zumindest nicht für meine Instanz Perl6 läuft auf MoarVM 2015.01 vom January 2015 release of Rakudo Star auf 64-Bit CentOS 6.5):

# 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 

ich die Fehlermeldung:

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

Es ist nicht sehr überraschend, dass Perl5 der open(my $fh, '<', \$text)my $fh = $text; nicht das gleiche wie Perl6 der ist. Die Frage ist also: Wie erstellt man ein virtuelles Datei-Handle aus einer Zeichenkette in Perl 6 wie open(my $fh, '<', \$str) in Perl 5? Oder ist das etwas, das noch umgesetzt werden muss?

UPDATE (Schreiben auf eine Dateihandle in Perl 5)

Ebenso Sie String Dateihandies in Perl 5 schreiben:

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"; 

Ausgänge:

My string is 'ABC' 

Ich habe nicht in Perl 6 noch etwas Ähnliches gesehen.

Answer 1

Lesen

Die idiomatische Weg line-by-line zu lesen ist die .lines method, die sowohl auf Str verfügbar ist und IO::Handle.

Es gibt eine faule Liste, die Sie

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 

auf for, wie in

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

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

Schreiben (Angepasst von #perl6 dank Carl Mäsak.)

Mehr passieren kann erweiterte Fälle

Wenn Sie eine mehr benötigen phistizierter Mechanismus, um Dateigriffe zu fälschen, gibt es IO::Capture::Simple und IO::String in der ecosystem.

Zum Beispiel:

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