Cache::Swiftyにパッチ - Hatena::Diary::Neko::kak 500 Internal Server Error
というほどでもまったくないのですが、 現在のVersion0.02では ScalarValueしかあつかえんでしたので。 ↓間違ってます [nekokak@kobayashi218]$ diff -u Swifty.pm.org Swifty.pm --- Swifty.pm.org 2007-09-12 15:14:15.000000000 +0900 +++ Swifty.pm 2007-09-13 22:54:26.000000000 +0900 @@ -2,6 +2,7 @@ use strict; use warnings; +use Storable (); require Exporter; @@ -35,7 +36,7 @@ sub get { my ($self, $key) = @_; - swifty_get( + my $val = swifty_get( $sel
Perlbalを使ったUploadプログレス表示 - Hatena::Diary::Neko::kak 500 Internal Server Error
Webでファイルアップロードの仕組みって結構つかわれてますが、 大きなファイルをアップロードしている時、プログレスバーとかを 表示したかったりしますが、Perlbalでは簡単にできました。 Perlbalの設定ファイルには↓見たいに設定 肝は CREATE SERVICE uptrack と SET upload_status_listeners = 127.0.0.1:7002, 10.54.0.1:7001 あとは普通のPerlbalの設定と同様 CREATE POOL nekokak_pool POOL nekokak_pool ADD 192.168.200.100:8000 CREATE SERVICE uptrack SET role = upload_tracker SET listen = 127.0.0.1:7002 ENABLE uptrack CREATE SERVI
DBICでAtomicに値をupdateする術 - Hatena::Diary::Neko::kak 500 Internal Server Error
トランザクション使ってください。 以上！！ とかが当然一番な感じだったりするのですが、 MySQLのMyISAMを使ってたりしてトランザクションなんですかそれ状態の場合 まあ困るわけです。 my $user = $self->model('User')->search()->first; my $login_count = $user->login_count; $user->update({ login_count => $login_count+1}); とか書くとそりゃあんたずれるずれる。 ユーザ毎のLoginの回数を数えるだけならそんなにずれないでしょうけど、 がりがりUpdateされるテーブルの場合、ずれるずれる。 ずれまくります。 トランザクションが使えずになんとかアトミックに値を更新したい場合 こういうSQLが思い浮かぶわけですが。 UPDATE user SET login
Net::Wassr - Hatena::Diary::Neko::kak 500 Internal Server Error
ものすごい適当につくってみた。 package Net::Wassr; use strict; use warnings; use LWP::UserAgent; use JSON::Any; use Encode; our $VERSION = '0.01'; sub new { my $class = shift; my %args = @_; $args{apiurl} ||= 'http://api.wassr.jp'; $args{apihost} ||= 'api.wassr.jp:80'; $args{apirealm} ||= 'API Authentication'; $args{user} ||= ''; $args{passwd} ||= ''; $args{source} ||= 'Net::Wassr'; $args{ua} ||= LWP::UserAgent-
DBIx::Class::Stash - Hatena::Diary::Neko::kak 500 Internal Server Error
ってのをつくってみました。 ちょっと微妙な実装だったり、ほかにいい方法あるんかもしれないですが これくらいしか思いつかなかったので。 利用方法としてはたとえば userテーブルにレコードを作成するときに リレーションのあるプロフィールテーブルにもレコードを「絶対に」一緒に作るぜ！ ってな場合、こんな風にかいてもいいのですが、 my $user = $self->model('User')->create({ name => 'nekokak' }); $user->create_related('profile',{ zip1 => $zip1 }); みたいな感じでかいてもいいのですが、 別でUserテーブルにInsertをかける場合が発生したらこのプロフィールテーブルに レコードをつっこむことをわすれてしまうことがあるかと思います。 なのでDBICでinsert時にHookしてみました
S::P::DebugMessageでDBICのクエリログをみる - Hatena::Diary::Neko::kak 500 Internal Server Error
このGW期間中空前のBradブームのなか皆様いかがお過ごしでしょうか？ http://www.onemogin.com/blog/554-profile-your-catalystdbixclass-app-with-querylog.html このサイトをみててSledgeでもだせばいいやんかと。 http://back-paper.labs.mfac.jp/show?paper_rid=rxSlzg3clR こんな感じのパッチ。 こんな感じの画面になります。 スロークエリーログでまくりなサイトをメンテナンスしているところは必須です。 ちゃんとチェックすべし。 WiiでRimo見たい！ http://rimo.tv/#/channel?url=http://pulpsite.net/rimochanmaker/channel?ids=8OSbuSBiyHU,B_-uN_7reyI,ixy
DBICコネタ - Hatena::Diary::Neko::kak 500 Internal Server Error
find_or_createをよく使ってる人は find_or_newを使うようにしたほうがいいお。 たとえば、 my $member = $self->model('Member')->find_or_create( { name => 'nekokak' } )->update( { moge => 'kekekek' } ); とかすると、 searchしてinsertしてupdateとクエリが実行されるけど、 find_or_newを使えば、 my $member = $self->model('Member')->find_or_new( { name => 'nekokak' } )->insert( { moge => 'kekekek' } ); searchしてinsertだけで完結。 と、いうのを社内の人に教えてあげる予定。 最近、一眼レフのカメラがほしくなってきたある
YAPC::Asia2007発表資料 - Hatena::Diary::Neko::kak 500 Internal Server Error
終わりました。 関係者の皆様お疲れ様でした。 私の発表資料は以下URLよりどうぞ。 http://code.mfac.jp/ppt/nekokak/2007/04/ 感想は後ほど。
File::DirWalk - Hatena::Diary::Neko::kak 500 Internal Server Error
http://back-paper.labs.mfac.jp/show?paper_rid=OEF9g0a6g8 これをみて、globとか久々にみたのですが、 指定ディレクトリ以下のファイルを操作する場合はFile::DirWalkがお勧めです。 #! /usr/bin/perl use strict; use warnings; use File::DirWalk; use Path::Class qw/file/; my $dir = shift or die "usage : $0 <dir>\n"; my $dw = File::DirWalk->new; $dw->onFile(sub { my ($name) = @_; my $file = file($name); my $fh = $file->openr(); while (<$fh>) { print "$_"; }
Cache::Memcached::Admin - Hatena::Diary::Neko::kak 500 Internal Server Error
Adminってもんでもないけど、 いちいちtelnetで話すのも面倒だしみたいな。 すげーてきとう。 package Cache::Memcached::Admin; use strict; use warnings; use base qw/Class::Accessor::Fast/; use Term::ReadLine; use File::HomeDir; use Path::Class; use List::MoreUtils qw/uniq/; use Cache::Memcached; sub run { my $self = shift; my $term = Term::ReadLine->new('Cache::Memcached::Admin'); my $HISTFILE = file( File::HomeDir->my_home, '/.memcached_a
DBICでMySQLのロック - Hatena::Diary::Neko::kak 500 Internal Server Error
http://d.hatena.ne.jp/tokuhirom/20070126/1169812586 なんとなくDBICのにしてみた。 package DBIx::Class::Lock::MySQL; use strict; use warnings; use base 'DBIx::Class'; use Carp::Clan qw/^DBIx::Class/; sub get_lock { my ($self, $lock_id, $timeout) = @_; $self->{__MYSQL__LOCK__ID} = $lock_id; my $dbh = $self->storage->dbh; my $sth = $dbh->prepare('SELECT GET_LOCK(?,?)'); $sth->execute($self->{__MYSQL__LOCK__ID}, $
search_literal - Hatena::Diary::Neko::kak 500 Internal Server Error
MySQLの関数を検索条件にぶち込んでほげほげしたい場合 $rs->search({'me.created_on' => {'>'=> \"NOW() - INTERVAL $span DAY"}); とか書くと、$spanがSQLインジェクションになりかねないの。 そういう場合はsearch_literal使うよろし。 $rs->search_literal('me.created_on >= NOW() - INTERVAL ? DAY', $span); こんなSQLで安全無敵 Executing : SELECT me.id, me.rid, me.name, me.created_on, me.timestamp FROM member me WHERE ( me.created_on >= NOW() - INTERVAL ? DAY ) : '1' まあINTERVAL使わな
#dbix-class - Hatena::Diary::Neko::kak 500 Internal Server Error
IRCの#dbix-classでは DBIx::ClassのモジュールがCPANにアップされると IRCボットがお知らせしてくれるようになってます。 で、先ほどDBIx::Class::FromSledgeをアップして、そのお知らせがIRCでながれたら、、、 17:15 (GumbyNET2) CPAN Upload: DBIx-Class-FromSledge-0.01 by NEKOKAK 17:30 (castaway) fromsledge?とかいわれたのでSledgeってWebApplicationFrameworkだお！ って教えてあげたら、 17:39 (castaway) ah, righty 17:39 (castaway) never heard of it ;) 17:42 (castaway) hmm, why does Sledge::Response say s
DBIC::Schema::Loaderを久々に使ってみる - Hatena::Diary::Neko::kak 500 Internal Server Error
普段からLoader使っている人には目新しい話題はない予定。 思い出すことから始めてるので。 load_from_connectionがdeprecatedになってた。 バージョン0.04000では削除されるらしいので使わないようにすべし。 ってことで、 package TestDBIC::SchemaL; use strict; use warnings; use base 'DBIx::Class::Schema::Loader'; __PACKAGE__->load_from_connection( dsn => 'dbi:mysql:test_dbic', user => 'test', password => 'testtest', relationships => 0, debug => 1, ); 1; こうではなく、 package TestDBIC::SchemaL; u
DBICでの簡単キャッシング - Hatena::Diary::Neko::kak 500 Internal Server Error
DBICで簡単にお金が借りることができます（ちが まあ、面白くないのでやめておきますが、DBICは かなりパフォーマンスに気を使った設計なのは周知の事実なのでつが、 キャッシュを使うことでよりパフォーマンス向上が図れます。 例えば my $itr = $self->model('Member')->search({},{}); while (my $member = $itr->next) { warn $member->id; } $itr->reset; while (my $member = $itr->next) { warn $member->id; } こんな感じの処理があったとします。 Memberテーブルを二度処理するみたいな。 ちなみに同じオブジェクトを使う時は $itr->reset; こうしてやればイテレータがリセットされます。 この場合、２個のwhileのところでそ
Sledge-Plugin-JSON - Hatena::Diary::Neko::kak 500 Internal Server Error
CPANに今あげました。 モチベーション下がり気味で放置してましたが、 PODのバグを直したりをちょうど今やってて勢いでえいやとアップしました。 そのうちインデックスされるんでないでしょうか。 cpan-upload使ってあげてるのですが、便利。 PAUSEにファイルアップするのにWEBからのアップはめんどっちーので。 Wiiはずれた＞＜ （追記） DBIx-Class-StorageReadOnlyも今上げてる。 今日は上げ祭りだ。 わしょーい。
DBIx::Class::StorageReadOnly - Hatena::Diary::Neko::kak 500 Internal Server Error
とかいうのをでっち上げてみた。 スレーブにinsertとかupdateとかかけて死ねるのはイヤンなので。 まあ、開発環境のDBもちゃんと設定しておけば こんなの使わなくても気づくのですが、保険です。 package DBIx::Class::StorageReadOnly; use strict; use warnings; use base 'DBIx::Class'; use Carp::Clan qw/^DBIx::Class/; sub insert { my $self = shift; if ($self->result_source->schema->{__READ_ONLY_CONNECTION}) { croak("This connection is read only. Can't insert."); } $self->next::method(@_); } sub
DBICでのアップデート - Hatena::Diary::Neko::kak 500 Internal Server Error
まあ、普通。こんな感じかと。 my $member = $self->model('Member')->search({email => 'nekokak@hogehoge.hoge'})->first; $member->update({name => 'nekokak'}); 実行されるSQL Executing : SELECT me.name, me.rid, me.id FROM member me WHERE ( email = ? ) ORDER BY me.id DESC : 'nekokak@hogehoge.hoge' -->Query Time: 0.001723. -->ALL Query Time: 0.001723 - Executing : UPDATE member SET name = ? WHERE ( id = ? ) : 'nekokak', '7'
スカラりふぁれる - Hatena::Diary::Neko::kak 500 Internal Server Error
格言「困ったら、Scalarりふぁれる」。 です。はい。 本日もDBICネタですが、DBICのRで困ったらスカラーリファレンスです。はい。 $self->model('User')->search( { 'me.created_on' => \'IS NULL', } )->first; created_onはDATETIME型とします。 こんな感じで実行すると、 SELECT me.created_on, me.rid, me.id FROM user me WHERE ( me.created_on IS NULL ) こんなSQLが実行されます。 さらに、 $self->model('User')->search( { 'me.created_on' => \' > NOW()', } )->first; こんな感じで実行すると SELECT me.created_on, me.ri
resultset_attributes - Hatena::Diary::Neko::kak 500 Internal Server Error
DBICのresultset_attributesを使うとデフォルトの検索条件とか ソート条件を指定できます。 package Your::Schema::User; use strict; use warnings; use base 'DBIx::Class'; __PACKAGE__->table('user'); __PACKAGE__->resultset_attributes({ order_by => 'id DESC'}); ... 1; こんな感じでresultset_attributesを指定しておいてやると デフォルトでid DESCになってくれる。 例えば $self->model('User')->search( { name => 'nekokak' } )->first;こんなのを実行すると SELECT me.* FROM user me WHERE nam
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
