Perl

文字クラスとutf8フラグ

文字の集合を1文字として表現する文字クラス。 ASCIIは基本うまく動くんだけど、 Unicode文字に、標準ではうまく動作してくれなかった。以下その例。 { my $HIRAGANA = 'あいうえお'; my $KANJI = '漢字'; if ($HIRAGANA =~ m{\A [あ-お]+ \z}xms) { print S…

ourの正確な定義

社内でperlのmy,our,localについて盛り上がったのでそのあたりに関するポスト。 今回は、ourについて。いろんなサイトでいろんな書き方されてて、よーわからん、、ということで ... perldoc きちっと追ってくと、ああ納得。 少しでも役に立つかなっと、記事…

Net::RTM( RTM::APIかも )を作ろうかな

最近、Remember The Milk: Online to-do list and task managementでタスク管理することが多いのですが、 いろいろAPIが用意されてておもしろいなぁっと。 TimeLineを使ってトランザクションも実装されているようですし。で、Perlから使えたらさらにおもしろ…

Catalystでフォームの値が、ある条件化において正確に取れない件

問題 ご存じのように、 $c->req->param('fieldname')としてフォームの値を参照できますが、 今構築中のアプリで、BodyParameterログをみてみると、 (※リクエスト値があるときにデバッグログに表示されるやつ) .... 入力されていないフィールドの名前と値('…

Perlのハッシュのバケットってなんだ?

ハッシュのバケットサイズはハッシュをスカラーコンテキストで評価してあげると取れるんだけど、 なんか規則がよくわかりません。Perlがハッシュを、どのように物理設計に落としてるのかが知れる気がするんだけど。。 my %test = ( a => 1, b => 1 , c => 1,…

変数の局所化、local宣言の挙動を掴む

local宣言。変数を局所化する宣言、と説明されているが、どうもピンとこなかった。。そこで、ちょっとlocalについてまとめてみました。 Catalystのsetupメソッド内でもlocalが使われています。local宣言がなぜ必要だったのか。また、そのときの内部の挙動は…