tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
POEなスクリプトをプロファイリングしたいの - （ひ）メモ
Devel::DProfだとセグフォる。 $ perl -d:DProf poe-poe-poe.pl Segmentation fault (core dumped)POE::Devel::Profilerというのがあったので試してみた。 が、dprofppやgprofに比べるとサマれる情報が少ない。 $ perl -MPOE::Devel::Profiler poe-poe-poe.pl $ poepp BasicSummary Visualizer::BasicSummary ( poe-poe-poe.pl started at Mon Jul 2 15:19:05 2007 ) Total number of sessions: 9 Total number of events profiled: 1054 Total number of alarms profiled: 0 T
Spread Toolkit で Comet チャットサーバをクラスタリング - 酒日記 はてな支店
PoCo::HTTP で Comet チャットサーバを作る - daily dayflower を試してみた。面白い。 ついでに spread を使って、Comet チャットサーバをクラスタリングする実験をしてみる。 POE::Kernel->run(); の前に、PoCo::SpreadClient もセットアップ。 use POE::Component::SpreadClient; POE::Component::SpreadClient->spawn( 'spread' ); POE::Session->create( inline_states => { _start => \&spread_start, _sp_message => \&spread_message, } ); POE::Kernel->run(); sub spread_start { $poe_kernel-
PoCo::HTTP で Comet チャットサーバを作る - daily dayflower
せっかくのイベントドリブンフレームワークな POE ですから Comet でチャットをやってみようかと。ありきたりですが。 POE::Component::* でウェブサーバを立ち上げられるのは現在のところ， POE::Component::Server::HTTPServer POE::Component::Server::SimpleHTTP POE::Component::Server::HTTP の3つがあります。1番目は最近 inactive なのでパス。2番目は「イベントフレームワーク」への馴染みはいいんですが「Simple」じゃなくなってます。3番目はコールバック関数を登録するというお気楽スタイルなんですがちょっと雑な感じ。 今回は楽をするために3番目の PoCo::HTTP を使ってみたいと思います。id:naoya 氏も最近紹介してましたし。 URI の設計指針は， チャ
はじめてのircbot - file-glob こと k.daibaの日記
まったりとしたチャット ircdを動かして日々の何気ないチャットをやっていたある日， url送ったらそのページのタイトルを返してくれるボットが欲しいなぁ という話がでてきました．これはPOEを使ってみるチャンス，ってことでircbot作りに挑戦することにしました． サンプル POE::Compoennt::IRCにはいくつかサンプルがついていたり，podにもサンプルがついているのですが，一番簡単なのがPOE Cookbookだったので，これをベースにしてみました．やることは簡単で，元のスクリプトの if ( my ($rot13) = $msg =~ /^rot13 (.+)/ ) { $rot13 =~ tr[a-zA-Z][n-za-mN-ZA-M];となっている部分を，urlを受け取ったらそのタイトルを返すように書き直せばいいわけです．これを実現するために見つけたのがHTML::Ta
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
