memcached でキーの列挙（2)
前回（memcached でキーの列挙）の続きです。サンプルの Perl コードです。ちょこっといじればイベント駆動のモジュールが作れそう。。 my $size = 1000; my $cache = Cache::Memcached->new({ servers => ['localhost:11211'], }); my $slabs = $cache->stats('slabs'); my @stat_ids = (); for my $host (keys %{$slabs->{hosts}}) { my $slabs_text = $slabs->{hosts}->{$host}->{slabs}; my @lines = split("\n", $slabs_text); for my $line (@lines) { ($line =~ /STAT ([0-9]+):chun
memcached でキーの列挙
memcached で、キーの列挙ができないか調査していたところ、PHPで実現している方のブログ記事を見つけました。（ http://blog.cles.jp/item/2141 ） これ Perl の Cache::Memcached でできるだろうと思って挑戦したのですが、何故か stats cachedump が動作しないんです。 そこで telnet を使って直接コマンドをたたいてみることにしました。まずは接続。。 > telnet localhost 11211 次に stats slabs コマンドを実行してみます。 stats slabs STAT 1:chunk_size 80 STAT 1:chunks_per_page 13107 STAT 1:total_pages 1 STAT 1:total_chunks 13107 STAT 1:used_chunks 1310
can は coderef を返す - Perlにまつわる小ネタ集 - モダンなPerl入門
->can は coderef をかえす クラスにメソッドがはえているかどうかを確認するためには、 Foo->can('bar') という風に、can メソッドをつかいます。can メソッドの return value は、boolean だと おもわれがちですが、実際にはちがいます。->can の return value は Foo->bar メソッドの coderef です。 よって、 Foo->can('bar')->('baz'); は Foo::bar('baz') と同じ意味になります。 応用編 local と can をくみあわせると、スコープの中でだけ豚を飛ばす、などといった芸当が可能になります。 my $pig = Pig->new; { local *Pig::fly = Bird->can('fly'); $pig->fly; # $pig can fly now
第134回 モンキーパッチングをPerlでやるとこうだろうか - bingo_nakanishiの他言語出身者のためのPerl入門
まつもとゆきひろ コードの世界?スーパー・プログラマになる14の思考法 作者: まつもとゆきひろ,日経Linux出版社/メーカー: 日経BP社発売日: 2009/05/21メディア: 単行本購入: 50人 クリック: 1,711回この商品を含むブログ (110件) を見るをすごく楽しく読んでいるとモンキーパッチングという発想がでてきました。 簡単に言うと、クラスを後から（実行時に）書き換えて、能力を追加することである。 起源は他人のバグを後付けで回避するところから始まったとのことです。 Ruby class Bar def initialize(n) @name = n end def say1 puts @name + 'です' end end bar = Bar.new('バー'); bar.say1 class Bar def say2 puts @name + 'やがな' end
Tatsumakiのdemoプログラム解析 - file-glob こと k.daibaの日記
■ Tatsumakiのdemoプログラム解析 demo Tatsumakiはmiyagawaさんが作ったPlackベースのフレームワークです．eg/chat配下のサンプルがwebベースでチャットシステムを作る時の参考になるので解析してみました． 使い方 まずapp.psgiを調べてみます． $ plackup -s AnyEvent で実行すると5000番ポートでTatsumakiサーバが起動します．まず，アクセスするパスですが，mainパッケージをみてみると， package main; use File::Basename; my $chat_re = '[\w\.\-]+'; my $app = Tatsumaki::Application->new([ "/chat/($chat_re)/poll" => 'ChatPollHandler', "/chat/($chat_re)/
Tatsumaki でニコ生放送のコメントを流してみた - Perl - @OMAKASE
最近 Tatsumaki 使ったアプリ作りたいなぁと考えていて 何かネタはないかと探していました。 chatはサンプルであるしTwitterのtimelineは既に作られてるし・・・ ニコ生見ててひらめきました。そうです放送中に流れるコメントです。 放送番組を指定して番組中に流れるリスナーのコメントが流れる様子をTatsumakiを使って実現してみる事になりました。 コメントだけ見れて誰得？みたいな感じですが・・・あくまでネタなので。。 ニコ生のコメントは番組毎のサーバーをsocketで叩くとchatデータがデレデロ流れてくるのでそいつをTatsumakiのstreamに渡してやれば上手くいきそうです。 でとりあえず実装できたのですが、はまったのがIEブラウザの挙動です。 どういう訳かIEのみ一度表示したデータを永遠と表示してしまうバグ？のようなものがあったり JSONで送られてくるデータ
PSGI/Plack勉強会 - Kentaro Kuribayashi's blog
PSGI/Plack勉強会を開きました(ひとりで)。資料はGitHubにあげてあります。いろいろまとめ書き足りてないのですが、自分的には納得したので満足してしまいました。 http://github.com/kentaro/psgi-study 以下にもコピペ。 PSGI/Plackとは？ PSGI = Perl Web Server Gateway Interface Specification WebサーバとWebアプリケーションとの間のインタフェイス仕様 Plack = PSGIのリファレンス実装 PSGI実装のひとつ(とはいえ、やたら気合いの入った感じになってるけど) PSGI != Yet Another WAF PSGI != Plack PSGI策定の背景 各Webアプリケーションフレームワークがバラバラに実装していた、WebサーバとWebアプリケーションとのインタフェイスを
PlackでSinatraチックな何かを作ってみた : As Sloth As Possible
こないだ言ってたばりったーは実はもう完成してたんだけど、なんかサンプルアプリのつもりが作ってるうちに段々ガチなフレームワークと化してきて、大したアプリじゃないのに中身は意外と複雑でしかもバグだらけ、みたいなことになってしまった。 うーんこれ公開してもいいけど参考になんねーよな、つか飽きたなーとか思って別の遊びを始めたら意外とそっちが楽しくなってきちゃって、こんなものが出来た。 faultier's Asagao at master - GitHub 何これ Plackを使ってSinatraっぽい感じでWebアプリを書ける雰囲気のフレームワークみたいな（弱々しく）。一応README.jaを読むとどんなものかは何となく伝わるんじゃないかしら。ドキュメントとサンプルアプリくらいは作ってみようとは思いますが、何ができるか試してみる際にはソース読んでくだしあ。（追記）簡単なサンプルコードとドキュメン
Mojoことはじめ - Perl日記
Mojoは軽量なのが特徴と聞いて、やってみた。 もしかしたら今後メインに使っていくかもしれない。 では参考サイトから。 サンプルコードによるPerl入門より。いつもお世話になっております。 「Mojo」の検索結果一覧 - サンプルコードによるPerl入門 サンプルコードによるPerl入門 gihyo.jpのMojo特集。 Mojoを使って自作ウェブアプリをよりポータブルに！：特集｜gihyo.jp … 技術評論社 サンプルコードによるPerl入門 第22回 Mojolicious::Lite：本当に簡単なウェブアプリがあればいいときは ：モダンPerlの世界へようこそ｜gihyo.jp … 技術評論社 上のgihyo.jpで連載されていたid:charsbarさんのブログより。 Mojoを使ってみた - Charsbar::Note ありがとうございます。 というわけでやってみた。 最初な
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
Sub::Pipe で UNIX pipe みたいな関数適用をする - JPerl Advent Calendar 2009
これはなに? Sub::Pipe は非常に小粒なモジュールです。どれぐらい小粒かというと、本質部分は package Sub::Pipe; use overload '|' => sub { $_[0]->( $_[1] ) }; sub joint(&) { bless $_[0], __PACKAGE__ }; この 3行のみ、というぐらい小粒なわけですが、なかなかおもしろいモジュールじゃないかと思っています。 Sub::Pipe を使うと、UNIX pipe のような記法で適用する関数を作成できます。 use Sub::Pipe; sub trim { joint { my $str = shift; $str =~ s/^\s+|\s+$//g; return $str; } } $foo = " foo " | trim; # is $foo, "foo" これは文字列の前後の空
更新履歴兼雑記 - Perl記号ゴルフとAcme::EyeDrops
ここからが本題です。 Perl は頭がおかしいです。すごすぎる。この感動を伝えたいと思います。まず Perl の基本からです。 Hello world! を書きましょう。 ''=~('(?{'.('[[).[|`%,,/`[/[@$'^'+)@@/^(@@@@@,@),@').'! "})')えーと。このくらいわかりますよね。これは Hello world という一番簡単なプログラムなのでわからない人はちょっとプログラムの才能が無いです。嘘ですが。 Perl では記号だけでは出力もできないかな、というような話をしていたところ、 Acme::EyeDrops の出力は記号だけで出力してるぞ、ということでした。これは見たことがあったのですが、確かに今見ると記号だけです。で、これの出力の意味を理解してたんですが、なんともすごいものでした。書いてから後で Perl ヤロウどものことだから既に常識だ
Tatsuhiko Miyagawa's Publications List
具体的なコードを用いて、Ajaxによって新たに広がった技術的な展望への理解を深めながら、Ajaxが機能する仕組みを掘り下げます。DHTMLやJavaScript、XmlHttpRequestなどAjaxの基礎からはじめて、既存のアプリケーションやサービスをAjax化するためのテクニックや、Web2.0なアプリケーションを新たに開発するための設計方法のほか、Ajaxによって開かれた現在の先に見えつつある技術的な将来展望についても議論しています。Webアプリケーション開発に必須の技術となるAjaxを基礎から理解し、応用するためのアイデアとテクニックをまとめた開発者のための実践ガイドです。Justin Gehtland, Ben Galbraith, Dion Almaer 著 宮川 達彦 監訳 加藤 慶彦 訳
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://blog.eorzea.asia/2009/11/post_79.html
ケータイでtwitter を利用できるモバイルゲートウェイ、OAuth対応済み。 - kiko's memo
http://64p.org/memo/amon-nopaste
overload - Perl の演算子のオーバーロードを行うパッケージ - perldoc.jp
Functional Pearls 4 (YAPC::EU::2009 remix)