perl6

I can use system in Perl 5 to run external programs. I like to think of system like a miniature "Linux command line" inside Perl. However, I cannot find documentation for system in Perl 6. What is the equivalent? Christoph In addition to using shell or run , which replace system from Perl 5, you can also use NativeCall to invoke the libc system function. On my Windows box, it looks like this: use NativeCall; sub system(Str --> int32) is native("msvcr110.dll") { * }; system("echo 42"); Perl6 actually has two commands that replace system from Perl 5. In Perl6, shell passes its argument to the

For example, I've installed the Cro module, when I run my simple code: my %headers = {Authorization => OAuth realm="", oauth_consumer_key="xxxxxxxxxxxxxxxx", oauth_nonce="29515362", oauth_signature="KojMlteEAHlYjMcLc6LFiOwRnJ8%3D", oauth_signature_method="HMAC-SHA1", oauth_timestamp="1525913154", oauth_token="xxxx-xxxxxxxxxxxxxxxxxx", oauth_version="1.0", User-Agent => Cro}; my $resp = await Cro::HTTP::Client.get: 'http://api.fanfou.com/statuses/home_timeline.json', headers => [ user-agent => 'Cro', content-type => 'application/json;charset=UTF-8', |%headers ]; say $resp.header('content-type')

I want to do something like this: die "Fatal error: application version $MY-APPLICATION-VERSION" Since a Perl6 module cannot assume the relative locations of files it was packaged with (for instance installed modules are all put into a flat directory structure) I can't just do $?FILE.IO.add("../META6.json").slurp . Is there a way to get the version declared in META6.json in a Perl6 app/module that may or may not be installed? As of rakudo v2019.03 modules may access the Distribution object used to load it via $?DISTRIBUTION . This allows the following: unit module My::Module; BEGIN my $VERSION

The Perl 6 POD documentation has a section on accessing the current file's POD document by using $=pod . There is no information on accessing another file's POD document. How can I access another file's POD structure, without altering the current file's $=pod ? You can now do that with Pod::Load . From the README in the examples directory perl6 -e 'use Pod::Load; .perl.say for load("pod-load-clean.pod6")' Please note that the Pod6 file has to be "clean", that is, not use any external module that is not generally available or it might fail. Perhaps someone knows a clean way to do this, in which

I'm trying to import a Perl5 module I really like https://metacpan.org/pod/Data::Printer using advice from the manual page https://modules.perl6.org/dist/Inline::Perl5:cpan:NINE using a very simple script use Inline::Perl5; my $p5 = Inline::Perl5.new; $p5.use('Data::Printer'); but then I get this error: Unsupported type NativeCall::Types::Pointer<94774650480224> in p5_to_p6 in method p5_to_p6_type at /usr/lib/perl6/site/sources/130449F27E85303EEC9A19017246A5ED249F99E4 (Inline::Perl5) line 298 in method unpack_return_values at /usr/lib/perl6/site/sources/130449F27E85303EEC9A19017246A5ED249F99E4

This code that uses (experimental) macros: use experimental :macros; macro new-var() { quasi { my $a = 42 } }; new-var; say $a Fails with Variable '$a' is not declared , although the macro passes through without an error. If that's a correct macro declaration, what does it do? If it's not, is there a way to define new variables from within a macro? Jonathan Worthington The answer from moritz is correct about the state of macros, though from what I know of the work being done in 007, I don't think the program as written would be correct even with a working implementation of Perl 6 macros. Perl

I am trying to create a cache of POD6 by precompiling them using the CompUnit set of classes. I can create, store and retrieve pod as follows: use v6.c; use nqp; my $precomp-store = CompUnit::PrecompilationStore::File.new(prefix=>'cache'.IO); my $precomp = CompUnit::PrecompilationRepository::Default.new(store=> $precomp-store ); my $key = nqp::sha1('test.pod6'); 'test.pod6'.IO.spurt(q:to/CONTENT/); =begin pod =TITLE More and more Some more text =end pod CONTENT $precomp.precompile('test.pod6'.IO, $key, :force); my $handle = $precomp.load($key, )[0]; my $resurrected = nqp::atkey($handle.unit,'$