2017年春ã®Perl『How to build a High Performance PSGI/Plack Serverã€ã®ãã®å¾Œã¨ ISUCON3ã‚’å—ã‘ã¦ã®è©±é¡Œ
Raku 入門
ã“ã®æ–‡æ›¸ã¯ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžRakuã®å…¨ä½“åƒã‚’ç´ æ—©ãã¤ã‹ã‚“ã§ã‚‚らã†ã“ã¨ã‚’目的ã¨ã—ã¦æ›¸ã‹ã‚ŒãŸã‚‚ã®ã§ã™ã€‚ ã¾ã Rakuを触ã£ãŸã“ã¨ã®ãªã„èªè€…ã®æ–¹ã€…ãŒã€ã“ã“ã‹ã‚‰Rakuã‚’ã¯ã˜ã‚ã¦ã‚‚らã†ã“ã¨ã‚’ç‹™ã„ã¨ã—ã¦ã„ã¾ã™ã€‚
Wow, Perl 6!
Autothreaded junctions Best part? Junctions are autothreaded, meaning they are a hint to the compiler it can evaluate them on multiple threads! Promises I don't always write concurrent code, but when I do, it's THIS simple: 1: start { sleep 3; say "two" }; 2: say "one"; 3: sleep 5; 4: say "three"; # OUTPUT: # one # two # three Promises Concurrent / asynchronous code: 1: my @promises = ^3 .map: { 2
Perl6 ã®ãƒ•ã‚£ãƒœãƒŠãƒƒãƒæ•°åˆ—生æˆã«ã¤ã„ã¦ã®è§£èª¬ - tokuhirom's blog
Perl6 ã®ãƒ•ã‚£ãƒœãƒŠãƒƒãƒæ•°åˆ—生æˆã«ã¤ã„ã¦ã®è§£èª¬ mattn ブãƒã‚°ã§ç´¹ä»‹ã•ã‚Œã¦ã„ã‚‹ Perl6 ã®ãƒ•ã‚£ãƒœãƒŠãƒƒãƒæ•°åˆ—ãŒå¥‡å¦™ã«è¦‹ãˆã‚‹äººãŒå¤šã„よã†ãªã®ã§ã€ã¾ã¨ã‚‚ãªè§£èª¬ã€‚ ref. http://mattn.kaoriya.net/software/lang/perl6/20151026144119.htm フィボナッãƒæ•°åˆ—ã¨ã¯ä»¥ä¸‹ã®ã‚ˆã†ãªæ•°åˆ—ã§ã™ã€‚ 1, 1, 2, 3, 5, 8, 13, 21, 34, 55 最åˆã®2ã¤ã®æ•°å—㌠1, 1 ã§ã—ã¦ã€ãã®å¾Œã®ã‚‚ã®ã¯ç›´å‰2ã¤ã®æ•°å—を足ã—ãŸã‚‚ã®ã§ã™ã€‚ よã£ã¦ã€Perl5 ã§è¨˜è¿°ã—ãŸå ´åˆã€å…ˆé 10個ã®ãƒ•ã‚£ãƒœãƒŠãƒƒãƒæ•°åˆ—を求ã‚ã‚‹ã«ã¯ä»¥ä¸‹ã®ã‚ˆã†ã«ãªã‚Šã¾ã™ã€‚ use v5.16.0; sub fib { state %memo; # 一応 memoize ãらã„ã¯ã—ã¦ãŠã my $n = shift; $memo{$n} //= do { if ($n =
Big Sky :: Perl6 ã®ç„¡é™ãƒªã‚¹ãƒˆã¨ãƒ€ã‚¤ãƒŠãƒŸãƒƒã‚¯ãƒã‚¤ãƒ³ãƒ‡ã‚£ãƒ³ã‚°ãŒæœ€å¼·ã™ãŽã‚‹
Perl ã«ã¯ x 演算åãŒã‚ã‚Šã€x 3 ã¨ã„ã£ãŸå…·åˆã«ç¹°ã‚Šè¿”ã—回数を付ã‘る事ã§é€£ç¶šã—ãŸæ–‡å—列を簡å˜ã«ä½œã‚Šå‡ºã™ã“ã¨ãŒå‡ºæ¥ã‚‹ã€‚ say 1 x 3; # 111 say "foo" x 3; # foofoofoo ã“れ㯠Perl5 ã§ã‚‚ãŠé¦´æŸ“ã¿ã€‚ã—ã‹ã— Perl6 ã® Range ã¯å‡„ã„。 say 1 xx 3; # (1 1 1) say "foo" xx 3; # (foo foo foo) 連続ã—ãŸé…列è¦ç´ ãŒä½œã‚Šå‡ºã›ã‚‹ã€‚ãã‚Œã©ã“ã‚ã‹ç„¡é™ãƒªã‚¹ãƒˆãŒä½œã‚Šå‡ºã›ã‚‹ã€‚ say 1 xx *; # (...) say "foo" xx *; # (...) ã‚‚ã¡ã‚ã‚“ç„¡é™æ•°åˆ—も作れる。 (1 .. *)[^10].perl.say; # (1, 2, 3, 4, 5, 6, 7, 8, 9, 10) fibonacci 数列もã“ã‚“ãªã«ç°¡å˜ã€‚ (1, 1, *+* ...^ *)[^100].per
ãれ㧠Perl 6 ã®ä½•ãŒã™ã”ã„ã‚“ã ã¨æ€ã£ãŸã‚ãªãŸã€‚ã“ã“ãŒã™ã”ã„ã‚“ã§ã™ã€‚ - ヤルã‚デナイズドã ã£ãŸ
ãŸã¨ãˆã°ã“ã‚“ãªã€‚ Rakudo Star ã§ã¯ã©ã‚Œã‚‚実装済ã¿ã€‚今ã™ã使ãˆã¾ã™ã€‚ 強化ã•ã‚ŒãŸæ£è¦è¡¨ç¾ Perl 6 ã®å…¬å¼ãªãƒ‘ーサ自体も Perl 6 ã®æ£è¦è¡¨ç¾ã§æ›¸ã‹ã‚Œã¦ã„ã¾ã™ã€‚ ……ã¯ç½®ã„ã¨ã„ã¦ã€‚10è¡Œã¡ã‚‡ã£ã¨ã§ CSV をパースã™ã‚‹æ£è¦è¡¨ç¾ãŒæ›¸ã‘る。クォートã•ã‚ŒãŸå€¤ã«ã‚‚複数行ã«ã¾ãŸãŒã‚‹å€¤ã«ã‚‚対応。 # CSV クラスã¯ä»¥ä¸‹ã®ã‚‚ã®ã‚’ä¿®æ£ã—ã¦ä½¿ã£ã¦ã„ã¾ã™ # http://github.com/masak/csv/blob/master/lib/Text/CSV.pm # æ£è¦è¡¨ç¾ã‚’ã¾ã¨ã‚㟠grammar （クラスã®ä¸€ç¨®ï¼‰ grammar CSV { regex TOP { ^ <line> ** \n <empty_line>? $ } regex line { <value> ** ',' } regex value { | <pure_text> | \s* \" <quoted_
1
ランã‚ング
メンテナンス
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
Sterling Hanenkamp [blogs.perl.org]
{{#tags}}- {{label}}
{{/tags}}