The new Text::Hatena

Transcript

1. ͜ ͷ Ն ͷ ࠷ ৽ 5FYU)BUFOB Λ͓ಧ͚͠·͢  େ੢߁༟
   

   JEPOJTIJ
   ͸ͯͳ

2. ࣗݾ঺հ w JEPOJTIJ
   
   େ੢߁༟ w גࣜձࣾ͸ͯͳ
   ʙ w νʔϑΤϯδχΞ w ͸ͯͳϒϩάσΟϨΫλʔ

   w !ZBTVIJSP@POJTIJ w 1"64&
   0/*4)*
   
   %FWFM,:51SPG

3. 5FYU)BUFOB
   ͱ͸ ͸ ͯ ͳ ه ๏ Λ )5.-ʹม׵ ͢ΔϞδϡʔϧ

4. ͸ͯͳه๏ͱ͸ w ͸ͯͳϒϩά΍͸ͯͳμΠΞϦʔ΍͸ͯͳά ϧʔϓͰ࢖͑Δॻࣜ w ͔ΜͨΜͳهड़Ͱ)5.-จॻߏ଄΍ࣗಈϦϯ Ϋ͕ॻ͚Δ w IBUFOBEJBSZHIBUFOBOFKQLFZXPSE ͸ͯͳه๏Ұཡ

5. ೖྗࢧԉʢϒϩοΫه๏ʣ

6. ࣗಈϦϯΫʢΠϯϥΠϯه๏ʣ

7. ͨ͘͞Μͷ5FYU)BUFOB w 5FYU)BUFOB
   ʙ
   KLPOEP w IUUQTNFUBDQBOPSHSFMFBTF+,0/%05FYU)BUFOB w 5FYU)BUFOB
   
   KLPOEP w

   IUUQTNFUBDQBOPSHNPEVMF5FYU)BUFOB w 5FYU9BUFOB
   DIP w IUUQTNFUBDQBOPSHNPEVMF5FYU9BUFOB w 5FYU)BUFOB-JUF
   XBLBCBUBO w IUUQTHJUIVCDPNXBLBCBQFSMUFYUIBUFOBMJUF

8. 5FYU)BUFOB
   
   ʙ use  Text::Hatena;  #  0.16 my  $parser  =  Text::Hatena-­‐>new;  

      $parser-­‐>parse($text); my  $html  =  $parser-­‐>html;  

9. 5FYU)BUFOB
   
    use  Text::Hatena;  #  0.20 my  $html  =  Text::Hatena-­‐>parse($text);  

10. 5FYU9BUFOB use  Text::Xatena; my  $thx  =  Text::Xatena-­‐>new;      $thx-­‐>format($string);

11. 5FYU)BUFOB-JUF use  Text::HatenaLite::Parser; my  $html  =  Text::HatenaLite::Parser -­‐>parse_string($string);

12. ΋ͬͱͨ͘͞Μͷʜ •Hatena::Diary::HTMLParserBody •Hatena2::Group::HTMLParserBody •Hatena::Bookmark::TextFormat •Hatena::Haiku::Body

13. )BUFOB%JBSZ)5.-1BSTFS#PEZ w ࠷ॳͷ͸ͯͳه๏
    1BSTFS w ೥·Ͱςετͳ͔ͬͨ w ߦͷϝιου w·ͩ࢖ΘΕ͍ͯ·͢ʜ

14. )%)5.-1BSTFS#PEZNBLFMJOL

15. ه๏ల։ͷ೉͠͞  w ͸ͯͳه๏͸)5.-λά͕࢖͑Δ w ίϝϯτه๏ w εʔύʔ13&ه๏ ςΩετΛ)5.-ʹ͢Δ΋ͷ͚ͩͲ )5.-1BSTFSϕʔε

16. ه๏ల։ͷ೉͠͞  <script> ͜͜͸ه๏ల։͠ͳ͍Α </script> <!-­‐-­‐ ͜͜͸ফ͑ΔΑ -­‐-­‐> >|| ه๏ల։͠ͳ͍ͰPREʹͳΔΑ

    ||<

17. ه๏ల։ͷ೉͠͞  <script> >|| ͜͜͸Ͳ͏ͳΔʁ ||<   </script> >|| <!-­‐-­‐

    ͜͜͸Ͳ͏ͳΔʁ -­‐-­‐> ||<

18. ه๏ల։ͷ೉͠͞  ه๏ͱ)5.-Λ ಉ࣌ʹղऍ͠ͳ ͚Ε͹͍͚ͳ͍

19. ه๏ల։ͷ೉͠͞  w ه๏ͷల։ w ΩʔϫʔυϦϯΫ w 944ରࡦ ϗϫΠτϦετʹΑΔTDSJQU੍ݶ ͭͷ͜ͱΛಉ࣌ʹ΍͍ͬͯΔ

20. ه๏ల։ͷ೉͠͞  w ه๏ͱΩʔϫʔυϦϯΫ͕ີ݁߹͍ͯ͠Δ w <>ΩʔϫʔυϦϯΫ͠ͳ͍ه๏<> w ه๏ల։͢ΔͱҙຯΛࣦ͏ Ͳ͏ͯ͜͠͏ͳͬͨ

21. ه๏ల։ͷ೉͠͞  ه๏ల։ͱΩʔϫʔ υϦϯΫΛಉ࣌ʹߦ Θͳ͚Ε͹ͳΒͳ͍

22. ͜ͷͨΊ ه๏ల։ͱΩʔϫʔυϦϯΫ͕ີ݁ ߹Ͱ͋ΔͨΊɺ5FYU)BUFOB
    ͳ Ͳͷه๏ల։͚ͩͷϞδϡʔϧΛ ࡞ͬͯ΋ɺ࣮ࡍͷϓϩμΫτʢ͸ͯ ͳμΠΞϦʔʣͰར༻Ͱ͖ͳ͔ͬͨ

23. Ͳ͏͠Α͏

24. ϝλσʔλʹΑΔૄ݁߹Խ ه๏ల։࣌ʹ ʮ͜ΕҎ্ϦϯΫ͠ͳ͍ʯͱ͍͏ ΧελϜσʔλଐੑΛ෇༩ <span data-unlink> ͜͜͸͜ΕҎ্ϦϯΫ͠ͳ͍ </span>

25. ϝλσʔλʹΑΔૄ݁߹Խ wه๏ύʔα w EBUBVOMJOLଐੑΛ෇༩ wΩʔϫʔυϦϯΧ w EBUBVOMJOLଐੑΛݟͯϦϯΫΛ൑அ ૄ݁߹Խ }

26. The new Text::Hatena w 5FYU9BUFOB
    ˜DIP
    Λϕʔεʹ w ΧελϜσʔλଐੑΛ࢖ͬͯه๏ల։ͱΩʔ ϫʔυϦϯΫΛૄ݁߹Խ

    w աڈʢ΍ྨࣅʣͷΠϯλʔϑΣʔεޓ׵ w ଟ͘ͷ͸ͯͳه๏ʹରԠ w࣮ࡍʹ͸ͯͳϒϩάͰར༻͍ͯ͠Δ

27. ΠϯλʔϑΣʔεޙํޓ׵ use Text::Hatena; my $parser = Text::Hatena->new; my $html =

    $parser->parse($string); # Text::Hatena 0.16 style my $html = $parser->html; # Text::Hatena 0.20 style my $html = Text::Hatena->parse($string); # Text::Xatena style my $html = $parser->format($string);

28. ୯ମͰ΋࢖͑ΔศརϞδϡʔϧ •Text::Hatena::Keyword w ΩʔϫʔυϦϯΧ •Text::Hatena::Embed w 63-ຒΊࠐΈࢧԉ <IUUQFNCFE>ه๏

29. 5FYU)BUFOB,FZXPSE EBUBVOMJOL
    ଐੑΛߟྀͯ͠ΩʔϫʔυϦϯΫ my $parser = Text::Hatena::Keyword->new( rules => [ qr/hoge|fuga/

    => sub { sprintf '/keyword/%s', uri_escape($_) }, [qw/foo bar/] => sub { sprintf '/other/%s', uri_escape($_) }, ], ); my $words = $parser->extract($html); # நग़ my $formatted_html = $parser->format($html); # ϦϯΫ

30. 5FYU)BUFOB&NCFE 63-Λ౉͢ͱ͍͍ײ͡ʹFNCFE my $embed = Text::Hatena::Embed->new; my $html = $embed->render($url);

    XXXTMJEFTIBSFOFUPOJTIJPFNCFEUFYUIBUFOB

31. ຊ೔ެ։͠·ͨ͠ HJUIVCDPNPOJTIJ5FYU)BUFOB Ͳ͏ͧ͝ར༻͍ͩ͘͞ QVMM
    SFRVFTU
    ͍ͩ͘͞

32. ͸ͯͳϒϩά ि࿈ଓ৽ػೳϦϦʔεத ೔ຊҰ։ൃ͕ϗοτͳϒϩά hatenablog.com

33. ਓࡐืू wגࣜձࣾ͸ͯͳͰ͸ΤϯδχΞͦͷଞ શ৬छΛืू͍ͯ͠·͢ wҰॹʹϒϩάΛ࡞Γ·͠ΐ͏ʂ www.hatena.ne.jp/company/staff

34. ͝ਗ਼ௌ͋Γ͕ͱ͏͍͟͝·ͨ͠