CGI::Application::Plugin::FillInForm を使っててちょとハマる。 use CGI::Application::Plugin::FillInform qw/fill_form/; ... my $t = $self->tt_process("mytpl.tt", { mode => "mode_hoge", } ); return $self->fill_form( $t ); んで、tt 側に とかや…

なんか文字化けすると思ったら、こうしなきゃならない。 my $s = HOGE::Schema -> connect('dbi:mysql:hoge','hoge_user','hoge_pass'); $s->storage->dbh->do("SET names [charset]"); mysql のバージョンも上げたいなぁ...。

AS3 から FMS2 への接続方法だってさ。 コンポーネント使えよと思ったが、事情があるのかもしれないし、Black Box のままじゃ気味悪いので検証。 FMS2 には、nc.objectEncoding = ObjectEncoding.AMF0; を指定すべし。参考: http://blog.tokyoace4.com/04/ac…

心の底から感謝します。 http://blog.nomadscafe.jp/archives/000459.htmlTemplate/Stash/XS.pm を消しただけじゃだめなんだね。 Template/Config.pm を書き換えないとならない。 延べ数時間ハマったので、非常に助かりました。

MT を CMS として使っている、とある案件で英語版が必要になった。 こういう用途だと、管理画面経由ではとてもやってられない*1ので、原稿を Perl でパースし、MT の xmlrpc.cgi に食わせるバッチを書いた。 構造体を作るところは完全に adhoc になるので適…

tr だの td だのの要素を appendChild すると、Firefox では表示され、firebug でタグの構成を見ても一見間違いがないのに、IE7 では表示されなくてあせった。 tbody, thead を適切に与えないと、tr, td, th などの子ノードを「表示してくれない」のだそうだ…

perl ならこう。 #!/usr/local/bin/perl # 1000人の偏差値を出すサンプル use strict; use warnings; # 0〜100 点の点数を 1000 人分、ランダムで生成 my @scores = map { int( rand(101) ) } (1 .. 1000); my $avg = average(@scores); my $standard_score …

var hash = $H({ hoge:"fuga" });等して hash オブジェクトを生成しても、hash.hoge でアクセスできずに undefined が返る。 ググッたら解答がここに出ていた http://blog.s21g.com/articles/290alert ( hash.get("hoge") ); が正解ね。1.6 later の仕様だそ…

イベントを拾って、表示中の HTML の上に Filter(レイヤー)を載せ、元の要素を操作させないようにするもの。 フィルタのテスト 何に使うのかって? アイディア次第でいろんな可能性がある。 DOM で子ノードを起こしているので、何だってできる。 swf を動的に…

http://q.hatena.ne.jp/1207585413 これ。MacOS X の人はターミナルからこう打ってみ。perl -le 'print $_, !($_ % 3) || /3/ ? " aho" :"" , !($_ % 5) || /5/ ? " cool" : "" while (++$_)' おっと。Ctrl-C で止められます。 # Perl golf の達人ならもっと…