みのねっとぶろぐ

■ アレルギー性鼻炎の特効薬

最近アレルギー性鼻炎の症状が続いている。

なんのアレルギーか分からないけど、冷たい風に当たると鼻炎になることが多いかな。

なにか、飲んだら一瞬で効く特効薬はないものか。もちろん、眠くなったり、頭がぼーとしないもの。

以前は、１日間効きめがあるコンタックを使ってたけど、

脳卒中になる恐れがある成分が入っているとのことで販売中止になったらしい。

あ、コンタックに限らず、他のメーカーのものも同様です。

よって、今市販されている薬は効き目が弱い、だから辛い

自転車に乗っているときは鼻炎にならないから、早く自転車を復活させなきゃ！

でも、今のこの症状が改善されないまま自転車に乗ったら苦しいだけ(T_T)

とりあえず、ファンライドを読みながら電車通勤。

特効薬欲しい〜

コメントに書き込み頂きました大黒屋さま〜から教わった薬を

Googleしてみたら、こんなサイト見つけました。

■ ラブ まさちゃん

昨日、遅い帰宅電車の中で遭遇したと思われる

えばさんと通信してフレンドリストされました。

ラブのまさちゃんが遊びに来てくれました。

夜遅かったのに持ち歩いている人っているんですね。

これでフレンドリストは、１１名になりました。

■ ビーグル ぼすくん

今朝、通勤電車の中で遭遇したと思われる

まりまりさんと通信してフレンドリストされました。

ビーグル ぼすくんが遊びに来てくれました。

これでフレンドリストは、１２名になりました。

飼い主さん、まりまりさんのコメント

　エラーになり１からやりなおし 泣泣泣トホホ

■ 休んでやる！

まあ〜仕事というものは色々なことがあるものです。

場合によっては、常にストレスが伴う訳で、

それを解決するために、色々と頑張っている訳ですが、

頑張り方は、人それそれで、自分の頑張りと他人と比べてしまって、それがまたストレスになったり。色々です。

比べなきゃ良いなんて考えて、我が道を行っているように見える人もいます。

仕事にストレスを感じない人って世の中にいるのだろうかと思いつつ、

明日は仕事から逃げてみよう！

あ、ヤバイ！また仕事ネタだｗ

■ うるたん優勝

ジロ・デ・イタリア2006第11ステージ

個人タイムトライアル50.0km

でウルリッヒがステージ優勝しました。

やったー久しぶりのうるたん表彰台。

こちらもどうぞ

■ ツアーオブジャパン2006

今週末の日曜日は、ツアーオブジャパン2006の最終ステージ 東京です。

日本で行われるプロロードレースの数少ないステージレースなんだけど、残念ながら今年も観戦に行くことが出来ないだろう。まだ一度も観戦したことがない。

東京ステージは、周回する大井ふ頭が観戦ポイントなんだろうと思う。ただし、平坦なので、目の前を物凄いスピードで通過する選手達を一瞬見れるだけのような気がする

■ TimelogAPI perlサンプル２

TimelogのAPI perlサンプル第２弾です。

ちょっと時間が取れず１週間経ってしまい今更感がありますが。

今回は、「自分とメモフレンドの発言を取得する」friends_msg.aspです。

     1 #!/usr/bin/perl -w
     2 use strict;
     3 use Encode;
     4 use LWP::UserAgent;
     5 use XML::Simple qw(XMLin);
     6
     7 $ENV{TZ} = 'JST-9';
     8 my $u = 'hogehoge'; # ID
     9 my $p = 'xxxxxxx';  # パスワード
    10 my $c = 20;   # 取得するメモ件数(MAX50)
    11 my $t = 1;    # 現在より$t時間前からのメモを取得
    12   # 0以上が指定された場合、メモ件数はMAXの50件とする
    13
    14 my $status = &timelog_get( $u,$p,$c,$t,'eucjp' );
    15 print "status = $status?n";
    16 exit(0);
    17
    18 sub timelog_get {
    19     my ( $user,$pass,$cnt,$hour,$cd ) = @_;
    20     if ( $user eq '' ) { return( 'User Unknown' ); }
    21     if ( $pass eq '' ) { return( 'Pass Unknown' ); }
    22     my $opt;
    23     if ( defined( $hour ) && $hour > 0 ) {
    24         my ($ss,$mm,$hh,$DD,$MM,$YY,$wday,$yday,$isdst) = localtime(time-$hour*60*60);
    25         $opt = sprintf( "cnt=50&fmt=xml&since=%04d%02d%02d%02d%02d",$YY+1900,$MM+1,$DD,$hh,$mm );
    26     } else {
    27         $opt = "cnt=$cnt&fmt=xml";
    28     }
    29     print "opt=$opt?n";
    30     my $req = HTTP::Request->new( GET => "http://api.timelog.jp/friends_msg.asp??$opt" );
    31     $req->authorization_basic( $user, $pass );
    32     my $ua = LWP::UserAgent->new( keep_alive => 1,timeout => 30 );
    33     $ua->parse_head(0);
    34     my $res = $ua->request( $req );
    35     if ( $res->is_success ) {
    36         &timelog_xml( $res->content,$cd );
    37         return 0;
    38     }
    39     else { return $res->status_line; }
    40 }
    41 sub timelog_xml {
    42     my ( $xml,$cd ) = @_;
    43     my $ref = XMLin($xml,ForceArray => [qw(entry)], KeyAttr => [qw(entry)]);
    44     for ( my $i = 0; $i < 50 && defined( $ref->{entry}->[$i]->{author}->{id} ) ; $i++ ) {
    45         # 投稿者ID
    46         print "$ref->{entry}->[$i]->{author}->{id} ";
    47         # メモの内容
    48         Encode::from_to( $ref->{entry}->[$i]->{memo},'utf8',$cd );
    49         print "$ref->{entry}->[$i]->{memo} ";
    50         # 宛先ID
    51         if ( ! ref( $ref->{entry}->[$i]->{toid} ) ) {
    52             print ">$ref->{entry}->[$i]->{toid} ";
    53         }
    54         # 使用タグ
    55         if ( ! ref( $ref->{entry}->[$i]->{tag} ) ) {
    56             Encode::from_to($ref->{entry}->[$i]->{tag},'utf8',$cd );
    57             foreach ( split( /?,/,$ref->{entry}->[$i]->{tag} ) ) {
    58                 print "[$_]";
    59             }
    60         }
    61         # メモ投稿日
    62         my $tm = substr( $ref->{entry}->[$i]->{modified},11,5 );
    63         print "$tm?n";
    64     }
    65 }

XML::Simpleを使ったとこが気に食わないのですが、一応これで。

今回も、文字コードを意識的に、日本語EUCで表示させるようにしています。

これで、他の取得系のAPIも同様なプログラムで実装可能です。

今後は、携帯メールだけで投稿も取得も行えるプログラムでも組んでみようかと思っていたりするが・・・

■ カリブ海風チリソース焼そば

カリブ海風チリソース焼そばなるものを食べた。

エースコックからGW明けに発売された新商品で、エースコックのページによると

トマトやポークをベースに、パプリカなどの香辛野菜の旨みを利かせた
チリトマトソースです。７種類の香辛料をブレンドし、辛さと旨さが
一層引き立つ別添スパイスを添えました。シャキシャキとしたキャベツ、
程よく味付けした大きめサイズの肉そぼろを入れました。

辛くて美味しかったです。ご飯が欲しくなりました。

残念ながら、キャンペーン中の「パイレーツ・オブ・カリビアン／ワールド・エンド」の映画公開記念プレミアム図書カードは入っていませんでしたw

■ 三社祭ライブ１

ということで、三社祭マチネライブ、昼間から飲みながらライブを見て楽しみました。

ライブで生ビール１、ワイン２を頂き演奏を堪能しました。

ライブ後は、すしや横町のお寿司屋さんでお寿司を堪能し、神輿が来る度に

お店から出てお祭り見物をしました。ここでも生ビール２。

夕方に帰って来て爆睡してしまったため、ジロは見られなかった（涙）

少し記憶がとぎれとぎれだしw でも、楽しかった。

■ みんなのブログ

Timelogにグループ機能が出来ていたので、

「みんなのブログ」と題したグループを申請してみた。

申請は受理され、難なくグループが出来ました。

さて、どうしよう？w

一応、趣旨としては、

自身のブログ更新を投稿（お知らせ）するグループです。

みんなのブログ更新のお知らせで、そのブログ記事を見て、コメントして、

お互いのブログに、Timelogを通じて交流してみては如何だろうか？

（面白い紹介文、使い方のアイデア募集中）

ってなわけで、グループはじめてのブログ更新の投稿です。

　みんなのブログ

■ 静かなブーム

コンビニにで静かなブームとなり売れ筋商品になって売り切れのところが多いそうです。

コンビニにクリーニングを出しに行ったら、るみが何か嬉しそうに買ってました。

早速、試しに食べてみましたが、これは美味しいです。

しかも、１缶１０５円。コンビニに行ったら探してみてください。

■ ウィロー

ウィロー [Blu-ray]

題名の「ウィロー」と言うのは覚えていたけど、どんな話の映画だったかすっかり忘れていたので新鮮でした。

ジョージ・ルーカスが原作・製作総指揮を務めたファンタジー。

魔術を使う悪の女王に支配された暗黒の世で、将来その女王を殺すと予言された運命の赤ん坊が生まれた。予言を恐れた魔女は殺すように命じるが、難を逃れた赤ん坊は川に流され、ネルウィン族の若者ウィローに拾われる。長老の指示に従い、親友らと共に赤ん坊を人間世界へと返す旅に出たウィロー。道中で出会った荒くれ者のマッドマーティガンを仲間に加えた彼らは、邪悪な魔女から世界を救う戦いに巻き込まれていく…。