perl6

This question is in the same ballpark as this other on making blocks iterable , but seems to reveal a different problem with mixins (or a different misunderstanding of the syntax on my part). What Iterable does is to make a data structure effectively iterable, that is, you can create loops by preceding it with for . Iterable serves as an API for objects that can be iterated with the for construct and related iteration constructs, like hyper operators. So let's try to put this to practice: my &logger = -> $event { state %store; if ( $event ) { %store{ DateTime.new( now ) } = $event; } else {

I've been previously working only with bash regular expressions, grep , sed , awk etc. After trying Perl 6 regexes I've got an impression that they work slower than I would expect, but probably the reason is that I handle them incorrectly. I've made a simple test to compare similar operations in Perl 6 and in bash . Here is the Perl 6 code: my @array = "aaaaa" .. "fffff"; say +@array; # 7776 = 6 ** 5 my @search = <abcde cdeff fabcd>; my token search { @search } my @new_array = @array.grep({/ <search> /}); say @new_array; Then I printed @array into a file named array (with 7776 lines), made a

I'm wondering what colons have to do with method and function calls in Perl 6. For the record, I am using perl6 version 2015.05-55-gd84bbbc built on MoarVM version 2015.05. I just saw the following in a Perl6 spec test (S32-io) (I added the comment): $fh.print: "0123456789A"; # prints '0123456789A' to the file As far as I can tell, this is equivalent to: $fh.print("0123456789A"); # prints '0123456789A' to the file Both of these seem to take multiple arguments and to flatten lists fine: $fh.print: "012", "345", "6789A"; # prints '0123456789A' to the file $fh.print("012", "345", "6789A"); #

Let's say I want all permutations of 2 letters out of a, b and c. I can do: my @perm = <a b c>.combinations(2)».permutations; say @perm; # [((a b) (b a)) ((a c) (c a)) ((b c) (c b))] which is close, but not exactly what I need. How do I “flatten” this so that I get: # [(a b) (b a) (a c) (c a) (b c) (c b)] ? raiph See also "a better way to accomplish what I (OP) wanted" . See also "Some possible solutions" answer to "How can I completely flatten a Perl 6 list (of lists (of lists) … )" question . Add a subscript my \perm = <a b c>.combinations(2)».permutations; say perm; # (((a b) (b a)) ((a c)

Synopsis 05 mentions that Perl 6 doesn't interpolate variables into a regex, but you can associate an external variable with a pattern. The docs don't mention this feature as far as I can tell. I think people are still going to want to build up a pattern from a string somehow, so I'm curious how that would work. Here's a program that demonstrates what happens now. I don't know if that's what is supposed to happen or what anyone intended. I insert a variable into a pattern. If you look at $r with .perl , you see the variable name. Then, I apply the pattern and it matches. I change the variable