27 Nov 2012 22:43:12 GMT Module version: 0.08 Download (8.88K) Source (raw) Browse (raw) Bugs Rate this distribution Test results CPANTS License: unknown NAME SYNOPSIS DESCRIPTION HASHING AND SCALING PERSISTENT CONNECTIONS SHARED CONNECTIONS ... 続きを読む
AnyEvent を利用する際に注意する必要があることに、コールバック中で発生した例外の処理方法がバックエンドに任されている(=例外処理の方法がバックエンドによってちがう)、というのが挙げられる。 Impl::Perl では例外は単純に rethrow されるため、プログ... 続きを読む
How does Hatena do with so-called Realtime-Web, especially about Hatena::Notify and APNs. 続きを読む
YAPC::Asia Tokyo 2011 資料、詳細はこちら http://yapcasia.org/2011/talk/71 (c)Marc Lehmann CC-BY-NC 続きを読む
The requested blog was not found -- unless you requested that of Dan Kogai (小飼 弾). リダイレクトはエラー扱いに 以下、問題と感じたところ。 $ua->is_success は300番台でも成立する LWP に限らず User Agent のほとんどはデフォルトではリダイレクト先... 続きを読む
某大手SNSの障害に関連してmemcachedに負荷をかけるツールを書いたので一応書いておく。 最大接続数に達しているときに高速で接続/切断を繰り返すとmemcachedが終了してしまうというもの。 最大10000コネクション試行して、statsコマンド発行する。接続に失敗す... 続きを読む
前に http://limilic.com/entry/xro2j0m4eeif1ip6 で書いたやつをブラッシュアップしてgithubに上げてあります。 AnyEventでWWW::Curlを使うモジュールです。WWWはいちいちタイプするのが面倒くさいので抜きました。 http://github.com/mala/AnyEvent-Curl 何が... 続きを読む
一年半ぐらい遅れのWWW::Curlブーム!とりあえずGETだけだけど、上手く動かせそう。WWW::Curl::Multiのfdsetでアクティブなfd番号が取れるので、それをAEで監視して変化があればperformを呼んでやればcurl_multiのイベントループが動く。 package AnyEvent::WWW... 続きを読む
AnyEventでの簡単なFIFOキューの作り方 まぁ考えてみれば単純な話ですけど、いわゆるGuardを使うとよいです。参考はAnyEvent::HTTP コールバック$cbの最初の引数をguard変数にしておき、キューの1スロットを使用している間はこのguard変数をundefしないように... 続きを読む
AnyEvent で plagger-ircbot 的なのかいた AneEvent二日目なので plagger irc bot的に使えるのを書いてみた。 http://github.com/yappo/perl-anyevent-irc-message-proxy POEってのはIKCっていう便利なRPC的に便利に使えるのが有るんですが、まぁplagger irc bo... 続きを読む
perl連休の非同期祭も(疲れたので)これでラストです。AnyEventでこんなコード書くと、「recursive blocking wait detected」が出ます。 use strict; use warnings; use AnyEvent; sub main { foreach my $i (1 .. 5) { my $cv = AE::cv; my $t = AE::timer $i, ... 続きを読む
mod_perlの中でAnyEventを使って何か上手く動かないというときは timerを使う前にAnyEvent->now_updateをすると良いです。 一つ前のリクエストを処理し終わってから、時刻が更新されていないケースがあります。 AnyEvent->nowは現在時刻を返しますが、実装によ... 続きを読む
bulknews.typepad.com Tatsuhiko Miyagawa's blog to discuss mostly tech and nerdy stuff. View more presentations from Tatsuhiko Miyagawa. via www.slideshare.net Here's my slides about AnyEvent YAPC::Asia 2009 day 1. I realized this is the first... 続きを読む
天然パーマの Erogeek「ゆーすけべー / yusukebe」の日記です 最近は Perl の話題が多くなっています はぁはぁ めんどくさいの箇条書き。 YAPC::Asia 2009 前夜祭 出張 Yokohama.pm の参加希望者がもうすぐ100人! ATND で募集してるので、そのページを再読み込... 続きを読む
しばらく稼動させてたら新規接続できなくなるみたいな問題が出たのでデバッグをした。 サーバーは新規接続を受け付けなくなる(エラーメッセージ無し) クライアント側で tcp: protocol unknown とか file permissions deny server access とか出る プロセスがオ... 続きを読む
イベントドリブンなプログラミングをする際の文脈で言うと、Coroはコーディングスタイルを変化させる(させない)モジュールという意味合いが強いと思う。I/Oにまつわる処理をしないならCoroはタダのコルーチンの実装で、内部でAnyEventが呼ばれることは無い。 An... 続きを読む
モダンPerlの世界へようこそ 第13回 AnyEvent:イベント駆動モジュールの方言を吸収する 2009年8月10日 石垣憲一 Perl, モダンPerl, AnyEvent 1 2 イベントループを持つモジュールが抱える問題点 イベントループを持つモジュールの一例として,前回はPOEを取り... 続きを読む
NAME AnyEvent::ReverseHTTP - reversehttp for AnyEvent SYNOPSIS use AnyEvent::ReverseHTTP; # simple Hello World server my $guard = reverse_http "myserver123", sub { my $req = shift; return "Hello World"; # You can return HTTP::Response object ... 続きを読む
55846 Uploads, 18219 Distributions 70210 Modules, 7560 Uploaders 続きを読む
Coro と AnyEvent はどういう関係なのかを整理しておく。 Coro → AnyEventCoro は AnyEvent に依存している。Coro はファイル/ソケット/etc の 読みこみ/書き込み待ち のときタイマを稼働させるときなどに AnyEvent を内部的につかっている。 AnyEvent → Coro... 続きを読む
AnyEvent はその名の通りさまざまなイベントインタフェースに対応していて、その中に irssi が使用している Glib も含まれているため、irssiのプラグインの中で普通に AnyEvent を使用することができます。 キーワード反応を im.kayac.com で自分の IM に通知す... 続きを読む
最近 AnyEvent にはまっています。おもしろい! AnyEvent と同じ非同期プログラミングフレームワークであるところの POE では $kernel->alias_set('hoge'); などとしておくと $kernel->post( hoge => 'state' ); みたいな感じでどこからでもそのコンポーネント... 続きを読む
多ノードにすばやくping☆pongする必要があったのでAnyEvent::FastPingを使ってみたんですが、内部的にどういう処理をしてるのか気になってメモったので残しておきたいと思います。 http://search.cpan.org/dist/AnyEvent-FastPing/ pipe(2)を2回実行して、2ペ... 続きを読む
NAME AnyEvent::DBI - asynchronous DBI access SYNOPSIS use AnyEvent::DBI; my $cv = AnyEvent->condvar; my $dbh = new AnyEvent::DBI "DBI:SQLite:dbname=test.db", "", ""; $dbh->exec ("select * from test where num=?", 10, sub { my ($rows, $rv) = @_... 続きを読む