2007年02月08日15:00 カテゴリ書評/画評/品評iTech Amazonに学ぶ泥縄メソッド Amazonが今年初めに 紹介料プランを変更したのは周知の事実だが、周知でなかったのは、このプラン変更のアナウンスの時点では、その時点ではシステム変更が完了していなかったことだ。 Amazonアソシエイトの方々はご存じのとおり、2月に入ってから紹介料の統計の表示が何度もおかしくなっていた。紹介料率が「なし」になっていたり、紹介料率の計算が四半期ベースのままだったり。このあたりの表示が「期待どおり」になったのは、本日深夜だった。 しかし、このことは大きな事件とも事故とも捉えられていなかった。「しかるべき時期、すなわち紹介料を決算する頃には間に合うだろう」と構えている人が多かったのだろう。実は私もその一人だ。そして一時的な不具合が出たものの、実際にそのとおりとなった。 この「Amazon泥縄メ

はじめて、トヨタ工場を見学しました。目的は、TPS（TOYOTA Production System)が機能している様子を見ることです。ちょうど来日していた Mary と Tom Poppendieck 夫妻（リーンソフトウェア開発の著者）と同行し、その他の方々と一緒に回りました。写真は、ツアー出発のトヨタ会館です。ここから、バスに乗って元町工場を見学に行きます。組み立てラインと溶接ラインを見せて頂きました。（写真撮影はできませんでしたので、映像をお見せできないのが残念です） いくつか気づいたことを… ８種のモデルを混合して同じラインに流しています。なので、流れてくる車種はばらばら。多品種少量生産です。 手持ちの在庫が本当に少ないです。例えば、ドアの取り付け工程では、５つくらいの手持ち在庫しかありません。ライン上を車がゆっくり流れてきます。別々の車種が次々に到着しますが、その車種がラインに

2007年02月08日03:00 カテゴリLightweight Languages perl - PerlIO vs. <> これ、Perl 5 Porterとしてちょっと申し訳ないケース。 [を] Perl 標準入力と utf8 しかし、 test.pl < utf8.txt は行けるが、 test.pl utf8.txt はだめ。ここで問題になっているのは、<>でファイルを指定した場合も標準入力の場合のどちらの場合もPerlIO Layerを指定する方法。 先に答を書いてしまうと、 use open ':utf8'; binmode STDIN, ':utf8'; binmode STDOUT, ':utf8'; ということになる。 odz buffer - それ use open とりあえず use open IN => ':utf8'; とするほうが、スマートといえばスマートか？

ドットインストール代表のライフハックブログ

こんなの思いつきました function F(obj){ var f = function(p,o){ if(o == void(0)) return arguments.callee[p]; return arguments.callee[p] = o; } if(obj != void(0)) for(var n in obj) f[n] = obj[n]; return f; } これを使うと var object = new F(); object.hoge = 1; object['fuga'] = 2; object('piyo', 3); alert(object('hoge')); // 1 alert(object.fuga); // 2 alert(object['piyo']); // 3 このように関数の引数という形でプロパティにアクセスできるようになる 何が便利な

Warning! 2008/5/22追記：このエントリは情報が不十分だったり間違いが含まれてたりするので、下記URLのページを参考にするようにしてください↓ http://piro.sakura.ne.jp/latest/blosxom/mozilla/xul/2007-09-13_selector-to-xpath.htm CSS3あたりをXPath1.0あたりに変換する表 CSSXPath .class//*[@class="class"]*1 .class//*[contains(concat(" ",@class," ")," class ")]*2 tag//tag #id//*[@id="id"] tag.class#id//tag[@class="class"][@id="id"] .class.class2//*[contains(concat(" ",@class," "

2007年02月09日01:30 カテゴリ書評/画評/品評 書評 - 堕ろすとき... 酒井あゆみは、痛い。 降ろすとき... 酒井あゆみ 「 売春論」を読んでから酒井あゆみという書き手が気になっていたこともあって、「セックスエリート -- 年収1億円、伝説の風俗嬢をさがして」の文庫化を機会に、とりあえず文庫化されたものを揃えてみた。どれも痛いのだが、その代表として本書を取り上げる事にする。 痛いというのは、「痛いヒト」という比喩的な意味でもあるし、文字通り「痛覚を刺激される」という意味でもある。彼女の作品のほとんどは風俗嬢やホストといった、風俗産業の最前線に立つ人々の取材録なのだけど、そのスタンスは同じ取材録でも「AV女優」の永沢光雄など、ライターという「外」の立場の取材とは正反対である。彼女は、自分の痛みと向き合うために、かつての自分の職域を取材している。すなわち自問である。 いや、「

ドットインストール代表のライフハックブログ

Loaderを使うと各スキーマは定義しなくてもLoaderが自動にやってくれるのですが、 スキーマをちょーっと拡張したい時とかは軽く工夫します。 例えば、 +------------+------------------+------+-----+---------------------+----------------+ | Field | Type | Null | Key | Default | Extra | +------------+------------------+------+-----+---------------------+----------------+ | id | int(10) unsigned | | PRI | NULL | auto_increment | | rid | varchar(10) | | UNI | | | | name_sei

PerlIO::gzip を使うと、 open my $fh, '<:gzip', $filename or die; で、gzip 圧縮されたファイルを直接扱える。これと open my $fh, '<:encoding(utf-8)', $filename or die; なエンコーディング指定を同時に指定するにはどうすれば良いかと聞かれたんだけども、そんなことをしたくなったことがなかった知らねー。 てことで、ちょっと試してみると。 open my $fh, '<:gzip:encoding(utf-8)', $filename or die; な感じでいいっぽい。:gzipと:encoding(utf-8)の間にはスペースが入っても良いみたいだけど。 で、ついでにPerlIO::viaを使えば PerlIO Layer に直接フィルタモジュールを挟みこめるということを、初めて知った。

もうボクにはきしめんとしか聞こえなくなくなってしまった。 でも、もっとおおくのひとにしってもらえれば　それでいいとおもってた。 もう、「Kissで」「抱き締め」のこと　わすれてください。。。ozzeeeer Nursery Rhyme (きしめん） 本家消滅　二家消滅 　第三ヶあり 　分家数10 戯画（きしめん） 本家1 二家1 　第三ヶ ? 　分家数2 某フフトウェアと同じくDLキューにりくがいっぱいくると増える仕組みか(ぉ 戯画の方はそんなにいったないのにナーサリちょおまwww しかしUIとしてこれはすごいかんがえられとるな。 URL投げるだけだからUPはしてないという事になるし 動画ｻｲﾄの方はUP自体は中華やカナダ人やアメ公がアップするという仕組みか ややこしいところにさらにややこしい事になって法律家がさじ投げそうで怖いなwww あー　すでに法律出来る前に取り締まって、軽罪の幇助で

とかいうのがDBICのCoreに入りました。 使い方は簡単？で use DBIx::Class::ResultClass::HashRefInflator; my $rs = $self->model('Blog'); $rs->result_class('DBIx::Class::ResultClass::HashRefInflator'); my $member = $rs->single({rid => 'HXOK7cI4DA'}); warn Dumper $member; こんな感じでresult_classに設定してやると 結果として $VAR1 = { 'timestamp' => '2007-01-18 17:03:06', 'member_id' => '15', 'created_on' => '2007-01-18 17:03:06', 'id' => '34', '

この記事は、2007 年 1 月 27 日に書いた while (defined($line = )) と while ($line = ) の関連記事です。 入力演算子を使って行を読む場合には、こうではなく: while ($line = <FILE>) { # do something }こう書かなきゃならないものだと思っていた: while (defined($line = <FILE>)) { # do something } なぜかというと、読み込んでくるファイルの一番最後の行に、改行文字で終わっていない "0" という一文字が含まれている可能性があって、それを取りこぼしたくないから。 Perl では、"" と "0" と 0 (それぞれ、空文字、文字列のゼロ、数値のゼロ) は、ブール値コンテキストで「偽」とみなされてしまうので、最後の最後に改行文字のついていない "0" (文字

ウィンドウズ・ビスタの音声認識を使って、Perlスクリプトを書いて保存するまでの実演。 まあ、自然文を書くことを想定して設計されている音声認識だから、それでプログラムを書こうというところに無茶はあるんだけれど。 それにし […] ウィンドウズ・ビスタの音声認識を使って、Perlスクリプトを書いて保存するまでの実演。 まあ、自然文を書くことを想定して設計されている音声認識だから、それでプログラムを書こうというところに無茶はあるんだけれど。 それにしてもこの奮闘っぷりが面白い。途中でPCを壊すんじゃないかとハラハラしたよ。 [関連] Vistaの音声認識セキュリティホールに思う