En Perl 5, puedo crear un identificador de archivo para una cadena y leer o escribir desde la cadena como si fuera un archivo. Esto es ideal para trabajar con pruebas o plantillas.

Por ejemplo:

use v5.10; use strict; use warnings;

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

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

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

¿Cómo puedo hacer eso en Perl 6? El seguimientono lo hace funciona para Perl 6 (al menos no para mi instancia de Perl6 ejecutándose enMoarVM 2015.01 desde elLanzamiento en enero de 2015 de Rakudo Star en CentOS 6.5 de 64 bits):

# 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

Me sale el mensaje de error:

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

No es muy sorprendente que Perl5'sopen(my $fh, '<', \$text) no es lo mismo que Perl6my $fh = $text;. Entonces la pregunta es: ¿cómo se crea un identificador de archivo virtual a partir de una cadena en Perl 6 comoopen(my $fh, '<', \$str) en Perl 5? ¿O es algo que aún no se ha implementado?

ACTUALIZACIÓN (escribir en un identificador de archivo en Perl 5)

Del mismo modo, puede escribir en controladores de archivo de cadena en 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";

Salidas:

 My string is 'ABC'

Todavía no he visto nada remotamente similar en Perl 6.