タグ

ブックマーク / kdaiba.hatenadiary.org (5)

  • @INCに関数リファレンス突っ込むと動くのはなぜ? - file-glob こと k.daibaの日記

    世の中しらないことだらけ perl weekだった今週を振り返っていて気がついたこと.http://d.hatena.ne.jp/tokuhirom/20081128/1227862781に載っているように, perl -le 'BEGIN {unshift @INC, sub { print join "\t => \t", scalar(caller), $_[1] } }; use Catalyst' というワンライナーは,PerlがCatalystをコンパイルする際に読込むモジュールを,それを読み出したモジュールと一緒に出力してくれます.つまりこんな感じ. main => Catalyst.pm Catalyst => strict.pm Catalyst => base.pm base => vars.pm vars => warnings/register.pm warning

    @INCに関数リファレンス突っ込むと動くのはなぜ? - file-glob こと k.daibaの日記
    hirose31
    hirose31 2008/11/30
  • XMPP勉強会 - file-glob こと k.daibaの日記

    XMPPを使ってみたくなったので仕様を調べて仲間内で発表してみました.その資料を公開します. | View | Upload your own話の中に出て来るOpenFireというのはjavaで動くOpenSourceなXMPPサーバで,PsiというのはXMPPクライアントです.

  • cometネタ,ふたたび - file-glob こと k.daibaの日記

    1対1チャット 1対1でチャットするcometベースの仕組みを作ってみました.クライアント側はまだブラッシュアップしてる最中ですが,サーバ側のコードは落ち着いてきたのでまとめてみます.このサーバは html, css, jsファイルのダウンロード /sendにクライアントが投げてきたpostメッセージの受信 /helloにクライアントがJSONで投げてきたgetメッセージの受信 受信したpostメッセージを,getメッセージへのresponseとして特定のクライアントにJSONP形式で送信 死活監視を兼ねて,システムにログイン中のユーザ一覧をgetメッセージへのresponseとして全クライアントにJSONP形式で送信 という機能を持っています. POE::Component::Server::HTTP my $server = POE::Component::Server::HTTP->

    cometネタ,ふたたび - file-glob こと k.daibaの日記
  • 初めてのガンホー - file-glob こと k.daibaの日記

    初めてのgungho twitterで遊びたい twitterを使っていて,入出力を別のアプリケーションに繋げたいって考えるようになりました.Net::Twitterを使えばアクセスできるし,POEを使えばircでもGTalkでも入出力可能です.でもNet::Twitterは中でLWP::UserAgentを使ってます.ブロックしてしまう可能性があるから,POEの中ではあんまり使いたくありません.で,POEから使えるLWP::UserAgent相当を探してみました.でもざっとみたところTwitterにアクセスするために必要なベーシック認証をサポートしているモジュールはありませんでした.訂正(Apr 16 2007)ここ間違ってます.宮川さんのブックマークで指摘されて気がつきました.例えば,POE::Component::Client::Twitter - POE chat componen

    初めてのガンホー - file-glob こと k.daibaの日記
    hirose31
    hirose31 2007/04/12
    Gungho
  • 少し手馴れたircbot - file-glob こと k.daibaの日記

    バージョンアップ 昨日の日記に これHTML::TagParserの中でLWPか何かでダウンロードしてTITLEをとっているんですよね。とすると、URLのサイトが重かったりするとブロックしてしまうとおもいます。POE::Component::Client::HTTP などでドキュメントを取得してからパーサにまわすほうがいいかと。 と,宮川さんからコメントを頂いたので作ってみました.POE::Componentを複数個使ったスクリプトを組むのは覚えてる限り初めてだったので,ちょっと時間がかかりました. title.pl #!/usr/local/bin/perl use POE qw(Component::IRC Component::Client::HTTP); use HTTP::Request::Common qw(GET); use HTML::TagParser; use Enco

    少し手馴れたircbot - file-glob こと k.daibaの日記
  • 1