Text::Xslate でつかえる標準の組み込み関数/フィルタは、わりと簡素なものしか用意されておらず、いざ作業をしていると、自分で用意しなくてはいけないものがおおくて面倒だったりする。 そこで、

Perl5 をつかって新規のシステムを構築する場合に、どのようにバージョンを選択するべきかという話。 #### 5.6以前 現状、CPAN モジュールにおいて5.6系に対するサポートは、toolc

blocking I/O を利用するライブラリ限定のはなしだけど。 #### HTTP::Lite 依存すくないのがうり。速度重視じゃないし、機能もすくない。インターフェイスも、LWP にくらべる

Perl5 では、E-mail の送信をするためのモジュールが多数 CPAN にアップロードされているが、現在もっともまじめにメンテされていて質がよいのは Email::Sender らしい。 E

一般的な OSX 環境および Linux 環境における、モダンな Perl 開発環境の構築方法についてまとめてみたよ。 #### 下準備 * コンパイラなどをまずインストール。OSX なら Xco

Application Framework における Context Object が共通のインターフェースを採用することにより、reinventing the wheel をふせぐことができるのでは

[ * DBI 接続時に connect\_options をつかえるようにするパッチ * 複合PKをサポートするためのパッチ 昔は複合 PK をそもそも skinny がサポートしてなかったりと

[ fatpacker の doc issue をだいぶ前に Tatsuhiko Miyagawa が fixed in repo な状態にしているにもかかわらず、リリースされていないため、まんまと

「Gearman って gearmand がおちたら、キューにはいってるジョブがふっとんじゃうんでしょ？」とか「ワーカーがしんだらジョブきえちゃうんでしょ？」とかいう話があるわけですが、そもそもそうい

[ ↑でつくったスクリプトに score board 機能をつけてみた。 で、これかいてからきづいたんだけど、Parallel::Prefork には Parallel::Prefork::Sp

Some perl web application tutorial says "First, install WAF from CPAN..., and drink a espresso". heh

P::App::WrapCGI は、perl でかいた CGI しか実行できないので、ちゃんと exec してうごく一般的な CGI がうごくようにしてみる施策。 環境変数をセットアップして、双方向

gearmand の様子をモニタリングするための mod\_gearman\_status ってのが gearman の ml にあがってたけど、C でかいてある意味がわからないし、適当なかんじコード

拡張性等を考慮しなければ、以下のように簡単にかくことができる。 View を XSlate きめうち。ルータは given-when で、設定ファイルは .pl という構成。だいたいのウェブアプリケ

``` use strict; use warnings; use Spreadsheet::ParseExcel; use Spreadsheet::ParseExcel::FmtJapan; m

[ 昨日 mac mini を購入しまして、「さて、mac ports いれなきゃなあ。でも mac ports での環境構築って時間かかるし、CPU パワーもくうし、電気代かかるしエコじゃないし」

開発版の Perl 5.13.2 がリリースされたが、5.13.2 の目玉はなんといっても package NAMESPACE BLOCK 構文だろう。 ``` use 5.13.2; use wa

[ テストなどで memcached やら ttserver やら gearmand やらを起動するにあたって、サーバープロセスを起動するとかいった場合に、サーバーの種類ごとにライブラリを書くのも馬

いろいろ、2010年代仕様にむけて変更中 * HTTPx::Dispatcher → Router::Simple * HTTP::Engine → Plack * POE → AnyEvent *

[ [ [ 端末IDをセッションIDとして利用可能なモジュールをいれていたのだが、これを core distribution からはずした。 基本的にはもういいかげんつかわない方がいいんじ

[ Text::VisualWidth をつかうと、文字の見た目上の幅で trim ったり width をはかったりすることができるのだが、XS が必須なので、XS がいらないバージョンをつくった

OK. I know the code is sucks. But, interpreters should not dump core :P ``` use strict; use warning

slurp で io layer が指定できるようになってる ``` my $lines = $file->slurp(iomode => '<:encoding(UTF−8)'); ``` su

HTML::TreeBuilder の ->lookup だの ->find だのを覚えるのは、学習の効率がよくない。つぶしがきかないので、もっと一般的な CSS Selector や XPath な

TT はすばらしいテンプレートエンジンだが、いくつかの点ですぐれていない点がある。その中でもっとも気にくわない2つは以下のもの。 * Speed * too many plugins on cpan

[ !emoji:1( みたいな形式で絵文字を記述しておくと、それを各キャリヤにあわせた表記に変更してくれるライブラリ。 数字部分は docomo の絵文字番号です。 拡張絵文字を利用したい場合

[ kyotocabinet などの DBM にデータをつっこんでおいて、それを httpd から放出してみた。とくに目的があるわけではなくて、かきたいからかいただけですが。evhttpd とか久々

AnyEvent で HTTP::Response::Parser(picohttpparser の xs wrapper) をつかうとどんなかんじかなーということで、かいてみた。SSL, リダイレク

[ mala のベンチマークにおいて、気になる点がある。それは、「HTTP プロトコルにたいするベタなライブラリ」と「HTTP プロトコルをつかうための高レベルなライブラリ」のベンチマークがまじっ

perlbrew は本来、あたらしい perl をつかうことが主眼だが、古い perl でテストする目的にも使用することができる。 ``` % perlbrew install perl-5.8.9

[ I DON'T WANT TO USE SUBVERSION TODAY! THANKS.

[ * HTTP でデータを取得できる * そして、その httpd を外部にみせても大丈夫 * インメモリデータベース * LRU support * それなりにはやい * 同時1000接

[ This is 習作 for xslate. source is here: [ see also [

``` perl -E 'use bytes; use charnames ":full"; say(utf8::is_utf8("\N{DIGIT SIX}") ? 1 : 0)' ``` の結果

Carp::Always をつかうと、簡単に croak/carp が stacktrace がとれて便利だが、いかんせん長くて、みづらくなるので、それを適当に色をつけてくれるもの。

rafl ware. "Expose PL\_compiling to perl" ということで、PL\_compiling という internal variable をとってこれる。 これによ

V::MT のキャッシュがオンになっているか確認してください。

I taken benchmark between Variable::Magic and tie. In this case, Variable::Magic is 3.1x faster tha

僕がつくってるフレームワークであるところの Amon に Xslate 対応をいれてみた。 かなり TT とおなじ感覚でつかえるかんじ。テンプレートの継承が追加されてるぐらいで、基本は TT とおな

[ 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