楽天ダイナミックアド
楽天ダイナミックアド # http://affiliate.rakuten.co.jp/dynamicad/ Google サンがやってるような、自動で良さげな広告表示するやつ。楽天はどっかから優秀な解析エンジン仕入れたんかな？ と思い、本当に「サイトにあった商品を自動表示！」なのか実験中。。。なのだが、いきなりハルヒとかでてますよ
2007
[ 2007 ]
mixi の履歴が更新されない
mixi の履歴が更新されない # mixi の自分の日記の更新情報がずっととまってるのに気づいた、このサーバが重くて取得できないとか、そういう理由なんだろうな、きっと
梅田までの経路・三たび
梅田までの経路・三たび # 昨年 、梅田までどうやって自転車で行くか、いろんなルートを試していたんだが、八月からチャリ通するかもしれないので、遊び要素を排除し、安全で、自分にとって楽なルートを再度探索。行きと帰りで微妙に変えて。現状、帰りのルートが最適解 ...
フレームワーク
フレームワーク # お昼過ぎ、ふと思い立ってフレームワークを作り始めたので、記録残し CGI::Simple か CGI::Minimal を使って、機能を減らして、もうちっとシンプルな俺仕様 CGI::Application が欲しい。CGI::Application 使ってると、いろんなことを覚えることができないワシはコピペが増えて困る ↓ イチから必要な機能だけ実装した方が楽かも。自分で実装したら覚えること減りそうだし ↓ CGI::Simple よさげだけど、どうせなら CGI::Minimal 使った方が極端で楽しいかも。これで CGI::Application より重くなったら、自分の実装が悪いということで ↓ CGI::Application のマネをするため、コード斜め読み ...
amachang のプロフ画像
amachang のプロフ画像 # 一度も会ったことはないが、自分の中では、なんとなくお洒落さんな若者という印象があったamachang 、今日日記を見たら、 こんなんなっちゃった。カミングアウト？（笑 ...
フレームワーク (2)
フレームワーク (2) # 「HikiDoc を使った WEB アプリケーション 」の時にはしりきれとんぼだったので、今回はちょっと続けてみようかと思う。今のところは 名称は CGI::Minimal::App (仮) ロジックは CGI::Application をほぼそのまま頂く 使い方が変わると、自分自身が使いづらくなるので 細かいあたりは、コーディングを楽しめるように自分流で CGI::Minimal の perldoc に「warnings と vars は重て！」とか書いてあるが、どうするかは作ってから考える CGI::Application::Plugin で、いつも使っているものは最初からいれてしまう
フレームワーク (3) - $obj->query() と $obj->param()
フレームワーク (3) - $obj->query() と $obj->param() # package CGI::Minimal::App; use strict; use warnings; use UNIVERSAL::require; sub query { my $self = shift; my $query = shift; # If query object is not exist, set a new query object. unless ( exists $self->{__QUERY_OBJ} ) { if ( defined $query ) { $self->{__QUERY_OBJ} = $query; } else { my $module = 'CGI::Minimal'; unless ( exists $INC{$module} ) { $module->require or die $!; } $self->{__QUERY_OBJ} = $module->new(); } } return $self->{__QUERY_OBJ}; } sub param : lvalue { my $self = shift; my @data = @_; # First use? Create new __PARAMS! $self->{__PARAMS} = {} unless exists $self->{__PARAMS}; if ( ref($data[0]) eq 'HASH' ) { # param($hash_ref) %{$self->{__PARAMS}} = (%{$self->{__PARAMS}}, %{$data[0]}); } elsif ( scalar(@data) % 2 == 0 ) { # param(@array) %{$self->{__PARAMS}} = (%{$self->{__PARAMS}}, @data); } scalar(@data) == 1 ? $self->{__PARAMS}->{$data[0]} : $self->{__PARAMS}; } C::A::P::Stash 的に param を使いたかった & lvalue 使ってみたかった ...
夏休み突入
夏休み突入 # 子供たち、夏休みに突入。といっても、土曜日なので普段の週末と変わらないと言えば変わらない 朝食後、セミ採り。今年は昨年、一昨年のような異常発生はしてないので、概ね高い位置で鳴いている。それでもなんとか一匹ゲット。セミはそれっきりだが、カラスアゲハゲット。。。と思いきや、図鑑によると、カラスアゲハってほとんどいないのな。今日のはクロアゲハのメスでした ...
自転車コマはずし
自転車コマはずし # 鉄は熱いうちにうたねばならぬ。今日も練習。。。が、すぐに乗れるようになった。カーブもぎこちなくも曲がれてるし、目標達成 ...
フレームワーク (4) - 枠組み完成
フレームワーク (4) - 枠組み完成 # 大枠できた。簡単なコマンドラインアプリは作れるレベル PATH_INFO or QUERY_STRING で実行するメソッド振り分ける部分できた REQUEST_METHOD で実行するメソッド振り分ける部分できた TT 使う部分は未実装だが、構想はまとまった HTTP header をあつかう部分を構想中 CGI::Minimal の全機能使いたいかなぁ。。。と思案中 mod_perl とか fcgi とかについて思案中