みのねっとぶろぐ
2007-05-14 [長年日記]
■ TimelogAPI perlサンプル
TimelogがAPIを充実して来たので、perlのサンプルプログラムを書いてみました。誰も参考にしないと思いますが。
以下、「新しいメモの投稿」new.aspを使うサンプルです。
1 #!/usr/bin/perl -w
2 use strict;
3 use Encode;
4 use LWP::UserAgent;
5
6 my $u = 'hogehohe'; # ID
7 my $p = 'xxxxxxx'; # パスワード
8 my $m = '新しいメモの投稿perlサンプル'; # メモ
9 my $a = 'Timelog.pl'; # Agent
10
11 # メッセージを投げる
12 my $status = &timelog_post( $u,$p,$m,$a );
13 print "post = $status\n";
14 exit(0);
15
16 sub timelog_post {
17 my ( $user, $pass, $mes,$agent ) = @_;
18 if ( $user eq '' ) { return( 'User Unknown' ); }
19 if ( $pass eq '' ) { return( 'Pass Unknown' ); }
20 $mes =~ s/\s/ /g;
21 $mes .= ' [m2m]';
22 my $req = HTTP::Request->new( POST => 'http://api.timelog.jp/new.asp' );
23 $req->content_type('application/x-www-form-urlencoded');
24 $req->authorization_basic( $user, $pass );
25 Encode::from_to( $mes,'utf8','sjis' );
26 $req->content( "text=" . $mes );
27 my $ua = LWP::UserAgent->new( agent => $agent,keep_alive => 1,timeout => 30 );
28 my $res = $ua->request( $req );
29 if ( $res->is_success ) { return 0; }
30 else { return $res->status_line; }
31 }
ファイルの文字コードは、UTF8で書いていますので、使用する文字コードに合わせて、25行目のutf8を変更して下さい。
あくまでサンプルですw
添削お願いします。
■ ジロ第3ステージ
ジロ・デ・イタリア2007 第3ステージ BARUMINI〜CAGLIARI 181km
今日は、J Sportsによると。
島で過ごす最後の日。翌朝早く、選手たちは飛行機で、スタッフやメディアは船でイタリア本島へ移動するため、速い展開が期待される。 スタート地は、ユネスコ文化遺跡に指定されているス・ヌラージのあるバルーミニ。紀元前10世紀以上にさかのぼる石造りの巨大建造物を後にしたプロトンは、最終盤の約50kmに渡って、エメラルド色の景色が広がる海岸線をひた走る。ルートは前半に小さな登りがある以外は、比較的平坦なスプリンター向け。サルデーニャの中心都市カリアリで、再び大集団スプリントが繰り広げられることだろう。
今日は、白戸さんと栗村さんです。面白過ぎです。幻想ですよね。うん。
体調が悪いのであまり書いていませんが、今日はこちら
そろそろ、ゴールまで20km、逃げと集団は2分。集団はどうする。マキュアン、ペタッキ！
残り１０km、ミルラムが集団を思いっきりひいて、逃げを追っかけている。1分30秒差 。00:12
残り５kmで、４２秒の差。もう逃げる２人のローティションが弱くなった。00:16
逃げ終了。ゴールスプリット準備と思ったら、カウンターアタック！クイックステップ、トザット 00:19
カウンタアタックを潰して、やっぱり集団ゴール。ペタッキはアシストが１人しかおらず、列車が作れていなかったが、優勝。ガッツポーズ。ゴール後涙を流して喜んでいる。
昨年の故障から１年。完全復活。初勝利のような喜びようです。ペタッキ。
総合マリアローザは、リクイガス ガスパロット。１日おきにディルーカと交換ですか？
ポイント賞チクラミーノは、ペタッキ！
あらあら、お大事に。
ありがとう。^^;