2011-01-12
2009-10-29
■モンスターが全くいないフロア
どっかのボス倒してゲットした宝の地図に潜ったらモンスターが全く出て来ない地図があった。
これすげーとか思ったけど検索したらそうでもなかった。
ちなみにこの動画、会社の近くの蕎麦屋で撮ったので音入ってません。
Permalink | コメント(0) | トラックバック(0) | 15:34 
2009-06-04
■はてブのWeb Hookで指定したタグが含まれていたらメールする
のを軽く作ってみた。
#!/usr/bin/env perl package Email; use Moose; use Moose::Util::TypeConstraints; use utf8; use Encode; use Email::MIME; use Email::MIME::Creator; use Email::Send; use Email::Valid::Loose; subtype 'MailAddr' => as 'Str' => where { Email::Valid::Loose->address($_) }; has 'from' => (is => 'rw', isa => 'MailAddr', default => 'webhook@hoge.com'); has 'to' => (is => 'rw', isa => 'MailAddr', default => 'to@hoge.com'); has 'subject' => (is => 'rw', isa => 'Str', required => 1); has 'body' => (is => 'rw', isa => 'Str', required => 1); sub run { my $self = shift; my $mail = Email::MIME->create( header => [ From => $self->from, To => $self->to, Subject => Encode::encode('MIME-Header-ISO_2022_JP', $self->subject), ], parts => [ encode('iso-2022-jp', $self->body), ], ); my $sender = Email::Send->new( { mailer => 'Sendmail' } ); $sender->send($mail); } __PACKAGE__->meta->make_immutable; package main; use strict; use warnings; use utf8; use CGI; use Encode; my $target_tag = 'tag'; my $q = CGI->new; print $q->header(-type=>'text/plain', -charset=>'utf-8'); if ( $q->param('key') ne 'APIKEY' ) { die "Authentication failed"; } elsif ( $q->param('status') ne 'add') { die "This program operates only when additional bookmark."; } my $url = $q->param('url'); my $title = $q->param('title'); my $comment = $q->param('comment'); my @tags; while ($comment =~ m!\[([^\:\[\]]+)\]!g) { push @tags, $1; } #指定したタグを含んでいない場合はメールを送信しない。 die "finished." unless grep /$target_tag/, @tags; my $body = <<'__MESSAGE__'; $title $url $comment __MESSAGE__ my $subject = "タグ[$target_tag]を含む新規ブックマーク"; my $sender = Email->new( to => 'fuba@fuba.com', from => 'fuba_recorder@fuba.com', subject => $subject, body => $body, ); $sender->run; print 'OK';
Permalink | コメント(0) | トラックバック(0) | 16:02 
2009-05-29
■PHP.js
てのがあった。
PHPの文法がそのままJavascriptで使えるってやつだけど意味あるのかな。
<script type="text/javascript" src="js/php.default.min.js"></script> <script> print_r(date('F j, Y, g:i a', 1062462400)); $hoge = []; for ($i = 0; $i < 10; $i++) { array_push($hoge, $i); } print_r($hoge); </script>
September 2, 2003, 9:26 am
Array
(
[0] => 0
[1] => 1
[2] => 2
[3] => 3
[4] => 4
[5] => 5
[6] => 6
[7] => 7
[8] => 8
[9] => 9
)
Permalink | コメント(0) | トラックバック(0) | 00:55 
2009-05-20
■[Mac][Perl]新しく買ったiMacにCPANモジュールを色々インストールしようとして軽くはまった
で、今日Module::Setupをインストールしようとしたら
AppleEvents/t/event.t (Wstat: 65280 Tests: 145 Failed: 0)
Non-zero exit status: 255
Parse errors: Bad plan. You planned 305 tests but ran 145.
Files=18, Tests=2800, 35 wallclock secs ( 0.32 usr 0.06 sys + 1.84 cusr 0.66 csys = 2.88 CPU)
Result: FAIL
Failed 1/18 test programs. 0/2800 subtests failed.
make: *** [test_dynamic] Error 255
CNANDOR/Mac-Carbon-0.77.tar.gz
/usr/bin/make test -- NOT OK
とこける。
Macとか良く分からんし何だこれとか色々調べてたらid:sendがPortsで入れれば良いんじゃねって言うので
sudo port install p5-mac-appleevents-simple
して再度Module::Setup入れたらちゃんと出来た。
かずあき++
これで安心してMac::Growlを入れようとしたらまたこけた。
t/Mac-Growl.t .. Please run gluedialect and gluescriptadds programs at /opt/local/lib/perl5/site_perl/5.8.9/Mac/Glue.pm line 1358, <DATA> line 1.
Mac::Glueの該当する所を調べてその辺から色々追ったけどいまいち分からない。
しばらく悩んでCPANからMac::Glueの最新版のtarを落としてmake installしたら今度はちゃんとインストール出来た。
READMEを良く見たら
You will need to have glues for your dialect and scripting additions
created; the installation process (perl Makefile.PL; make; make install)
should handle this automatically. It will also create glues for two
commonly used applications, Finder and System Events.
とか書かれてる。
何でcpanでこの辺がちゃんと出来ないんだろ。
そんな感じです。
Permalink | コメント(0) | トラックバック(0) | 02:58 
2009-05-18
■続粉瘤
本日粉瘤手術の診察結果を聞きに病院に行った。
悪性の物が無く、破れた痕跡も無い。また大きさは10cm x 6.6cm x 6cmとも。
手術後も順調に回復し、かなり傷が奇麗になった。
場所が場所だけに写真は載せられないが。
上の写真は手術前の点滴と、とある日の食事。
Permalink | コメント(0) | トラックバック(0) | 21:39 
2009-05-08
■人生初の入院&手術
2年位前からおしりにへんなこぶみたいなのが出来て最近までは特に気にも止めてなかった。
しかし、ここ最近座るのも辛くなりこれはやばいと思って近くの順天堂大学病院に行って検査を受けた。
検査結果
粉瘤と診断される。
最初聞いた時、糞が溜まってるのかと思って嫌な気分になったけど、説明を聞いて垢が溜まってるだけと分かった。
粉瘤自体は良性の腫瘍なので特に気にならなければ放っておいて大丈夫と言われたけど、座るのも辛いのでとっとと取って欲しいと伝えた。
すぐにでも手術出来ると言われたが、仕事の事とか保険に入っていない為*1金銭面の事を考え給料日後にしてもらう。
ちなみに大きさが直径7cmあり、粉瘤としてもかなりの大きさらしく日帰りの手術は出来ず、手術後経過を見守る必要がある為入院しないといけないとか。
入院(4/27)
入院当日。
この日までにも、おしりの尻尾が着々と成長している。
椅子に座る時は左側の尻だけで座らないと死ぬのでいつもおかしな座り方になっていた。
10時頃受付けを済ませ、色々説明を聞き病室へ。
病室は窓から日本サッカー協会のビルが見える場所。
4人部屋で差額ベッド代は0円。
ベッドに横になりしばらくすると医者と大学生と思われる集団*2が来て患部の様子を見たり写真を取ったりした。
ちなみに患部は肛門のすぐ近くにある為、非常に恥ずかしかったが我慢した。
ここで手術の説明等を聞く。
ちなみに、入院中は6時起床の21時消灯。
手術(4/28)
当日は朝食抜き。
7時頃に点滴を付ける。
2番目に手術を行う為、最初の人が終わるのを待つ。
10時頃看護士さんが来て上半身だけ手術着を着る。下はパンツ一丁。
手術室まで車椅子に座り連行される。
入り口まで行き、氏名等を確認。そのまま手術台に行き載る。
手に変なのを付け、頭に変なのを付け、パンツを降ろされ患部と肛門が丸見えになる。
消毒をし局部麻酔をし、痛くないか確認。
ただ、麻酔が掛かっていても感触とかは伝わるので痛いのか何なのか良く分からず、痛い痛い言って麻酔を更に打たれた。
いよいよ手術の時。
医者が「メスお願いします」とか言う。テレビで見たまんまだ。
事前にどのように手術をするか聞いていたので、今何をやってるのかとかが喋る内容とか感触で分かる。
最初に患部を葉っぱのような感じで開き、中から垢の塊を切除する。
途中「アヌスには届かないですね」とか言ってて何故か安心した。
どんどん切って行き、いよいよもう少しと言う所で痛みが襲う。
結構な大きさだからもしかすると筋肉に達してて途中痛くなるかもしれないと言われてたが本当に痛い。
麻酔を更に打ってもらいそのまま進める。
しばらく行きまた痛みに襲われるを何度か繰り返し無事塊が取り出された。
お医者さんが見ますか?と言うので一応見る。
濁った感じの水っぽい入れ物の中にソフトボールよりちょっと大きい感じの塊があった。でかい。
その後縫合。
かなりの大きさの物が無くなったから空洞が出来る為、中も縫合し外も縫合。
ガーゼを付けてまた車椅子に乗って病室に戻る。
部屋着に着替えベッドでおとなしくしてると、おしりから違和感が。
見るとガーゼから血が大量に漏れだしていて、シーツとかパンツとか諸々が赤くなっていた。
初潮が来たような感じになっていた。
怖くなったので何度も看護士さんに血が出てるんですけど!とか言って、ガーゼを追加してもらう。
その後出血はだいぶ落ち着いたが、止まる事は無かった。
4/29
術後の様子を確認。
患部はとても綺麗との事。
ただ、まだ出血があるので退院は早くとも次の日以降になる。
1日中テレビを見たりお見舞いでもらった漫画を読んだりした。
退院(4/30)
たったの3泊4日だったがもの凄く長く感じた入院生活も遂に終わり。
さようなら。
傷口チェック(5/2)
血が溜まるのでその辺を確認。
少し溜まっていた為注射器のような物で血を吸われる。
シャワーなら浴びても良いですよと言われ久しぶりに体を洗った。スッキリ。
それと酒も少しなら大丈夫と言われる。
抜糸(5/7)
結構痛いのかと思ってたが、多少ちくちくするだけで全然痛くない。
びびって損した。
ただ、何故か抜糸後若干痛くなってきた。
こんな感じです。
入院代、手術代等は合計で58,960円。
初めての事なので相場とか分からないけどこんな物か。
ただ、保険に入っていればもう少し楽だったのになとか思う。
なので、今日色んな所に資料請求した。早めに入ろう。
お薦めの保険があったら教えて下さい。
それと、変なこぶみたいなのが出来たら小さいうちに取る事を勧めます。
以上です。
Permalink | コメント(6) | トラックバック(0) | 12:29 
