みのねっとぶろぐ

■ ダメぽ

今日も体調が悪い（涙）

ということで

今日は体調が悪いのでお休みさせて下さい。

ご迷惑をおかけして大変申し訳ありません。

mino

ダメぽ

■ 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

カウンタアタックを潰して、やっぱり集団ゴール。ペタッキはアシストが１人しかおらず、列車が作れていなかったが、優勝。ガッツポーズ。ゴール後涙を流して喜んでいる。

昨年の故障から１年。完全復活。初勝利のような喜びようです。ペタッキ。

総合マリアローザは、リクイガス ガスパロット。１日おきにディルーカと交換ですか？

ポイント賞チクラミーノは、ペタッキ！