p5-Lodash!

 p5-Lodash!

吉祥寺.pm #14 / LT

918b601dbd1297d58105508fb880b598?s=128

Kenta Kobayashi

May 26, 2018
Tweet

Transcript

  1. p5-Lodash! 吉祥寺.pm14 / LT @k y8

  2. _.defaults({ 'a': 1 }, { 'a': 3, 'b': 2 });

    // → { 'a': 1, 'b': 2 } _.partition([1, 2, 3, 4], n => n % 2); // → [[1, 3], [2, 4]]
  3. p5-Lodash Perl5 port of Lodash.js 同じ挙動を目指してる ( ひとまず) 手書き Inline

    module に頼るでなく、 真正面から モチベー ション JSer に楽してもらいたい CPAN に便利なモジュー ルがたくさんあるけ ど、 知らないが為に損することもある
  4. use Lodash; _->defaults({ a => 1 }, { a =>

    3, b => 2 }); # → { a => 1, b => 2 } _->partition([1, 2, 3, 4], sub ($n) { $n % 2 }); # → [[1, 3], [2, 4]]
  5. use Lodash qw(_defaults _partition); _defaults({ a => 1 }, {

    a => 3, b => 2 }); # → { a => 1, b => 2 } _partition([1, 2, 3, 4], sub ($n) { $n % 2 }); # → [[1, 3], [2, 4]]
  6. use Lodash -core; # => export core functions

  7. _.add

  8. 6 + 4

  9. ❯ perl -e 'print 6 + 4' 10 ❯ node

    -e 'console.log(6+4)' 10
  10. '6' + '4'

  11. ❯ perl -e "print '6' + '4'" 10 ❯ node

    -e "console.log('6'+'4')" 64
  12. _.add(6, 4) # => 10 _.add('6', '4') # => '64'

  13. ❯ perl -MDevel::Peek -e "Dump 6" SV = IV(0x7fdf7d011370) at

    0x7fdf7d011380 REFCNT = 1 FLAGS = (IOK,READONLY,PROTECT,pIOK) IV = 6
  14. ❯ perl -MDevel::Peek -e "Dump '6'" SV = PV(0x7fb986803e80) at

    0x7fb98700a998 REFCNT = 1 FLAGS = (POK,IsCOW,READONLY,PROTECT,pPOK) PV = 0x7fb986500b70 "6"\0 CUR = 1 LEN = 10 COW_REFCNT = 0
  15. どちらも Scalar Value だけど、 中身は違う 一方は、 Integer Value もう一方は Pointer

    Value 6 と '6' の中身の違いを浮き出せれば、 区別できる
  16. use B;

  17. use Test::More; use B; ok B::svref_2object(\6)->FLAGS & B::SVp_IOK; ok not

    B::svref_2object(\'6')->FLAGS & B::SVp_IOK; done_testing;
  18. None
  19. XOR operator

  20. use Test::More; ok((6^6) eq '0'); ok not (('6'^'6') eq '0');

    done_testing;
  21. use Test::More; # NUL ok not ((6^6) eq "\0"); ok(('6'^'6')

    eq "\0"); done_testing;
  22. sub is_number { my $value = shift; looks_like_number($value) && ($value^$value)

    eq '0' }
  23. None
  24. !!1

  25. is_number(!!1^!!1) # => ok ❯ perl -MDevel::Peek -e 'Dump !!1^!!1'

    SV = IV(0x7f93e7015370) at 0x7f93e7015380 REFCNT = 1 FLAGS = (PADTMP,IOK,READONLY,PROTECT,pIOK) IV = 0
  26. None
  27. ❯ perl -MDevel::Peek -e 'Dump !!1' SV = PVNV(0x7ff3a4001010) at

    0x10d9b7b58 REFCNT = 2147483644 FLAGS = (IOK,NOK,POK,READONLY,PROTECT,pIOK,pNOK,pPOK) IV = 1 NV = 1 PV = 0x10d99cd43 "1" CUR = 1 LEN = 0
  28. PVNV!

  29. PVNV dual value Scalar::Util::isdual

  30. sub is_number { my $value = shift; looks_like_number($value) && ($value^$value)

    eq '0' && !isdual($value) }
  31. None
  32. 雑まとめ p5-Lodash の話から Perl の話に脱線 SV は、 多態 コンテキストで、 値が変わる

    見ようと思えば、 中身も見れる Devel::Peek B.pm etc
  33. 進捗

  34. 7/256

  35. やっていき

  36. Gotanda.pm #18 6/11( 月) 株式会社メルカリ 六本木! スピー カー @kazeburo 「System

    Programming and Perl」
  37. ぱー るもんがー ごたぴー きちぴー ぜんぶがいねん ( 字余り)