みのねっとぶろぐ
2004-05-19
■ [出来事]アレルギー性鼻炎の特効薬
最近アレルギー性鼻炎の症状が続いている。
なんのアレルギーか分からないけど、冷たい風に当たると鼻炎になることが多いかな。
なにか、飲んだら一瞬で効く特効薬はないものか。もちろん、眠くなったり、頭がぼーとしないもの。
以前は、１日間効きめがあるコンタックを使ってたけど、
脳卒中になる恐れがある成分が入っているとのことで販売中止になったらしい。
あ、コンタックに限らず、他のメーカーのものも同様です。
よって、今市販されている薬は効き目が弱い、だから辛い
自転車に乗っているときは鼻炎にならないから、早く自転車を復活させなきゃ！
でも、今のこの症状が改善されないまま自転車に乗ったら苦しいだけ(T_T)
とりあえず、ファンライドを読みながら電車通勤。
特効薬欲しい〜
コメントに書き込み頂きました大黒屋さま〜から教わった薬を
Googleしてみたら、こんなサイト見つけました。
2005-05-19
■ [ゲーム]ラブ まさちゃん
昨日、遅い帰宅電車の中で遭遇したと思われる
えばさんと通信してフレンドリストされました。
ラブのまさちゃんが遊びに来てくれました。
夜遅かったのに持ち歩いている人っているんですね。
これでフレンドリストは、１１名になりました。
2007-05-19
■ [CGI]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
□ わかみ [私もスゴイっす＞＿＜ 「鼻、もげろ！！」とか思います。 飲んだら飲んだで、その日終了だし。添鼻薬はＡＧノーズが最高..]
□ みの [どうも、コメントありがとうございます。 添鼻薬（点鼻薬？）は、更にずるずるになったような感じがするのでダメなんです..]
□ 大黒屋 [アルガード鼻炎クールチュアブルＳ 大黒屋はこれがおすすめ(='m')ｳﾌｯ♪ 水なしで飲めるので花粉症のひどい時..]
□ みの [大黒屋さま〜ありがとうございます。 今度、買って試してみます。]
□ わかみ [このＡＧノーズっていうの、結構そのズルズル感がないんですよー。 早く真夏になって欲しい・・・。私もアルガード鼻炎ク..]
□ みの [ＡＧノーズ、そうなんですかー試してみようかな。 記事に追加情報を載せましたが、「おくすりナビ」というのを見つけまし..]