[ I wrote broken webapp, it outputs invalid content-length. Then, I want validator :P ``` package

[ ``` % history -n 1 | awk {'print $1'} | sort | uniq -c | sort -k1 -rn | head 206 git 130

``` 5.010001 Math::Random::MT: 1.10 Rate mt rand() mt 714566/s -- -96%

のがほしいなーっていってたら mattn さんがかいてくれました! YATTA! これで package 宣言まちがえてはまることがなくなるのでオヌヌメ。 [

【追記】ごめん。うそなんだ。。。本当は一番はやいのが cs です。 [id:gfx]( が clearsilver binding をかいたということなので、ベンチマークをとってみた。 結果をみて

なんか適当にこうしてみたけど、div タグで改行とかしてくれなくて悲しい。もっとうまい方法があった気がするが、おもいだせない。 ``` sub html2text { my ($html)

Plack つかうとこういうの簡単にかけてよい。 ``` use common::sense; use autodie; use Plack::Runner; use Plack::App::Dir

[ FCGI つかってる人はチェックすべし。

なんかこういうかんじでやるのが簡単にできる Middleware はどうか lang:ja ``` enable sub { my $app = shift;

[ インストールすると local-lib-profiles\_bashrc っていうファイルが /path/to/perl/bin/ あたりにインスコされるので、そうすると、ファイルができるから、

HTTP::Request をつかって呼ぶのはそんなにむずかしい話ではない。という。たとえば、以下のようにすれば、普通によべる。 ``` sub http_request_by_http_reque

Crypt-OpenSSL-RC4 では Module::Install を利用していたのだが、libs('-lcrypto') を指定しても Solaris の場合だけリンカ実行するときに -lcr

Damian Conway の Perl Best Practice は関数プロトタイプを非推奨扱いにしているが、一方で巷の Perl Hackers はこれを使いまくっている。このような状況が初心者

Router-Simple をつくったり MojaMoja をかいたりしていたのだが、Amon でかいたちょっとしたアプリで、コントローラクラスが数個にしかならないような規模の場合に、いちいち MyA

Qudo についてる SQL をつっこむ。 ``` % sqlite3 /tmp/qudo.db < doc/schema-sqlite.sql ``` ワーカースクリプトをかいてみる。 ```

数年前に HTTPx::Dispatcher というのを書いたのだが、HTTPx::Dispatcher は declarative interface が主にたっちゃってるのが失敗したなあ、とおもっ

同じ名前空間ですが、まったくちがうツールとしてうまれかわりました。後日かいたほうのエントリを参照してください。 → [ ~~python の virtualenv っぽい感じで local::lib

[ ``` my $router = router { connect '/' => {controller => 'Router', action => 'index'}; submapp

環境変数 COMSPEC または Shell を指定しよう。

最近DBIx::Skinnyをプライベートでは利用しているのだが、その理由。主にDBICのここが嫌だ、的だが。 #### DBIC が 'me' とか名前つけるのが嫌だ。 うん。嫌だよね。 ##

Perl5.10 以後のみ対応だけど、5.10 以後ならこんな簡単なのでいいのかも。 ``` package MojaMoja; use strict; use warnings; use pare

または、Pros と Cons をまちがえて書いてしまうような人でもできる英文バグレポートの方法。 まあ小手先のノウハウだけど、俺はこうやってるよ、という話。 #### ともかく再現可能なテストケ

Test::More 0.95\_01 の変更によりいくつか影響をうけているパッケージがあるようです。 自分が把握している範囲で2件あり、それは Net::Twitter と Test::Class

[ もともと、なんでもはいりまくりの Strawberry だったわけだが、そこにさらにいろいろぶっこんだパッケージを開発中みたい。 ``` All common graphical toolki

* github pages をつかうと簡単に HTML のページを公開できる。 * Doxygen をつかうと簡単に HTML のドキュメントを生成できる。 ってことは、この2つを簡単にくみあわせ

SEGV の原因となっている、Perl5 のバグをつく Devel::Symdump をはずして MRO::Compat をつかうようにしたので、SEGV しなくなったはず。

#perl-casual でみんながつかってる pod parser をきいてみた。 #### いろいろ ##### Pod::POM おれがふだんつかってるやつ。POM っていうなまえだけど、

multilog に access log と error log をまぜてだすと、エラーでてんのかどうかよくわからなくなっちゃうので、まあわけた方がよろしい。 multilog でパターンマッチ

このコード、perl5.8.1 だと不思議な挙動をします(たぶん 5.8.5 以下で変な挙動をする)。 ``` use strict; use warnings; use Test::More te

PubSubHubbub(以下PuSH)は、フィードの更新をリアルタイムに通知するためのプロトコルである。 ウェブ上にころがっている"PuSH"の情報は、"Pub" の部分を実装する方法か、「Pu

CPAN のメタデータは以下の3つにより配布されている。 * authors/01mailrc.txt.gz * modules/02packages.details.txt.gz * module

基本的に Perl5 は下位互換性が非常によく保持されていますから、use 5.10; などによる縛りをかけないかぎり、「過去バージョンでうごくのに最新のバージョンだとうごかないよう」ということはまず

[ "multiperl" is perl5 interpreter installer for perl developers. #### \*Pros\* * simple * instal

sizeof(IV) が 4 で、 sizeof(off\_t) が 8 だったりする環境では、-s (pp\_ftsize) が NV をかえす。 32bitシステムでは、現実的には NV の仮数

僕は歴史家じゃないので、今自分がもってる感想をメモしておく #### Module::Build Module::Build の目標は make の排除だとおもうのだが、現実的には、EU::MM

[ local::lib を利用して extlib/ を構築する方法が最近流行りだ。cpanm とくみあわせれば、capnm -l extlib/ Plack などとすれば一発で構築できる。 し

#### assumption * literal 1e100 is integer value. * literal "1e100" is integer value. * 1e100+0.1 i

諸事情により、頻繁にいろんなソフトウェアをいれているわけですが、入れるたびに「どこからイレるんだっけ」とおもって、さがすのがめんどくさいので、オレオレportsモドキをつくってつかっている。 she

[ typester さんの CPAN Recent Changes が落ちっぱなしなので、こまったなーとおもってたら、tomi-ru さんが Y! Pipes でつくってくれて、便利だなーとおもっ

[ Now a days, typester's CPAN recent changes site is not works... I want to read it... then, I re

[ pure perl で無圧縮zipの展開/パッキングをするためのライブラリをかいた。 pure perl なのと、メモリ使用量がすくないのが利点かなとおもう。 zip のフォーマットは、まあ

``` git show --format='%H' -s ``` とかでとれる。 miyagawa++ yappo++

puppet は「俗人的な要素を排除する」という点がやはりおおきいのかな、とおもった。 いっぽうで、以下のような点を感想として得た。 * 新規にインストールするシステム以外には適用しづらい * 最

[ 個人サイトで借りてる貸しサーバーはシェルが使えるんだけどroot権限が無く各種メモリの制限も強い。で、CPANコマンドを使うとlimit制限にひっかかってmoduleindexを伸張するところで

This entry is just thinking note for me. ``` % perl -MO=Terse -e '1 ~~ 2' LISTOP (0x11ba080) leave

``` dPOPTOPssrl; dPOPXssrl(TOP); SV *right = POPs; SV *left = CAT2(TOP,s); SV *right = POPs; SV *lef

[ I wrote tiny script named cpan-outdated. It's so fast, lightweight version of 'CPAN::Shell->r'.

``` plackup -s Standalone::Prefork::Server::Starter ``` ってかいてあるところを ``` plackup -s Starman --work

* Plack コアは XS に依存しない * Starman は XS に依存する * PP がよければ Server::Simple のをつかう * Twiggy は XS に依存しない(よう

warnings::compat をつかえばいい。 ``` # on pre-5.6 Perls, add warnings::compat to the prereq modules

いつもどおりチラ裏ですけど。 HTTP::Engine::Interface::Standalone は Catalyst の スタンドアロンサーバをコピペしたところからはじまったのだけど、あんまメ

[ > Class::MOP関連の処理を省いていたり、XSで実装されている部分が多かったりするので、Mouseのロード, インスタンスの生成, Mouseクラスに於ける処理の実行時のいずれもMoos

以下のように、-MO=Terse すると、コンパイル時に定数の畳み込み最適化的な奴でたたみこまれて sv\_yes とか sv\_no になってることがわかる。 ``` % perl -MO=Ter

Perl5 のソースをよんでると DEBUG\_M() とかそういうマクロがときどき目にはいる。 この /DEBUG\_./ な関数は PL\_debug っていうフラッグのオンオフによって出力が制

sv.c の sv\_vcatpvfn にある。

せっかく given-when 構文をつかえるのだから、以下のように Dispatcher を書けばいいのではないか、という話があったので実際つかってみていたのだが、このような書き方は非常に低速である

RAIIパターンを利用し、select $fh したものをスコープぬける時点でもどすというためだけのモジュール。select(2) するためのモジュールではないことに注意。 ``` use Scop

テンプレートエンジンについて感じていることのメモ。 * HTML/XML に依存したテンプレートエンジンは、メールなどの生成にはつかえないので、二種類のテンプレートエンジンを修得しなくてはいけない

``` FASTER_VERBOSE=2 FASTER_DEBUG=1 perl -Mblib -MFaster -e 'use IO::Socket; IO::Socket->new()' ```

Perl5.10.1 をメインでつかっているのだが、あいかわらずすげー微妙なエッジケースにバグがある。5.8.9 よりもやはりバグを踏む可能性がちとたかい。とはいえ、すげーくさいところなので、普通の人