全裸botが規制されてから、2週間。復活の兆しは見えない。 ということで、我慢しきれず全裸bot2(@zenra_bot2)というアカウントを作成した。 GAEで動かしていたヤツでそのままアカウントだけ変更して動かしてもよかったのだけど、それだけだとあまりにも能が無いかなー、と思いPerlで作り直してみた。 Twitter botというと、普通は定期的に呟いたりするので、大抵はcronとかそれと同等の機能を持つサービスなんかを利用すると思う。 今回はそれを使わずに1つのスクリプトだけで完結するよう、Coro::AnyEventを使って複数の処理を定期的に動かすようにしてみた。 http://search.cpan.org/~mlehmann/Coro-5.2/Coro/AnyEvent.pm use strict; use warnings; use Coro; use Coro::Any