Multi tool use

Clash Royale CLAN TAG

How to open a file handle on a string in Perl 6?

In Perl 5, I can open a filehandle on string like this:

open my $kfh, "<", $message->payload;


I have a scenario that uses string as a filehandle and passes it to the open method:

open

my $fh = new IO::Zlib;
open my $kfh, "<", $message->payload;
if($fh->open($kfh, 'rb')){
print <$fh>;
$fh->close;
}


where $message->payload is read from Kafka, and the content is a byte array. raiph had a similar question, but it didn't answer my question.

$message->payload

So I want to know how to open a filehandle on a string in Perl 6 like Perl 5 does? These documentation pages have no information on this:

1 Answer
1

EDIT: See this question for how to do what @raiph says about opening a filehandle to a string. Also, read @raiph's comments.

This is how to open a filehandle to a file from a string, not how to open a filehandle to a string without a file being involved. Thanks to @raiph for clarifying the OP's meaning.

The documentation has a section called Input/Output that describes this process.

One way to read the contents of a file is to open the file via the open function with the :r (read) file mode option and slurp in the contents:

my $fh = open "testfile", :r;
my $contents = $fh.slurp-rest;
$fh.close;


Here we explicitly close the filehandle using the close method on the IO::Handle object. This is a very traditional way of reading the contents of a file. However, the same can be done more easily and clearly like so:

my $contents = "testfile".IO.slurp;
# or in procedural form:
$contents = slurp "testfile"


By adding the IO role to the file name string, we are effectively able to refer to the string as the file object itself and thus slurp in its contents directly. Note that the slurp takes care of opening and closing the file for you.

This is also found in the Perl5 to Perl6 pages as well.

In Perl 5, a common idiom for reading the lines of a text file goes something like this:

open my $fh, "<", "file" or die "$!";
my @lines = <$fh>; # lines are NOT chomped
close $fh;`


In Perl 6, this has been simplified to

my @lines = "file".IO.lines; # auto-chomped

my @lines = "file".IO.lines; # auto-chomped

Further references to do this are found in the IO::Handle documentation:

IO::Handle

Instances of IO::Handle encapsulate an handle to manipulate input/output resources. Usually there is no need to create directly an IO::Handle instance, since it will be done by other roles and methods. For instance, an IO::Path object provides an open method that returns an IO::Handle:

IO::Handle

IO::Handle

IO::Path

IO::Handle

my $fh = '/tmp/log.txt'.IO.open;
say $fh.^name; # OUTPUT: IO::Handle


By clicking "Post Your Answer", you acknowledge that you have read our updated terms of service, privacy policy and cookie policy, and that your continued use of the website is subject to these policies.