Perl

ActiveModelLike::ErrorsというPerlモジュールを書いた

通常Model内のエラーをControllerに渡す方法はWAFに組み込まれている。が、薄いWAFだとControllerとViewだけあって、Modelは好きに実装して下さいということが多い。得にPerlは軽量なWAFが多く、Mojoliciousのように薄くはないけどModel層がないものもある。…

ひとりISUCONしてみた

自分の実力だけで何点出せるのかチャレンジしたかったので、公式の解説や予選参加者のエントリーを読むのは我慢して頑張ってみた。言語はPerl。 https://github.com/nkwhr/isucon4-qualifier 結果 11:34:06 type:info message:finish benchmark workload: 10…

MojoliciousをアップデートしたらMojo::Templateでエラーが出るようになった

昨日書いたKobitoViewerを動かしているサーバのMojoliciousを最新(v2.92)にアップデートしたらエラーが出て動かなくなった。 Undefined subroutine &Mojo::Template::SandBox::f08af35edfb6fff00e16521ce13bfb68::b called at template from DATA section "i…

Mojolicious::Lite で Kobito ビューワー的なものを作ってみた

最近勉強メモを残すのに Kobito というアプリを使っている。ただこのアプリ、残念なことにMac用のクライアントしかなくて、データもローカルに保存されているので、せっかくメモしても会社のWindows PCから見ることが出来ない。なんとかして会社からも見たい…

Perlのswitch文とif/else文のベンチマークを取ってみた

ちょっとしたスクリプトをPerlで書いてて、 $hogeが文字列aのときは文字列a'を返す $hogeが文字列bのときは文字列b'を返す <略> $hogeがどれにもマッチしない場合はhogeを返すみたいなよくある処理をする必要が出てきて、見やすいからという理由で use Switc…

ランダムなパスワードを大量に生成するワンライナー

と言ってもCPANに上がってるモジュール使うだけ。CPANバンザイ。 $ cpanm String::MkPasswd8文字のパスワードを10個生成 $ perl -MString::MkPasswd -le 'print String::MkPasswd::mkpasswd(-length=>8) for (1..10);' s0Hg7N"g Cy7*pp9C ;k1Wj3Nr 2MiHm:o5 …