tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Class::DBI::Plugin::ChildTable - ふしはらかんのらーめん話
作った。実装、ネーミングセンスともに検討の余地ありだけど、割と使い出がある。ログのテーブルとか、基本的には記録しっぱなしなので月単位で区切ったりしたい場合にこれ使うと適当にやってくれる。 package Class::DBI::Plugin::ChildTable; use strict; use warnings; use base qw/Class::DBI::Plugin/; our $VERSION = '0.01'; use List::MoreUtils qw/uniq/; sub init { my $class = shift; $class->set_sql(create_child => q{ CREATE TABLE IF NOT EXISTS __TABLE___%s LIKE __TABLE__ }); } sub child : Plugged { my ($c
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Class::DBI でもっと透過的に擬似的カラムを扱う : にぽたん研究所
以前 Class::DBI で疑似的カラムを扱うというタイトルで、Class::DBI::Plugin::PseudoColumns という CPAN モジュールを紹介したことがありました。 で、そのエントリを見てみるとこんなトラックバックをいただきました。 浅倉卓司＠blog風味？ - Class::DBI::Plugin::PseudoColumnsって便利じゃん、と思ったけれど、「Class::DBI で疑似的カラムを扱う」を読んで「こりゃ便利」と思ったけど、でも、最近はPerlとPHPの混用が多いので使えないのですよね……。 というわけで、シリアライザを指定できるとうれしいかも。 PHP::Serializationを使ってPHP側に合わせてあげるのがPerlクオリティだと思うし。場合によってはJSONで突っ込むのもありかもしれないので。確かにシリアライザは指定出来たほうがいいです
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Class::DBI::SweetでのJOIN : blog.nomadscafe.jp
Class::DBI::SweetでのJOIN Class::DBI::Sweetのjoinをつかった検索を試してみた。 ソースコードは作っているアプリケーションからの抜きだしなので足りないところがあるかも。 EntryとそのTagを想定して、 package Entries; __PACKAGE__->table('entries'); __PACKAGE__->columns(All=>qw/id title text created_on/); __PACKAGE__->has_many("tags"=>'Tags'); 1; package Tags; __PACKAGE__->table('tags'); __PACKAGE__->columns(All=>qw/id entry_id tag/); __PACKAGE__->has_a('entry_id'=>'Entries'
Class::DBIでComunをData::SerializerでSerializeして保存。 : blog.nomadscafe.jp
Class::DBIでComunをData::SerializerでSerializeして保存。 Class::DBIでobejctやreferenceを保存の続き。 どんぞこ日記さんのところで紹介されてるData::Serializerを採用した。ソースは追記に貼付けてます。 Data::Serializerを使ったので、Serializeに使うモジュールをいくつか選択できて、暗号化、圧縮、エンコード等ができるようになります。暗号化は便利かも。 使い方は前回と同じだけど、Data::Serializerのconfig用のserialize_configメソッドがついて package Foo; use base 'Class::DBI'; use Class::DBI::Plugin::SerializeColumn; __PACKAGE__->columns(All => qw/id
「Class::DBI で疑似的カラム」をちょっと機能強化と、Class::DBIにStorable::freezeなデータ : blog.nomadscafe.jp
「Class::DBI で疑似的カラム」をちょっと機能強化と、Class::DBIにStorable::freezeなデータ nipotanさんの「Class::DBI で疑似的カラムを扱う」で(自演)紹介されてるClass::DBI::Plugin::PseudoColumnsなんですが、ObjectやHASHをStorableでSerializeしてデータベースに突っ込む方法を便利にできるプラグインとしてちょっと気になった。 ただ、２つほど弱点があって create/insert時に使えない SerializeがData::Dumperオンリー このあたりが解決されると使いやすいと思うのでいじってみた。 podを書いてないんだけど、ソース一式はこちら→Class-DBI-Plugin-SerializeColumns-0.01.tar.gz。なかなかうまく動かなくていろいろ変更している
Class::DBI で疑似的カラムを扱う : にぽたん研究所
最近、SQL で WHERE 句に入らず、ORDER BY やら GROUP BY もされず、かつ MAX() だとか MIN() だとかを求められる必要もない、言うなれば「取るに足らない値」とかを、個別のカラムに持たず、そういうのを一気にまとめて text 型のカラムに入れたりすることがあったりする。 例えば、住所録を作ろうなんつって、テーブルを組みたいわけだが、そもそも WHERE 句に入る要素なんて名前ぐらいしかないなぁ…という場合は CREATE table address ( id int unsigned NOT NULL auto_increment, name varchar(255) NOT NULL default '', props text, PRIMARY KEY (id), KEY (name) ); こんなようなテーブルを一個作っておいたりして。 要するに、n
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Client Challenge
Client Challenge
Client Challenge
tokuhirom blog
http://tokuhirom.dnsalias.org/~tokuhirom/tokulog/2176.html
http://www.lost-season.jp/mt/2005/11/2005112322.html
Client Challenge
Class::DBI で最初の一つの行だけ欲しい(2151) - MF::TokuLog