function afterFilter() { Configure::write('debug', 0); } これだけでよかった…

コントローラ側に $this->set('scripts', array('hoge')); と定義しておいて、レイアウト側で viewVars; if(isset($viewVars['scripts'])) { foreach($viewVars['scripts'] as $scr) { echo $javascript->link($scr), "\n"; } } ?> </body> もっといいやり方がある…

ハマりにハマったので、どうすればいいかだけさくっと書いてみる。 一応断っておくと、PHPは5.2.5、Cakeのバージョンは1.2.0.7692-rc3。 また僕は、そもそもgettextを使ったことすらなかったので、poファイルの仕組みすら分からなかった。 まあ、PHPはgettex…

id:nekokakさんの最近のエントリ（ANONクラスの生成 - Hatena::Diary::Neko::kak 500 Internal Server Error）を読んで、自分でも試してみた。 ついでに、globの勉強。 #!/usr/bin/env perl # anonclass_test.pl use strict; use warnings; { package Hoge; …

基本、Anonymous Classにuse baseさせて、その時につけた名前をdb_objectメソッドに突っ込めばいい気がする。 そうすると何が利点になるかというと、dsnとかの情報をハードコードする必要がなくなるので、MyApp::MoCoをuseした時に一緒に接続情報ももらうこ…

てっきり今まで勘違いしてたけど、createメソッドって、引数の%argsを、$class->db->insertメソッドでそのまま使っているので、もしかして、inflate_columnは通ってない…？因みに$class->db->insertメソッドは、SQL::Abstract経由で（え、ちょっとまって、SQ…

ふと思い出してiTunesで探してみたら、ちゃんとMain Stream Power Bandも登録されてるのね…。思わず表題曲を購入してしまった。

Kansas City Boulevard Big Bandposted with amazlet at 08.11.27Kansas City Boulevard Big Band Sea Breeze (1994-09-21)売り上げランキング: 74486Amazon.co.jp で詳細を見る このアルバム、大学時代に誰かに借りパクされてるんだよな…。 佳曲ぞろいのア…

Data::ObjectDriverでいうbulk_insertとか、DBICのpolulateみたいなやつ。 というか、Data::ObjectDriverで使ってるbulk_insertをほぼ丸コピしました。 #ported from Data::ObjectDriver::DBD::mysql sub bulk_insert { my $class = shift; my $dbh = $class…

今日、修理センターに届いたそうです。直ってほしい＞＜

今更だけど。 個人的に、ThinkPad大好きなユーザとして、また、いち地元民（実家が近所）として、応援したい所存であります。 →http://lenovoblogs.com/yamato/?language=ja

--- MoCo.pm.orig 2008-06-04 07:03:18.000000000 +0900 +++ MoCo.pm 2008-11-24 12:25:12.000000000 +0900 @@ -255,6 +255,7 @@ sub db_object { my $class = shift; if (my $db = shift) { + $db->require or die $@; + $db->execute('set names utf8'); $…

アンプの修理をお願いしていたのだが、もう完了したそうな。早い。

マイルストーン代わりに。（あくまで自分の思考の垂れ流しなので、実際の定義、動作とは違います） イベント処理用の名前空間をPOE::Session->createで生成。 heapにその名前空間内で使える変数を格納できる（hashベース？）。 別のセッション（名前空間）へ…

POE習作につき。 まず実行スクリプト #!/usr/bin/env perl use strict; use warnings; use IO::Socket::INET; my $sock = IO::Socket::INET->new("localhost:12345"); $sock->timeout(10); $sock->say("wait:5"); $sock->say("wait:2"); $sock->shutdown(2);…

昨日は、僕がベースで参加させてもらっているビッグバンド、Groovy Wave Jazz Orchestraの定期演奏会でした。 写真はリハの様子。Picasaまともに使ったのは初めてだ。 見にきてくださった方々、お手伝いに快く応じてくださった方々、僕を受け入れてくれたメ…

→Scrolling with the Thinkpad's TrackPoint in Ubuntu まんまこのリンク先の通りです。/etc/hal/fdi/policy/mouse-wheel.fdiに true 2 6 7 4 5 4 5 true を書いただけ。xorg.confには何も記述しないで大丈夫です、というか、書いても適用されません。 xrand…

10月26日にまた一つ年をとってしまいました。今後とも宜しくお願いします。

s/pattern/replaced/ で、前の発言の修正ができる。 これの他に何か入ってると適用されない。 Perl的に言うと、gオプションが標準でついてる。正規表現には対応してない。

バージョンは23限定。個人的ベストセッティング ;; emacs23 用フォント設定 (cond (window-system (set-default-font "Consolas-9") (set-fontset-font (frame-parameter nil 'font) 'japanese-jisx0208 '("IPAゴシック" . "unicode-bmp"))))

全然使いこなせてないけど、これまでに覚えてきたことのまとめ。runスクリプト記述時の注意点は 環境変数はとりあえずexportしない exportするのは、少なくとも定義が終わってから execコマンドを使うことで、子プロセスの生成を避ける 実行中のコマンドが落…

9月1日付で、しばらくの間静岡勤務になりました。 昨日荷物を運んで、只今鈍行で鎌倉から移動中。

(require 'flymake) (require 'set-perl5lib) (defadvice flymake-report-status (before flymake-quite-report-status (e-w &optional status)) (if (not e-w) (progn (flymake-mode 0) (flymake-log 0 "switched OFF Flymake mode due to unknown fatal st…

ごちゃごちゃしてきたので、別エントリで。 （前回までのあらすじ） tramp起動時にflymake-perlが有効になってしまうことに業を煮やした僕が、xなんとか氏（g:emacs:id:xcezx）のツッコミを受けながらflymakeのコードをちょっとずつ読んで、ついに原因を特定…

昨日のadd-hookの話、もうちょっと調べてみました。 んで、どうもプロンプトが出なくなる（＝tramp使用時でもflymake-mode-onとなってる時）のは、例の設定から（id:antipop:20080701:1214838633） (defun flymake-perl-load () (interactive) ; (defadvice …

トラックバックいただきました、どもです！→tramp + flymake - 3m4c5 - Emacsグループ ぬぅ? 俺、そんなん一度もなったこと無いなぁ。今試しに remote のファイルを tramp 経由で開いたら Message バッファに Flymake mode enabled Flymake: Configuration e…

→ id:antipop:20080701:1214838633 ごめんなさい、実はさっきまで外してました。というのも、ここんとこ、開発の際はリモートサーバにtrampでつなぐことが多く、その際flymakeが頑張り過ぎてリモートサーバにスクリプトを置いてシンタックスチェックをしよう…

Catalyst使うほどじゃないアプリを書くのに、FCGI&FCGI::ProcManagerでゴリゴリ ↓ 各種オブジェクトのハンドリングが面倒臭くなる ↓ HTTP::Engineの存在を思い出す ↓ PODだけでは使い方が分からないので、ソースを読み出す ↓ Mooseすげえ ↓ 出力部分（Viewで…

相変わらず、Googleで検索結果にあまりない辺りを攻めてみる俺クオリチィ。 今回、DBにMySQLを採用したので、その辺から。 LeopardにMySQLを入れるにはMacPortsは必須なので、以下ページを参考にインストールし、パスを通しておく。 → http://guide.macports…

バケットソートと組み合わせるって手があるか。ま、「はいはい既出既出」ってことで。計算量的にもぱっと見そんなによくはなさそうだし。 my @fib_list = (1, 2); sub fib { my $num = shift; $fib_list[$num] ||= fib($num - 1) + fib($num - 2); }