初YAPCで初LTしてきました

perl yapc

YAPC::Asiaってなに＿今日はYAPC::Asiaでした。 YAPC::Asiaは技術的なトークを中心としたカンファレンスです。 Rubyで言うRuby会議みたいなものでしょうか。（行ったこと無いですが） YAPC自体は世界中で行われていて、今回はそのアジア版という位置づけみ…

2011-09-10

IO::KQueueでディレクトリとファイルを監視する

Perl FreeBSD

経緯とかなんか Filesys::Notify::SimpleとかAnyEvent::Filesys::NotifyとかがKQueueに対応していないので自分で書くことにしました。そのうちこれらのライブラリをKQueueに対応させてpull req送ろうと思います。 AnyEvent::Filesys::NotifyはMoose使ってる…

2011-09-08

Atelierという俺俺WAFを書いています

Perl PSGI

なんでこんなものを書いてるんですか最近はPSGI/Plackが普及してきてかなりWAFが書きやすくなってきたようですね！（僕がWAF触り始めたのは最近ですが。。。）僕は最近はid:tokuhiromさんのAmon2がいい感じだなーと思って個人的に使っています。ただ、社…

2011-06-23

ApacheBenchを使いたいけどApacheを入れるのがだるかったのでベンチマークツール書いた

Perl Benchmark

なんでこんな事をしたんですか？*1 昨日、コンソール開いたんです。コンソール。そしたらなんかabコマンド打ってもApacheBench使えないんです。で、よく見たらなんかApacheが入ってなくて、"command not found: ab"とか書いてあるんです。もうね、アホか…

2011-05-20

Perlの標準モジュールだけで比較的速いsleep_sort書いた

perl

むっちゃ適当。 use strict; use warnings; use Data::Dumper; use Time::HiRes qw/gettimeofday/; sub timer(&$){ my($code, $wait_time) = @_; return sub{ my $start_time = shift; my $now_time = shift; if(($now_time - $start_time) >= $wait_time){ …

2011-05-01

Yokohama.pmに行ってきた

Diary Perl Yokohama.pm

初Yokohama.pm @takuji31さんとか@kfly8くんとかと一緒にYokohama.pmに行ってきました！学生の頃は千葉に居て都合が合わなかったので、 Perl Mongerなイベントに参加するのは初だったりします。 Perlを楽しんでいる感じの人が沢山居て面白かったです！知ら…

2011-01-13

Sledgeでセッションを再発行する方法

Sledge Perl Programming

再発行する機会があんまり無くてたまに忘れるのでメモ。 package Hoge::Pages::Fuga.pm ... sub dispatch_hoge{ my $self = shift; $self->session->expire; # 破棄して $self->construct_session; # 再生成 ... } ... Dancerが気になってるけどHello,world…

2011-01-01

Memoize::Class::Constructor作った

Perl Programing

GitHubに上げました。名前のとおりクラスのコンストラクタをメモ化するモジュールです。前回の反省*1を踏まえてもうちょっとIFやらなんやら煮詰めてみようって言う目論見です。 How to use こんな感じで使います。 use HeavyClass; use Memoize::Class::Co…

2010-11-04

SledgeのPSGI対応について。

Sledge Perl PSGI

いろいろあってすっかり放置してました。前回の記事でid:otsuneさんに紹介して頂いた、id:tokuhiromさんがPSGIに対応させたSledgeについてです。そもそもPSGIって何？ PSGIは正確にはPerl Server Gateway Interfaceとか言うらしいです。名前のとおり、Per…