TwitterAPIèªè¨¼ãOAuthã«å¤ãããé¢ä¿ãªãbotã«ã¤ã¶ããã¦ããããã«ãã
å
é±botãOAuth対å¿ãããã§ããã
ä»æ¥ãµã¨æ°ã¥ãããã¨ããbotã®ãã¤ã¼ãã«
å
¨ç¶é¢ä¿ãªãbotã®ãã¤ã¼ããæµãã¦ãï¼
èªè¨¼ã¢ã¸ã¥ã¼ã«
ãããªã®ãbotãã¨ã«ä½ã£ã¦ãã
é¢åãªã®ã§ããã³ãããã¦ãã¼ã ãå¤ãã¦ãã
package Auth; use strict; use warnings; use Net::Twitter::Lite; use utf8; my %CONSUMER_TOKENS = ( consumer_key => 'aaaaaaaaaaa', consumer_secret => 'bbbbbbbbbbb', ); my $ACCESS_TOKEN = 'ccccccccccccccc'; my $ACCESS_TOKEN_SECRET = 'ddddddddddddddd'; sub ntl { my $twit = Net::Twitter::Lite->new(%CONSUMER_TOKENS); $twit->access_token($ACCESS_TOKEN); $twit->access_token_secret($ACCESS_TOKEN_SECRET); return $twit; } 1;
ä½æ å¥botã®ãã¤ã¼ãã«æµããã®ã
bot_aï¼ã¾ããbot
bot_bï¼ãµã¾ããbot
ã¨ãããã
åå ãã®ï¼ï¼ããããªbotã§Authã¢ã¸ã¥ã¼ã«ã使ã£ã¦ããã
ã¢ã¸ã¥ã¼ã«åã¯ä¸ç·ã
ãã£ã¬ã¯ããªãbotæ¯ã«ç°ãªãã®ã§ããã«åãæ§æã§Authã¢ã¸ã¥ã¼ã«ãé
ç½®ãã¦ãã
åå ãã®ï¼ï¼bot_bã¯ææããªã®ã§ä»ã¾ã§ã¯ï¼ã¹ã¯ãªããã§æ¸ãã¦ã
ãããä»åã¯Authã¢ã¸ã¥ã¼ã«ã使ãããã«å¤æ´ãã¦ããã
ã¤ã¾ãå
ã
ã¯libæå®ãåå¨ãã¦ããªãã£ãã
åå ãã®ï¼ï¼ãã¼ã«ã«å®è¡ã§ã¯ã¨ã©ã¼ããªãæ®éã«ãã¤ã¼ããã¦ã
ãã¡ããåä½ãã¹ãã¯ãã¦ãããããã®æã¯åé¡ãªããã¤ã¼ãããã¦ãã
ã«ã¬ã³ããã£ã¬ã¯ããªã«ã¢ã¸ã¥ã¼ã«ãåå¨ããããã§ããã
åå ãã®ï¼ï¼cronã®ä¸ã§PERL5LIBã®bot_aã¸ã®ã©ã¤ãã©ãªãæå®ãã¦ãã£ãã
æ大ã®åå ãããã
bot_aã¯ããããããã°ã£ã¦ä½ã£ã¦ã¦ã¢ã¸ã¥ã¼ã«ã使ã£ã¦ããã®ã§
ã©ã¤ãã©ãªæå®ããã¦ããã*1
ãã¡ããbot_aã¯ãã®ã¾ã¾å®è¡ãããã®ã ãã
bot_bã¯ã«ã¬ã³ããã£ã¬ã¯ããªã«Authãåå¨ãã¦ããªãï¼
ããã¦perlã¯PERL5LIBã®ä¸èº«ãæ¢ãã
bot_aã®Authã¢ã¸ã¥ã¼ã«ãè¦ã¤ãåºãã
bot_aã®Authãå©ç¨ãã¦bot_bã®ãã¤ã¼ããã¤ã¶ããã®ã§ãã£ãâ¦
*1:ãªãuse libã§ã¯ãªãPERL5LIBã§æå®ãã¦ãããã¯è¬