å°ãåã«ãNet::DBus::Skype::Liteã¨ããã¢ã¸ã¥ã¼ã«ãæ¸ãã¾ãããPerlããSkype APIãå©ããã®ã¯ä¾¿å©ãªã®ã§ãããä¸æºç¹ãããã¤ãããã¾ãã Linuxã®Skypeã«ãã対å¿ãã¦ããªã å ¨ä½ã§2200è¡ããããã(Liteãªã®ã«â¦) ç¡é§ãªã³ã¼ããå¤ããã ããã§ãNet::DBus::Skype::Liteãæ¨ã¦ã¦ããã«ããã©ãããã©ã¼ã ã«å¯¾å¿ããæ°ããã¢ã¸ã¥ã¼ã«Skype::Anyãä½ã£ã¦è¦ããã¨ã«ãã¾ããã ã»ã¼å®æãã¦ãã¦ã以ä¸ã®ãããªã³ã¼ããåãããã«ãªã£ã¦ãã¾ããã¾ã Githubã«ã¯ããã¦ãã¾ãããã use strict; use warnings; use Skype::Any; use LWP::UserAgent; use URI::Find; my $ua = LWP::UserAgent->new; my $finder = URI::F
ä»æ¥ã¯ AnySan ãå©ç¨ãããããã¯ããã©ã使ããã®å®ä¾ãç´¹ä»ãããï¼ ãã®ãã©ãã¯ã«åå ããã人㯠http://atnd.org/events/22890 ããã©ãã©ãé ¼ããï¼ çãã㯠Web ãµã¼ãã¹ãéçºããä¸ã§æ§ã ãªæ°å¤ç®æ¨ã¨åãåãã¨æãã¾ãã ãããªä¸ã§ãä¼å¡æ°ã®ç®æ¨æ°å¤ã¯ãªããªãæ¯éãéãããããªãã§ãããã? å¾å°ãã§ãä¼å¡æ°ãç®æ¨éæããããã¨è¨ã£ã¦é¢ä¿è å ¨å¡ãããããã¨ææ°ã®æ°å¤ãè¦ããã¼ã¸ã F5 é£æãã¦ããæããªãä¸ã« self-dos ã«ãªã£ã¦ãã¾ãå±éºæ§ãããã¾ãã ãããã£ã wktk æãæãã¤ã¤çãæãçºã«ããã¨ã©ã®ãããã§ç®æ¨ã«éããããããã¸ã§ã¯ãã® IRC ãã£ã³ãã«ã«æµãä»çµã¿ãä½ã£ããæããããªæ°ãããã®ã§ã試ãã«ä½ã£ãç©ãæãã¾ãã ikachan ãå°å ¥ãã¦ãã人ã§ãããããã«ã¦ã³ããã¦ã³ãã¦è奮ãããæ¹ã¯ãèªç±ã«ã使ããã ããã
ä»æ¥ã¯ AnySan ãå©ç¨ãããããã¯ããç´¹ä»ãããï¼ ãã®ãã©ãã¯ã«åå ããã人㯠http://atnd.org/events/22890 ããã©ãã©ãé ¼ããï¼ çããã¯ãæ¥ã ã®ãä»äºã®ä¸ã§æ§ã ãªãããå¦çããããã¤ãã¼ã«ã¾ãã¯CIãã¼ã«ãåããã¨æãã¾ãã ä¸è¬çãªãããç³»ã®ã¨ã³ã¸ãã¢ã¯ä»äºã®ã³ãã¥ãã±ã¼ã·ã§ã³æ段ã¨ã㦠IRC ãç¨ãã¦ããã¨ããã®ãæåã§ãããããããããå¦çã®å¦çç¶æ³çãæ®æ®µã®çæ´»ç°å¢ã§ãã IRC ã«æµããã便å©ã ã¨ãããã¾ãããï¼ ããã便å©ãªãã§ãï¼ãããã§ããï¼ ããã§åã¯ã©ããªç°å¢ããã§ã IRC éç¥ãããããã®ç°å¢ã¨ã㦠ikachan ãä½ãã¾ããã IRC ã¸ã®çºè¨ã Web API çµç±ã§æä½åºæ¥ããã§ãã Perl ã¨ãããå ¥ã£ã¦ãªããµã¼ãã§ã curl ãªã©ã® HTTP ãåããç°å¢ or echo ã³ãã³ã㨠telnet ã³ãã³ãã
ãå ãããããªããããã«ãããã ãã ãã®ãã©ãã¯ã«åå ããã人㯠http://atnd.org/events/22890 ããã©ãã©ãé ¼ããï¼ åæ¥ã« AnySan 㯠Twitter ã FriendFeed ã«ã対å¿ãã¦ããã¨è¨ãã¾ããããå®éããã㯠IRC ã¨åããããã·ã³ãã«&åãã¤ã³ã¿ã¼ãã§ã£ã¹ã§ä½¿ãããã ã ä»æ¥ã¯ã·ã³ãã«ã« Twitter ã使ã£ã¦ãèªåå®ã« @ ãé£ã°ãããæã«è¿äºãè¿ãã³ã¼ããç´¹ä»ãã¾ããã use strict; use warnings; use utf8; use AnySan; use AnySan::Provider::Twitter; use Config::Pit; my $username = shift; my $config = pit_get("example.com", require => { consumer_key =>
ããã°ããï¼ä»æ¥ããã£ã¤ãã«ã¼ããï¼ åå ããã人㯠http://atnd.org/events/22890 ããã©ãã©ãé ¼ããï¼ æ¨æ¥ã¯ AnySan ã使ãã¨ç°¡åã« irc bot ããããã£ã¦è©±ããããã ãããã AnyEvent::IRC::Client çã¨æ¯ã¹ã¦ã©ãéããï¼ã£ã¦ã®ã yusukebe ä½ã®IRC çå ¨è£¸ botã¨ã®æ¯è¼ããã¦ã¿ã¾ãããã å ã®ãã¼ã¸ãæ¶ãã¦ã¦ archive.org ã«ããæ®ã£ã¦ãªãã¦ããã¼ã¸éãã®ãé ãã®ã§å ãã¼ã³ã¼ãããªãã¡ã¯ã¿ãªã³ã°ãã¤ã¤æç²ããã¨ä»¥ä¸ã®ããã«ãªãã¾ãã use strict; use warnings; use utf8; use Acme::Zenra; use AnyEvent; use AnyEvent::IRC::Client; use Encode; my $channel = $ARGV[0] or die
Yokohama.pm#8ã§ã®Yappoã®è©±ã«ããã°ãIRC botãé§ä½¿ããã¨æããããã IRC botã¯ä½ã£ããã¨ããªãã£ãã®ã§ç·´ç¿ã¨ãã¦llevalãå®è¡ããbotãä½ã£ã¦ã¿ããbotã®ãã¬ã¼ã ã¯ã¼ã¯ã¨ãã¦ã¯AnySanã使ããllevalã¸ã®ã¢ã¯ã»ã¹ã¯LLEval-Clientã使ã£ãã https://github.com/gfx/LLEval-Client/blob/master/example/irc-bot.pl #!perl -w use strict; use 5.10.0; use AnySan; use AnySan::Provider::IRC; use LLEval; use Encode qw(encode_utf8 decode_utf8); use constant _DEBUG => $ENV{LLEVAL_BOT_DEBUG}; use if _DE
èªå® ã®ãµã¼ãã¼ãããããã¨ã¢ãããã¼ãã¨ãããããxircd ããã°ã°ã°ãã¦ãPOE ãããã§æ»ãã§ããããã£ãã®ã§ããã諦ãã¦ä¼¼ããããªã®ä½ã£ãã 使ã£ãã®ã¯ irc-hybird AnySan AnyEvent::Twitter::Stream AnyEvent::IRC::Server ããã®ãã¡ä½ãããã¨ããåãå»å¹´ã ãä¸æ¨å¹´ããããããã£ããã©ç¹ã«ããããäºã¯ãªãã£ãã®ã§ãã¨ãããããirc server ã¨ã㦠irc-hybird ãããã¦ã¿ãã $ sudo aptitude install irc-hybird ã§çµããã§ãããç°¡åã§ããã ãããããubuntu ã¨ãã ã¨ãåä¸ IP ããã®æ¥ç¶å¶éã 2 ã¨ããã訳ã®åãããªãå¤ã«ãªã£ã¦ããã®ã§ãã¨ãããã 1000 ãããã«åºãã¦åèµ·åãã¾ãããããã¨ãmax_number ã 100 ãªã®ã§ãã£ã±ãã«ãã¾ããããã
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
å¦çãå®è¡ä¸ã§ã
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}