Skype効率化

Transcript

1. BLJZN :"1$"TJB
    4LZQFޮ཰Խ

2. NF wBLJZN wIUUQBLJZNDPN w4LZQF
   UBLJZN w๺ւಓ͔Βདྷ·ͨ͠ wߴ

3. ͜ͷηογϣϯͰ͸ wχονͳτʔΫ wਅͷΤϯδχΞ͸4LZQFͰ͸ͳ͘*3$ Λ࢖͏

4. ͜ͷηογϣϯͰ͸ w4LZQFΛޮ཰తʹར༻͢ΔͨΊʹ͸ w4LZQF
   CPU wԻ੠௨࿩ɺΠϯελϯτϝοηʔδΛ ར༻

5. ͜ͷηογϣϯͰ͸ w*3$
   CPUΛ4LZQFʹ

6. % cpanm Skype::Any

7. % cpanm Net::DBus::Skype::API % cpanm Cocoa::Skype

8. 4LZQF"OZ

9. IUUQTHJUIVCDPNBLJZN4LZQF"OZ

10. w4LZQF
    %FTLUPQ
    "1*
    XSBQQFS wJOTQJSFE
    CZ
    4LZQF1Z w4LZQF
    "1*ʹ͍ͭͯ͸ͪ͜ΒΛࢀর IUUQEFWFMPQFSTLZQFDPNQVCMJDBQJSFGFSFODF

11. w.BD
    -JOVYͰಈ࡞ w8JOEPXTʹ͸ରԠ͍ͯ͠·ͤΜ
     w"OZ&WFOU w$PDPB4LZQF
    CZ
    UZQFTUFS

12. None

13. JODPNQBUJCMF
    DIBOHFT

14. ؀ڥߏங

15. ͳͥʁ w$6*؀ڥͰͷ4LZQF
    EBFNPO w9WGC w(6*؀ڥͰ͋Ε͹4LZQFΛ্ཱͪ͛Δ ͚ͩͰΑ͍

16. w%FCJBO
    (/6-JOVY
    
    4RVFF[F w4LZQF
    GPS
    -JOVY
    

17. w-JOVY্Ͱಈ͘4LZQF༻ͷCPUΛ࡞Δํ ๏

18. 4LZQF
    CPU

19. QJOHQPOH

20. 
    QJOHQPOH wbQJOH`ͷϝοηʔδ͕ૹΒΕ͖ͯͨΒ wbQPOH`ͷϝοηʔδΛૹ৴͢Δ

21. use strict; use warnings; use Skype::Any; my $skype = Skype::Any->new();

    $skype->message_received(sub { my ($msg) = @_; my $body = $msg->body; if ($body eq 'ping') { $msg->chat->send_message('pong'); } }); $skype->run;

22. use strict; use warnings; use Skype::Any; my $skype = Skype::Any->new();

    $skype->message_received(sub { my ($msg) = @_; my $body = $msg->body; if ($body eq 'ping') { $msg->chat->send_message('pong'); } }); $skype->run; ஫ҙ
    4LZQFΫϥΠΞϯτΛ্ཱ͓ͪ͛ͯ͘͜ͱ
23. None

24. use strict; use warnings; use Skype::Any; my $skype = Skype::Any->new();

    $skype->message_received(sub { my ($msg) = @_; my $body = $msg->body; if ($body eq 'ping') { $msg->chat->send_message('pong'); } }); $skype->run;

25. use strict; use warnings; use Skype::Any; my $skype = Skype::Any->new();

    $skype->message_received(sub { my ($msg) = @_; my $body = $msg->body; if ($body eq 'ping') { $msg->chat->send_message('pong'); } }); $skype->run; ϝοηʔδΛड৴͢Δͱݺ͹ΕΔ 4LZQF"OZ0CKFDU$IBU.FTTBHF

26. use strict; use warnings; use Skype::Any; my $skype = Skype::Any->new();

    $skype->message_received(sub { my ($msg) = @_; my $body = $msg->body; if ($body eq 'ping') { $msg->chat->send_message('pong'); } }); $skype->run; ૹΒΕ͖ͯͨϝοηʔδͷຊจ

27. use strict; use warnings; use Skype::Any; my $skype = Skype::Any->new();

    $skype->message_received(sub { my ($msg) = @_; my $body = $msg->body; if ($body eq 'ping') { $msg->chat->send_message('pong'); } }); $skype->run; νϟοτʹbQPOH`ͱϝοηʔδΛૹ৴ ϝοηʔδ͕ૹΒΕ͖ͯͨνϟοτ

28. use strict; use warnings; use Skype::Any; my $skype = Skype::Any->new();

    $skype->message_received(sub { my ($msg) = @_; my $body = $msg->body; if ($body eq 'ping') { $msg->chat->send_message('pong'); } }); $skype->run; Πϕϯτϧʔϓͷ։࢝

29. 4LZQF"OZ0CKFDU

30. 4LZQF"OZ0CKFDU w4LZQF
    "1* w$BMM
    $IBU
    $IBU.FTTBHF
    'JMF5SBOTGFS
    1SPpMF
    6TFS
    

    w4LZQF"OZͰ͸ w4LZQF"OZ0CKFDU

31. CHATMESSAGE 18537 STATUS RECEIVED

32. νϟοτϝοηʔδͰ͋Ε͹ 4LZQF"OZ$IBU.FTTBHF

33. $msg->body; $msg->chatname; $msg->from_handle; $msg->timestamp;

34. 4LZQFͷνϟοτͷ ࢓૊Έ

35. νϟοτͷࣝผ w͢΂ͯͷνϟοτ͸JEΛ͍࣋ͬͯΔ #anappo/$echo123;ebe5311cdd203657 w ΫϥΠΞϯτଆͰ͸ݟΔ͜ͱ͕Ͱ͖ͳ͍ w 4LZQF
    "1*ܦ༝ͰݟΔ͜ͱ͕Ͱ͖Δ

36. ϝοηʔδૹ৴ wجຊతʹνϟοτΛ࡞੒ͯ͠ϝοηʔ δΛૹ৴͢Δ wνϟοτ
    ରɺάϧʔϓ ෳ਺

37. $skype->user('echo123')->chat; $skype->user('echo123, t.akiym')->chat; ରͷνϟοτΛ࡞੒ άϧʔϓνϟοτΛ࡞੒

38. my $user = $skype->user('echo123, t.akiym'); my $chat = $user->chat; $chat->send_message('hello');

    FDIP
    UBLJZN
    ͱͷάϧʔϓνϟοτʹzIFMMPzͱૹ৴͢Δ

39. say $skype->user('t.akiym')->chat->name; #=> #t.akiym/$akiym_bot;f8efe7736e507088 say $skype->user('t.akiym')->chat->name; #=> #t.akiym/$akiym_bot;f8efe7736e507088 say $skype->user('t.akiym,

    echo123')->chat->name; #=> #akiym_bot/$84192e06d8b4cce9 say $skype->user('t.akiym, echo123')->chat->name; #=> #akiym_bot/$d2257830ee67a5bb
    
    άϧʔϓνϟοτͷ৔߹͸
    
    νϟοτΛ࡞੒͢Δͨͼʹ৽͍͠΋ͷ͕࡞੒͞ΕΔ

40. 4LZQF
    %FTLUPQ
    "1*

41. w4LZQF"OZ͸4LZQF
    "1*ͷXSBQQFS wੜͰ4LZQF
    "1*Λѻ͍͍ͨ

42. $skype->api->send_command('SEARCH RECENTCHATS')->reply; ࠷ۙ࢖ͬͨνϟοτͷ໊લΛऔͬͯ͘Δ

43. CHATS #t.akiym/$akiym_bot;e36505b33ee2e9c8, #akiym_bot/$echo123;b0d6153555b2f9d4

44. w$skype->api->send_command() w͙͢ʹϨεϙϯεΛฦ͞ͳ͍৔߹΋ wͦ͏͍ͬͨ৔߹͸Ϩεϙϯε͕ฦͬͯ ͘Δ·Ͱ଴ͪ·͢

45. 63-
    CPU

46. 
    63- wIUUQT Ͱ࢝·Δ63-͔ΒUJUMFͷத ਎Λऔͬͯ͘Δ

47. use strict; use warnings; use LWP::UserAgent; use Skype::Any; my $ua

    = LWP::UserAgent->new; my $skype = Skype::Any->new; $skype->message_received(sub { my ($msg) = @_; my $body = $msg->body; while ($body =~ m!(?=(https?://\S+))!g) { my $url = $1; my $res = $ua->get($url); return unless $res->is_success; my ($title) = $res->decoded_content =~ m! <title>(.*?)</title>!i; $msg->chat->send_message($title) if $title; } }); $skype->run;

48. &NBJM
    CPU

49. 
    &NBJM wͳΜΒ͔ͷϝοηʔδʹରͯ͠ϝʔϧ ૹ৴͢Δ wlFNBJMzͰ࢝·Δϝοηʔδ

50. 
    &NBJM wDPEF
    UBLFO
    GSPN 1FSM
    ʹΑΔϝʔϧૹ৴
    
    ࣮ફతͳ
    &NBJM4FOEFS
    ͷར༻ํ๏ wUPLVIJSPN

51. use strict; use warnings; use utf8; use Email::Sender::Simple qw(sendmail); use

    Email::Simple; use Email::Simple::Creator; use Data::Recursive::Encode; use Encode; use Email::Sender::Transport::SMTP::TLS; use Skype::Any; my $sender = Email::Sender::Transport::SMTP::TLS->new( host => 'smtp.gmail.com', port => 587, username => 'example@gmail.com', password => 'pa33w0rd', helo => 'example.com', );

52. my $skype = Skype::Any->new; $skype->message_received(sub { my ($msg) = @_;

    my $body = $msg->body; if ($body =~ /^!email/) { my $email = Email::Simple->create( header => Data::Recursive::Encode->encode( 'MIME-Header-ISO_2022_JP' => [ To => '"̨̩̠̠" <tksk@example.mil>', From => '"·ͬͭΜ" <example@gmail.com>', Subject => "༦൧", ] ), body => encode( 'iso-2022-jp', "͏ͪͰͨ΂Δͷʁ" ), attributes => { content_type => 'text/plain', charset => 'ISO-2022-JP', encoding => '7bit', }, ); my $ret = sendmail($email, {transport => $sender}); } }); $skype->run;

53. શདCPU

54. 
    શདCPU w શདCPU
    TVHZBO w ʮશདͰʯ w KPLF
    CPU

55. use strict; use warnings; use Skype::Any; use Acme::Zenra; use Try::Tiny;

    my $zenra = Acme::Zenra->new( yahoo_appid => $ENV{YAHOO_APPID}, ); my $skype = Skype::Any->new; my $chatname = ''; # your chatname

56. use strict; use warnings; use Skype::Any; use Acme::Zenra; use Try::Tiny;

    my $zenra = Acme::Zenra->new( yahoo_appid => $ENV{YAHOO_APPID}, ); my $skype = Skype::Any->new; my $chatname = ''; # your chatname ZVTVLFCF"DNF;FOSB

57. $skype->message_received(sub { my ($msg) = @_; if ($msg->chatname eq $chatname)

    { my $body = $msg->body; try { my $result = $zenra->zenrize($body); unless ($body eq $result) { # Edit message $msg->body($result); } }; } }); $skype->run;

58. $skype->message_received(sub { my ($msg) = @_; if ($msg->chatname eq $chatname)

    { my $body = $msg->body; try { my $result = $zenra->zenrize($body); unless ($body eq $result) { # Edit message $msg->body($result); } }; } }); $skype->run; ฤू͢Δ͜ͱ͕Ͱ͖ͳ͍ϝοηʔδ΋͋ΔͨΊ

59. $skype->message_received(sub { my ($msg) = @_; if ($msg->chatname eq $chatname)

    { my $body = $msg->body; try { my $result = $zenra->zenrize($body); unless ($body eq $result) { # Edit message $msg->body($result); } }; } }); $skype->run; 5JQT
    $msg->body(‘’);
    Ͱϝοηʔδͷ࡟আ

60. ࣙॻ
    CPU

61. 
    ࣙॻ wlEJDU
    EJDUJPOBSZzͷΑ͏ͳϝοηʔδ Λड৴ͨ͠Β wड৴ͨ͠Ϣʔβʔʹࣙॻͷ಺༰Λૹ৴ ͢Δ

62. use strict; use warnings; use utf8; use Encode; use Lingua::JA::Regular::Unicode

    qw/alnum_z2h/; use LWP::UserAgent; use Skype::Any; use XML::Simple (); use URI; use URI::QueryParam; our %DICT_TYPE = (e2j => 'EJdict', j2e => 'EdictJE'); my $ua = LWP::UserAgent->new; my $api_url = 'http://public.dejizo.jp/NetDicV09.asmx'; my $skype = Skype::Any->new; $skype->message_received(sub { my $msg = shift; if (my ($word) = $msg->body =~ /^dict:\s*(.+)/) { my $type = $word =~ /^[a-zA-Z0-9_]+$/ ? 'e2j' : 'j2e'; my $user = $msg->object(user => $msg->from_handle); if (my $item_id = get_item_id($word, $type)) { my $body = get_body($item_id, $type); $body = alnum_z2h($body); $user->chat->send_message($body); } else { $user->chat->send_message('Sorry, did not match... ;('); } } }); $skype->run;

63. use strict; use warnings; use utf8; use Encode; use Lingua::JA::Regular::Unicode

    qw/alnum_z2h/; use LWP::UserAgent; use Skype::Any; use XML::Simple (); use URI; use URI::QueryParam; our %DICT_TYPE = (e2j => 'EJdict', j2e => 'EdictJE'); my $ua = LWP::UserAgent->new; my $api_url = 'http://public.dejizo.jp/NetDicV09.asmx'; my $skype = Skype::Any->new; $skype->message_received(sub { my $msg = shift; if (my ($word) = $msg->body =~ /^dict:\s*(.+)/) { my $type = $word =~ /^[a-zA-Z0-9_]+$/ ? 'e2j' : 'j2e'; my $user = $msg->object(user => $msg->from_handle); if (my $item_id = get_item_id($word, $type)) { my $body = get_body($item_id, $type); $body = alnum_z2h($body); $user->chat->send_message($body); } else { $user->chat->send_message('Sorry, did not match... ;('); } } }); $skype->run; dict: Ͱ࢝·Δϝοηʔδ

64. use strict; use warnings; use utf8; use Encode; use Lingua::JA::Regular::Unicode

    qw/alnum_z2h/; use LWP::UserAgent; use Skype::Any; use XML::Simple (); use URI; use URI::QueryParam; our %DICT_TYPE = (e2j => 'EJdict', j2e => 'EdictJE'); my $ua = LWP::UserAgent->new; my $api_url = 'http://public.dejizo.jp/NetDicV09.asmx'; my $skype = Skype::Any->new; $skype->message_received(sub { my $msg = shift; if (my ($word) = $msg->body =~ /^dict:\s*(.+)/) { my $type = $word =~ /^[a-zA-Z0-9_]+$/ ? 'e2j' : 'j2e'; my $user = $msg->object(user => $msg->from_handle); if (my $item_id = get_item_id($word, $type)) { my $body = get_body($item_id, $type); $body = alnum_z2h($body); $user->chat->send_message($body); } else { $user->chat->send_message('Sorry, did not match... ;('); } } }); $skype->run; $skype->user($msg->from_handle);

65. sub get_item_id { my ($word, $type) = @_; my $uri

    = URI->new("$api_url/SearchDicItemLite"); $uri->query_form_hash({ Dic => $DICT_TYPE{$type}, Word => $word, Scope => 'HEADWORD', Match => 'STARTWITH', Merge => 'AND', Prof => 'XHTML', PageSize => 1, PageIndex => 0, }); my $res = $ua->get($uri); return unless $res->is_success; my $xml = XML::Simple::XMLin($res->content); return if $xml->{ItemCount} == 0; $xml->{TitleList}{DicItemTitle}{ItemID}; }

66. sub get_body { my ($item_id, $type) = @_; my $uri

    = URI->new("$api_url/GetDicItemLite"); $uri->query_form_hash({ Dic => $DICT_TYPE{$type}, Item => $item_id, Loc => '', Prof => 'XHTML', }); my $res = $ua->get($uri); return unless $res->is_success; my $xml = XML::Simple::XMLin( $res->content, SuppressEmpty => 1, # returns empty element. ); if ($type eq 'e2j') { my $caption = $xml->{Head}->{div}{span}{content}; if ($caption =~ s/\.$//) { my @results = split /\s+/, $xml->{Body}->{div}{div}; sprintf '%d results: %s', scalar @results, join ', ', @results; } else { sprintf '[%s] %s', $caption, join "\n", split /\s+/, $xml->{Body}->{div}{div}; } } else { (my $caption = $xml->{Head}->{div}{span}{content}) =~ s/\n* \s+.*$//ms; my $stuff = $xml->{Body}->{div}{div}{div}; if (ref $stuff eq 'ARRAY') {

67. Item => $item_id, Loc => '', Prof => 'XHTML', });

    my $res = $ua->get($uri); return unless $res->is_success; my $xml = XML::Simple::XMLin( $res->content, SuppressEmpty => 1, # returns empty element. ); if ($type eq 'e2j') { my $caption = $xml->{Head}->{div}{span}{content}; if ($caption =~ s/\.$//) { my @results = split /\s+/, $xml->{Body}->{div}{div}; sprintf '%d results: %s', scalar @results, join ', ', @results; } else { sprintf '[%s] %s', $caption, join "\n", split /\s+/, $xml->{Body}->{div}{div}; } } else { (my $caption = $xml->{Head}->{div}{span}{content}) =~ s/\n* \s+.*$//ms; my $stuff = $xml->{Body}->{div}{div}{div}; if (ref $stuff eq 'ARRAY') { sprintf '[%s] %s', $caption, join ', ', @{$xml->{Body}- >{div}{div}{div}}; } else { sprintf '[%s] %s', $caption, $stuff; } } }

68. #0/64

69. 1VTI
    OPUJpDBUJPO
    GPS
    J1IPOF

70. 1VTI
    OPUJpDBUJPO
    GPS
    J1IPOF w4LZQF
    GPS
    J1IPOF͸ϓογϡ௨஌ʹର Ԡ͍ͯ͠ͳ͍ wCPUΛαʔόʹ্ཱ͓͍ͪ͛ͯͯɺ JNLBZBDͰ௨஌͢Ε͹͍͍ͷͰ͸

71. use strict; use warnings; use Skype::Any; use LWP::UserAgent; my $IM_KAYAC

    = 'http://im.kayac.com/api/post'; my $username = ''; # im.kayac my $password = ''; my $ua = LWP::UserAgent->new();

72. my $skype = Skype::Any->new(); $skype->message_received(sub { my ($msg) = @_;

    my $from = $msg->from_handle; my $body = $msg->body; my $res = $ua->post("$IM_KAYAC/$username", { message => "$from: $body", handler => 'skype://', password => $password, }); die $res->status_line unless $res->is_success; }); $skype->run;

73. my $skype = Skype::Any->new(); $skype->message_received(sub { my ($msg) = @_;

    my $from = $msg->from_handle; my $body = $msg->body; my $res = $ua->post("$IM_KAYAC/$username", { message => "$from: $body", handler => 'skype://', password => $password, }); die $res->status_line unless $res->is_success; }); $skype->run; ϝοηʔδΛૹ৴ͨ͠ϢʔβʔJE

74. my $skype = Skype::Any->new(); $skype->message_received(sub { my ($msg) = @_;

    my $from = $msg->from_handle; my $body = $msg->body; my $res = $ua->post("$IM_KAYAC/$username", { message => "$from: $body", handler => 'skype://', password => $password, }); die $res->status_line unless $res->is_success; }); $skype->run; ϝοηʔδΛૹ৴ͨ͠ϢʔβʔJE 5JQT
    $msg->from_dispname;

75. my $skype = Skype::Any->new(); $skype->message_received(sub { my ($msg) = @_;

    my $from = $msg->from_handle; my $body = $msg->body; my $res = $ua->post("$IM_KAYAC/$username", { message => "$from: $body", handler => 'skype://', password => $password, }); die $res->status_line unless $res->is_success; }); $skype->run;

76. UBDPDIBO

77. wJLBDIBO
    :BQQP
    ͷ4LZQF൛ w༷ʑͳαʔόͷόονॲཧͷ݁Ռ౳Λ
    4LZQF
    ͷνϟοτʹ௨஌͢Δαʔό wϝοηʔδΛૹ৴͢Δͱ͍ͬͨ͜ͱΛ )551Ͱࡁ·͢͜ͱ͕Ͱ͖Δ

78. None

79. IUUQTHJUIVCDPNBLJZNQ"QQ5BDPDIBO

80. "OZ4BO1SPWJEFS4LZQF

81. wϝϦοτ w"OZ4BOΠϯλʔϑΣʔε w΋ͪΖΜɺ4LZQF"OZ୯ମͰ΋CPU ͸ॻ͚Δ

82. use strict; use warnings; use AnySan; use AnySan::Provider::Skype; use LWP::UserAgent;

    my $ua = LWP::UserAgent->new; my $skype = skype; AnySan->register_listener( url => { event => 'chatmessage', cb => sub { my $receive = shift; my $message = $receive->message; while ($message =~ m!(?=(https?://\S+))!g) { my $url = $1; my $res = $ua->get($url); $res->is_success or return; my ($title) = $res->decoded_content =~ m! <title>(.*?)</title>!i; $title // return; $receive->send_reply($title); } }, }, ); AnySan->run;

83. IUUQTHJUIVCDPNBLJZN"OZ4BO1SPWJEFS4LZQF

84. 3FENJOF$IBO$IBO

85. w3FENJOF$IBO
    POJTIJ
    ͷ4LZQF൛ wৄ͘͠͸ *3$͔Β3FENJOFΛૢ࡞͢ΔϞδϡʔ ϧΛ࡞Γ·ͨ͠ wPOJTIJ

86. use strict; use warnings; use FindBin; use lib "$FindBin::Bin/../lib"; use

    Config::Pit; use Redmine::Chan; use utf8; my $minechan = Redmine::Chan->new(%{pit_get('redmine', require => { redmine_url => '', redmine_api_key => '', })}, skype_chats => { '#t.akiym/$akiym_bot;e36505b33ee2e9c8' => {project_id => 1} }, status_commands => { 1 => [qw/new/], 2 => [qw/ongoing doing/], 3 => [qw/ϨϏϡʔ͓ئ͍͠·͢ ϨϏϡʔ͓Ͷ͕͍͠·͢/], 4 => [qw/ϨϏϡʔ͠·͢/], 7 => [qw/ϨϏϡʔ͠·ͨ͠/], 6 => [qw/done/], }, custom_field_prefix => { 2 => [qw(origin/)], # branch }, issue_fields => [qw/subject assigned_to status 1/], nick => 'minechan', ); $minechan->cook;

87. use strict; use warnings; use FindBin; use lib "$FindBin::Bin/../lib"; use

    Config::Pit; use Redmine::Chan; use utf8; my $minechan = Redmine::Chan->new(%{pit_get('redmine', require => { redmine_url => '', redmine_api_key => '', })}, skype_chats => { '#t.akiym/$akiym_bot;e36505b33ee2e9c8' => {project_id => 1} }, status_commands => { 1 => [qw/new/], 2 => [qw/ongoing doing/], 3 => [qw/ϨϏϡʔ͓ئ͍͠·͢ ϨϏϡʔ͓Ͷ͕͍͠·͢/], 4 => [qw/ϨϏϡʔ͠·͢/], 7 => [qw/ϨϏϡʔ͠·ͨ͠/], 6 => [qw/done/], }, custom_field_prefix => { 2 => [qw(origin/)], # branch }, issue_fields => [qw/subject assigned_to status 1/], nick => 'minechan', ); $minechan->cook; ͜͜ʹDIBU
    JE NJOFDIBO
    ࢿྉ࡞Δ

88. IUUQTHJUIVCDPNBLJZN3FENJOF$IBO$IBO

89. None

90. 5)"/,4
    50 UZQFTUFS
    ZVTVLFCF
    TVHZBO
    UPLVIJSPN
    :BQQP
    POJTIJ

91. 2VFTUJPOT PS
    SFQMZ
    UP
    !BLJZN