»ö« Welcome to Perl 6! | perl6.org/ | evalbot usage: 'p6: say 3;' or rakudo:, or /msg camelia p6: ... | irclog: irc.perl6.org or colabti.org/irclogger/irclogger_logs/perl6 | UTF-8 is our friend!
Set by moritz on 22 December 2015.
zengargoyle tyil++ syscall is fun 00:12
zengargoyle m: use NativeCall; sub syscall(int32) is native {}; syscall(57); say "Hi from $*PID" 00:16
camelia Hi from 6949
Hi from 6949		 00:17
zengargoyle resists the urge. :P 00:18
BenGoldberg samcv, "If you want have problems with C<xim> then you should try C<ibus>." I'm not sure if you should remove "want" or change it to "want to" :P 00:19
samcv heh thanks
BenGoldberg welcome :) 00:20
samcv heh "want to" haha
Geth doc: 4b3297906e | (Samantha McVey)++ | doc/Language/unicode_entry.pod6
[unicode_entry] fix a typo

  BenGoldberg++		 00:21
zengargoyle now has to walk over to the desktop and power it back on. :) 00:25
geekosaur BenGoldberg, "yes" 00:26
BenGoldberg grins. 00:28
zengargoyle strangely enough, that caused desktop to power-on into the BIOS setup screen. 00:31
travis-ci Doc build errored. Samantha McVey '[unicode_entry] fix a typo 01:11
travis-ci.org/perl6/doc/builds/244104452 github.com/perl6/doc/compare/0d411...3297906eac
javan looking for a hand trying to parse this: {error => [], result => {rfc1123 => Sun, 18 Jun 17 05:00:26 +0000, unixtime => 1497762026}} 04:59
to pull out individual values 05:00
eveo javan: you mean parse that text with a grammar or do you have a hash and trying to get at a value? 05:01
javan hash 05:02
eveo m: my $stuff = {error => [], result => {rfc1123 => "Sun, 18 Jun 17 05:00:26 +0000", unixtime => 1497762026}}; say $stuff<result><rfc1123>
camelia Sun, 18 Jun 17 05:00:26 +0000
eveo m: my $stuff = {error => [], result => {rfc1123 => "Sun, 18 Jun 17 05:00:26 +0000", unixtime => 1497762026}}; say $stuff<result><unixtime>
camelia 1497762026
javan thanks, lol im making it harder than it has to be 05:04
eveo any time 05:07
BenGoldberg .u 📦 05:20
yoleaux U+1F4E6 PACKAGE [So] (📦)
eveo .tell El_Che 2017.06 got shipped out 05:37
yoleaux eveo: I'll pass your message to El_Che.
El_Che NeuralAnomaly: status 09:02
yoleaux 05:37Z <eveo> El_Che: 2017.06 got shipped out
NeuralAnomaly El_Che, [✘] Next release will be in 3 weeks and 6 days. Since last release, there are 1 new still-open tickets (0 unreviewed and 0 blockers) and 7 unreviewed commits. See perl6.fail/release/stats for details
timotimo damn, the next release is so soon 09:04
El_Che timotimo: and it's gonna be huge 09:12
:)
alexk m: my $s = 'a,b,c'; for ^100_000 { @ = $s.split(',') }; say now - INIT now; 09:37
camelia 1.122507
alexk m: my $s = 'a,b,c'; for ^100_000 { @ = split(',', $s) }; say now - INIT now; 09:38
camelia 3.29549189
araraloren_ m: my $s = 'a,b,c'; for ^100_000 { @ = $s.&split(',') }; say now - INIT now; 09:56
camelia 3.4321289 09:57
El_Che github.com/nxadm/rakudo-pkg/releas...ag/2017.06 <- new rakudo pkgs 10:22
stmuk El_Che++ 10:47
kernasi hi 10:50
pmurias what's an idiomatic way of running a command with a timeout? 11:10
jnthn pmurias: I'd assemble it out of Proc::Async and Promise.in(...) 11:12
yoleaux 05:35Z <eveo> jnthn: got two new tickets you may be interested in: "for loop no longer sinks stuff": rt.perl.org/Ticket/Display.html?id=131593 and "some data race in Proc::Async write" probably worth waiting until the piping is reworked as you planned to do next week. Ticket: rt.perl.org/Ticket/Display.html?id=131592
lucs m: print 'ok' if index('abc', 'b') == 1 # Fine. 14:13
camelia ok
lucs m: print 'ok' if index('abc', 'b') == 2 # Still fine.
camelia ( no output )
lucs m: print 'ok' if index('abc', 'Z') == 2 # Can I avoid the warning without needing to add a test for definedness?
camelia Use of Nil in numeric context
in block <unit> at <tmp> line 1
lucs Or if I must test, what would be idiomatic? 14:14
(perl5's return of -1 in case of no match was more practical, eh) 14:15
araraloren_ m: print 'ok' if index('abc', 'Z') 14:17
camelia ( no output )
araraloren_ lucs, index return an undefined value when it was not found 14:18
lucs Hmm... I'm actually trying to see in a given char appears at a given position in a string.
araraloren_ Here is the document: docs.perl6.org/routine/index 14:19
lucs araraloren_: Yep, I get that.
araraloren_ m: say index('abc', 'Z').perl 14:20
camelia Nil
lucs I'd rather not do if index($s, 'Z') && index($s, 'Z) == 2 # for example
lucasb would this be work? (index('abc', 'Z') // -1) == 2
lucs Hmm...
lucasb s/be//
araraloren_ It's work obviously 14:21
lucasb :)
lucs lucasb: Yep, I should have thought of that :)
Thanks lucasb and araraloren_
araraloren_ but not elegant ~~ 14:22
lucs Could be worse...
BenGoldberg m: print 'ok' if quietly index('abc', 'Z') == 2;
camelia ( no output )
lucs Hmm...
lucasb m: print 'ok' if quietly index('abc', 'Z') == 0; 14:23
camelia ok
lucs Whoops
araraloren_ That's a little better
BenGoldberg m: print 'ok' if quietly index('abc', 'Z') == "Make sure you know what you're doing";
camelia Cannot convert string to number: base-10 number must begin with valid digits or '.' in '3⏏5Make sure you know what you're doing' (indicated by ⏏)
in block <unit> at <tmp> line 1
lucasb m: say 'ok' if index('abc', 'a') andthen $_ == 0 14:39
camelia ok
lucasb better: ... andthen * == 0 14:41
lucs lucasb++ Neato 14:42
(all these operators...) 14:44
timotimo say ok if $_ == 0 with index('abc', 'a') 14:49
evalable6 (exit code 1) 04===SORRY!04=== Error while compiling /tmp/6Sh63zYPfA
Confused
at /tmp/6Sh63zYPfA:1
------> 03say ok if $_ == 0 with 08⏏04index('abc', 'a')
timotimo aaw
lucs m: (say 'ok' if $_ == 0) with index('abc', 'a') 14:51
camelia ok
lucs m: (say 'ok' if $_ == 0) with index('abc', 'z')
camelia ( no output )
moritz leanpub.com/perl6regex 15:19
timotimo did you just put this up? 15:20
moritz the search for a publisher has me suffiently annoyed that I decided to go with leanpub again
timotimo: yes
though if I do find a publisher, I might close that again
and I have about 35 pages written so far
moritz hits the publish button 15:23
araraloren_ Can I access base class attribute in child class method ? 15:44
moritz no
just methods 15:45
(and private methods, if you established an explicit trust in the parent class)
timotimo though of course if it's a public attribute you can use the getter/setter it made for you 15:46
Juerd likes the word 'accessor'
araraloren_ :) I found a class can access an attribute of role, it is suitable use a role contain some attribute ? 15:47
moritz araraloren_: what problem are you trying to solve? 15:48
if a child class needs access to an attribute, why not make it public?
I mean, either it's part of a stable API, then everybody should be able to acces sit
araraloren_ actually I want write it in TWEAK 15:49
moritz or it's not, then child classes shouldn't use it either
TWEAK should be a submethod, so it's called once for the child class, once for the parent class
araraloren_ But if I do it in base class, I need to know what the child class is
moritz why?
araraloren_ Yeah, I know it is a submethod 15:49
timotimo no problem 15:50
self will be the type of the subclass
timotimo and ::?CLASS or what it's called is the class you defined the submethod in 15:51
moritz m: class P { submethod TWEAK { say self.^name } }; class C is P { }; C.name
camelia No such method 'name' for invocant of type 'C'. Did you mean any of these?
none
note
take

in block <unit> at <tmp> line 1
araraloren_ The set value logical of child classes is different from each other.
moritz m: class P { submethod TWEAK { say self.^name } }; class C is P { }; C.new 15:52
camelia C
moritz araraloren_: what are the classes you are modeling? what does your code do?
araraloren_ moritz, wait a moment, I update it to my repo 15:53
moritz afk for a few minutes 15:54
araraloren_ github.com/araraloren/perl6-getopt...n.pm6#L180 15:55
moritz, ↑ 15:56
The Option::Base is that parent class
The TWEAK of Option::Boolean and Option::Integer is different, but I can write $!value 15:58
araraloren_ And actually I want let user can define their own Option, so I do not want do this in base class (Option::Base) 15:59
araraloren_ Hope you can understand me. :) 16:00
timotimo i find it a missed opportunity to call all perl 6 script files ".pls" 16:10
araraloren_ moritz, I gotta to sleep now. .o/ Night every one 16:22
rightfold timotimo: I'm more worried about the lack of .t6 16:27
jmerelo Hi all! 16:44
El_Che jota-jota
congrats on the new book
jmerelo Thanks!
El_Che brb (cooking)
jmerelo (but not here to talk about that, unless you _really_ want) 16:45
I was trying to add the book to @moritz web
And I realized he was using a Python static server to serve the test pages. I didn't like that. And started to look for a Perl 6 static web server. Didn't find one, so I started to write my own 16:46
Not a big deal, since there's this excellent HTTP::Server::Tiny by @tokuhirom
However, what I want is to be able to do something like this: perl6 -I lib -M HTTP::Server::Static (minus the -I lib) and start a static server by default 16:47
It works pretty well if I just put the code in Server.pm6, defining variables, and running code in the main scope.
But I want to have some default values in the command line. And when I put my code in "sub MAIN( $port = 8080, $host = '0.0.0.0', $dir = "." ) {" it gets into the command line, instead of running MAIN by default. 16:49
Any idea on how to do that better? Or at all? 16:52
timotimo you still have to -e '', don't you? 17:02
jmerelo Yep, I have tried to call MAIN explicitly, but to no avail either 17:05
perl6 -I lib -M HTTP::Server::Static -e "HTTP::Server::Static::MAIN();" yields an error. That would be plan B, but it does not work.
ugexe m: class Foo { our sub MAIN($bar) { say $bar } }; Foo::MAIN(42) 17:51
camelia 42
ugexe jmerelo: ^ 17:52
jmerelo jmerelo at penny in ~/Code/perl6/p6-http-static (master●●) 17:54
$ perl6 -I lib -M HTTP::Server::Static -e "HTTP::Server::Static::MAIN();"
http server is ready: 0.0.0.0:8080/ (pid:27214, keepalive: 1) 17:55
@ugexe :+1:
jmerelo Thanks! 17:55
jmerelo Let me check if args work correctly 17:56
Um, no, they don't. It's simply a sub called MAIN, it's not taking the default arguments 17:57
Or any argument, for that matter. I can actually call it explicitly, but baseline is it's not behaving as the MAIN routine in a program 17:58
ugexe well no
you're not going to have a lot of luck trying to do that
jmerelo It's actually not needed, since you have to call it anyway. Would have been nice...
@ugexe probably not. But thanks anyway! 17:59
zengargoyle is there no eqv of main() unless caller();
ugexe `perl6 -MZef::CLI -e0` you can do something like this 18:00
perl6 -MZef::CLI -e '' install Foo 18:01
but I could never get things to work right when i put the MAIN logic in the main module - Zef::Client 18:03
zengargoyle is it never getting to the -e part in Zef::CLI? my naive -e'' usually fails, -e'1' gives warning about useless use of constant. 18:04
ugexe m: 1 18:05
camelia WARNINGS for <tmp>:
Useless use of constant integer 1 in sink context (line 1)
ugexe m:
evalable6
zengargoyle perl6 -I. -MStatic -e'' -- tells me "Option -e needs a value" 18:11
timotimo probably has to -e '' 18:12
because -e'' is indistinguishable from -e alone
zengargoyle ah, *nod*
timotimo '' as a sole parameter works, but at the end of a parameter it just concatenates the empty string to whatever's in front 18:13
tbrowder jmerelo: can you list your book on per6.org/resources/books? 18:15
*perl6.org 18:16
jmerelo @tbrowder just did, waiting for the pull request to be accepted. That triggered this whole thing, actually :-)
tbrowder great! came in late to dance today 18:18
timotimo baile? 18:21
tbrowder speaking of books, can someone add Andrew Shitov's new book in work? i'm in limited contact now or i would do it; is it too early to add Gabor's book (not yet funded)? 18:23
keylet m: say 'foo'; 18:34
camelia foo
keylet m: 'a5b^%##*c&9c856697967d765$#~~!89g*^*&%tlL^^' ~~ /<-[A..Z]>/; 18:36
camelia ( no output )
keylet m: 'a5b^%##*c&9c856697967d765$#~~!89g*^*&%tlL^^' ~~ /<-[A..z]>/;
camelia ( no output )
keylet m: 'a5b^%##*c&9c856697967d765$#~~!89g*^*&%tlL^^' ~~ /\w/;
camelia ( no output )
keylet m: 'a5b^%##*c&9c856697967d765#~~!89g*^*&%tlL^^' ~~ /\w/;
camelia ( no output )
keylet no sense why it does not work
geekosaur it does not print the answer automatically 18:38
m: say 'a5b^%##*c&9c856697967d765#~~!89g*^*&%tlL^^' ~~ /\w/;
camelia ｢a｣
keylet m: say 'a5b^%##*c&9c856697967d765$#~~!89g*^*&%tlL^^' ~~ /<-[A..z]>/;
camelia ｢5｣
geekosaur (it's hard to test behavior of sinking when the bot doesn't let you sink stuff)
keylet m: say 'a5b^%##*c&9c856697967d765$#~~!89g*^*&%tlL^^' ~~ g:/<-[A..z]>/; 18:39
camelia 5===SORRY!5=== Error while compiling <tmp>
Confused
at <tmp>:1
------> 039c856697967d765$#~~!89g*^*&%tlL^^' ~~ g:7⏏5/<-[A..z]>/;
expecting any of:
colon pair
keylet m: say 'a5b^%##*c&9c856697967d765$#~~!89g*^*&%tlL^^' ~~ m:g/<-[A..z]>/; 18:39
camelia (｢5｣ ｢%｣ ｢#｣ ｢#｣ ｢*｣ ｢&｣ ｢9｣ ｢8｣ ｢5｣ ｢6｣ ｢6｣ ｢9｣ ｢7｣ ｢9｣ ｢6｣ ｢7｣ ｢7｣ ｢6｣ ｢5｣ ｢$｣ ｢#｣ ｢~｣ ｢~｣ ｢!｣ ｢8｣ ｢9｣ ｢*｣ ｢*｣ ｢&｣ ｢%｣)
keylet m: say ('a5b^%##*c&9c856697967d765$#~~!89g*^*&%tlL^^' ~~ m:g/<-[A..z]>/).WHAT; 18:40
camelia (List)
keylet what's the difference between (List) and (Array)? 18:40
geekosaur List is read-only and can therefore be optimized in ways Array can't 18:44
rightfold keylet: Please consult this document, which highlights the differences: docs.perl6.org/language/list#Arrays 18:45
mscha m: my %sum{Int} is default([]); %sum{4}.push("1+3"); %sum{4}.push("2+2"); say (1..10).grep(-> $i { %sum{$i} == 2 }); # huh? 1/3 19:13
camelia (1 2 3 4 5 6 7 8 9 10)
mscha m: my %sum{Int} is default([]); %sum{4}.push("1+3"); %sum{4}.push("2+2"); say %sum # huh? 2/3
camelia {}
mscha m: my %sum{Int} is default([]); %sum{4}.push("1+3"); %sum{4}.push("2+2"); say %sum{4} # huh? 3/3
camelia [1+3 2+2]
mscha m: my %sum{Int}; %sum{4}.push("1+3"); %sum{4}.push("2+2"); say (1..10).grep(-> $i { %sum{$i} && %sum{$i} == 2 }); # This works, but is less elegant 19:15
camelia (4)
keylet_ how to convert "\u<number> 19:18
how to convert \u<number> to the symbol?
i. e. \u0442 etc. is JSON
* in JSON
moritz keylet_: there's code for that in JSON::Tiny, for example 19:19
basically chr(:16(<number>))
moritz m: say chr(:16('2713')) 19:20
camelia ✓
moritz (json encodes surrogate pairs as separate characters, so you have to be a bit mroe careful than that) 19:21
moritz github.com/moritz/json/blob/master...ons.pm#L63 19:40
timotimo yeah, ugh, those 20:08
El_Che moritz: happy to see the grammar book appearing somewhere in the future 20:37
moritz El_Che: the first 40 pages have already appeared (no grammars yet though, just regexes so far) 20:39
El_Che the good parts are at the end :) 20:40
moritz but there's an cheap early bird coupon (valid for one day): leanpub.com/perl6regex/c/earlybird :-) 20:41
brrt i recently came to the somewhat ugly conclusion that no, events are in fact not very good for highly concurrent large-scale batch workloads 21:07
channels (or work queues) are a much better primitive
BenGoldberg It's a good thing that perl6 has channels built in, isn't it! :) 21:09
brrt aye
but this conclusion surprised me quite a bit
channesl, or bounded queues, have automatic rate-limiting and lockstepping 21:10
with events, you inevitably bind the first step in your chain to the last, or you run the risk of 'overflowing' at some point in the middle 21:11
or you have to reimplement a queue badly anyway 21:13
jnthn Yeah, for batch processing, "push back at the point of input" will suffice 21:14
(And behave nicely) 21:15
brrt it is in fact probably the only thing, other than pull-from-point-of-output
jnthn Events better model situations where you can't push back.
brrt true.
jnthn Stuff just happens and you have to react.
brrt such situations are unhappy ones
jnthn In general, I'd say events are a slightly odd thing to use in batch processing. :) 21:16
In that they're all about "this thing just happend right now!" and batch processing is more like "OK, we've got all these things to chug through". 21:18
I'd also argue that concurrency in batch processing is typically a choice to get it done faster (so, it's really a case of parallelism). 21:19
Whereas event processing under a model like Perl 6 supplies offer is primarily aimed at dealing with true concurrent situations, where concurrency is an inherent part of the problem. 21:20
TimToady was a bit surprised that Erlang has no mechanism for back pressure on its work queues 21:21
jnthn To be fair, we only have that in module space so far also, though I'm decidedly open to Channel growing an option to bound it. :) 21:22
(One of those "didn't get to it yet" things)
TimToady
.oO(just ignore the backpressure?)
 21:23
TimToady --> arrival dinner & 21:26
jnthn :) 21:28
timotimo backpressure, that's when you get a massage, right? 21:30
lizmat
.oO( from the Swedish prime minister )
 21:41
brrt yeah, the problem is that the system i'm working in, 'events' are pretty much the only logical way to do concurrency 21:42
actually, eents + queues would work out fine...
samcv it's so hot today :( 22:04
BenGoldberg Not where I am, it's just disgustingly humid. 22:06
BenGoldberg wants some sort of wearable air conditioner/dehumidifier. 22:09
timotimo wear a silica gel package 22:17
El_Che moritz: thx. I'll get it once you get to the grammars 22:21
BenGoldberg A silica gel jacket would be a bit silly, methinks.
BenGoldberg Not to mention, it would need some way of getting the silica gel beads to release their moisture after they'd reached capacity. 22:23
Geth doc: e556ea3743 | (Samantha McVey)++ | doc/Language/unicode.pod6
[unicode-grant] Add documentation on UTF8-C8

We previously had no documentation on UTF8-C8. Here is a pretty good start for people looking to better understand what it means and at least *some* of the reasons why it exists.		 22:28
samcv this section can probably be improved a bit. but it's fairly good basis 22:30
samcv any comments on ^ are appreciated 22:36
BenGoldberg samcv, my comment on that is: samcv++ ;) 22:45
samcv BenGoldberg, let me know if you find a wearable air conditioner though 23:14
timotimo adam savage walked a comic con (or similar) floor dressed as an astronaut including a backpack with cooling water and a shirt with pipes through it for the water to flow through 23:16
travis-ci Doc build errored. Samantha McVey '[unicode-grant] Add documentation on UTF8-C8 23:18
travis-ci travis-ci.org/perl6/doc/builds/244329918 github.com/perl6/doc/compare/4b329...56ea37438d 23:18
samcv i need to get a table from html into a libreoffice presentation 23:19
anybody know the best way to do this?
timotimo select the table, copy it from the browser, paste it into libreoffice :P 23:23
AlexDaniel yea, that's how it should work… 23:25
sometimes you may want to paste into libreoffice writer first
I don't remember the details now… but either that or paste into libreoffice anything, copy it from there again and paste it into a proper table… 23:26
samcv going to try and work this into my talk somewhere i.imgflip.com/1nw9qp.jpg 23:30
maybe alter it a bit
cool. was even able to find a high res version of the source image i made that from. reverse image search is great 23:33
timotimo "nature habitat" or should it be "natural habitat,? 23:43
samcv natural habitat 23:46
maybe should reverse the top and bottom text
timotimo could work, too 23:48
but this way seems more common? 23:49
samcv maybe yeah
or maybe change it to. "What people imagine perl 6 devs doing"
or something like that
words to that effect
eveo BTW, since I see people ask about it. perl6-debug-m got fixed (I believe) now. The fix didn't make it into 2017.06 release, but will be in 2017.07, out of which next R* will be based as well. Fix in github.com/rakudo/rakudo/commit/6d...fbd91d7f54
** buys a copy off leanpub.com/perl6regex/c/earlybird ** 23:50
moritz++
\o

Powered by Cro and the Raku® Programming Language.

Please report any issues / comments / feature requests as an issue on App::Raku::Log.

Thank you!