読者です 読者をやめる 読者になる 読者になる

末永宏樹の技術ブログ

実名:末永 宏樹(スエナガ ヒロキ) HirokiSuenaga の技術ブログです。Github:https://github.com/sue7ga 連絡先: sue77ga@gmail.com

2chまとめサイトの情報をつぶやくTwitterBotを作成した。

use strict;
use warnings;

use Config::Pit;
use Data::Dumper;
use AnyEvent::Twitter;
use AnyEvent::Twitter::Stream;
use XML::Feed;
use URI;
use utf8;

my $feed = XML::Feed->parse(URI->new('http://alfalfalfa.com/index.rdf')) or die XML::Feed->errstr;
my $feeds = [];
  for my $entry($feed->entries){
    push @$feeds,{title => $entry->{entry}->{title},link =>  $entry->{entry}->{link},subject => Encode::encode_utf8($entry->{entry}->{dc}->{subject}),date => $entry->{entry}->{dc}->{date},content => $entry->{entry}->{content}->{encoded}};
  }

my $auth = pit_get("example.com");
my $cv = AnyEvent->condvar;

my $twitter = AnyEvent::Twitter->new(%$auth);

my $timer = AnyEvent->timer(
   after => 0,
   interval => 60,
   cb => sub{
     my $saying = shift @$feeds;
     $cv->send unless $saying; 
      $twitter->post('statuses/update',{
        status => $saying->{title}."※アルファルファ→http://2chmatome.red/alfa",
      },sub {
        my($header,$tweet) = @_;
        warn $header->{Reason};
        warn $tweet->{id_str} if $twitter;
      });
   }
);

$cv->recv;


>|perl|

2chまとめサイトのアンテナサイトを作った


Amon2+MySQL+Perl etc

サクッと作ったけれど、工夫したところはランキングで上位表示されるようにしたこと。
PV数のランキングですね。

Githubは以下。


sue7ga/twomatome · GitHub

家計簿アプリGithubにあげた

開発は、Amon2+Perl+MySQL+Javascriptなど。

http://household2.com/login

上記は製作物URL.

工夫した点は、月別、週別の分析を実装したところですかね。
Githubは、
sue7ga/HouseHold · GitHub
上記である。

致命的なバグを修正したら、再度通知したいと思います。

駅データJPのモジュールを作ってみた。

ネタ元。


API | 駅データ 無料ダウンロード 『駅データ.jp』

Githubにあげてみた。

WWW-StationJp-API/API.pm at master · sue7ga/WWW-StationJp-API · GitHub

my $station = new WWW::StationJp::API();

my $line  = $station->line({linecode=>11302});

家庭教師のマッチングサービスの試作品を作ってみた

難しくて挫折しそうだけど、
登録、ログイン、設定、検索、メッセージの送信、受信などは頑張って機能開発してみた。
Amon2+MySQL+PerlでTengなども利用した。

一応、試作品として、作ってみたけど、デザインがいけてないかも。

AngularJSも利用してみて、検索がすぐ反映されるようにした。

Githubは以下。ソースコードとか突っ込んでくれると嬉しいです。


sue7ga/SampleAmon2 · GitHub

mysqlにて、hogeというデータベースを作成し、sql/mylsql.sqlの内容を読み込む方法

メモ

mysqladmin -u suenaga create hoge -p

これでhogeというデータベースが作成され、

mysql -u suenaga hoge < sql/mysql.sql -p

これで、mysql.sqlの内容が読み込まれる。
データベースと、テーブル作成が完了。

Amon2でディスパッチャーにコントローラーの読み込み設定を書く

メモ。ディスパッチャーに、

use Module::Find;

useall 'Appname::Web::C';

base 'Appname::Web::C';

と書くことで、C以下のコントローラーにディスパッチャーから処理を移すことができる。