Drkcore

08102008 perl

setuidされたCGIを実行するためのperl

ごくたまにこんなことやりたかったりすることありますよね。

use File::Tail;

sub get_ip{
  my $line = File::Tail->new(name => "/var/log/httpd/access_log", tail => 1)->read();
  my ($ip) = split / /, $line;
  return $ip;
}

print "Content-Type: text/plain\n\n", get_ip();

rootじゃないとアクセスできないのでsetuidする必要がありますが、それだけだとエラー吐いてうごかないので、fedora8もそれ用のperlが必要。

yum install perl-suidperl

スクリプトも

#!/usr/bin/suidperl

ではじめる必要がある。

参考 - Perl でsetuid されたCGIの実行

07102008 music processing

Music is Math

これかっこいいですの。

Music Is Math from Glenn Marshall on Vimeo.

07102008 電子工作 Gainer processing

Gainerでピンポン玉ディフューザー

とりあえずprocessingでいじる。マウスの位置に応じて色が変化するように。

コードは単純なので色もあんまり出なかった。

import processing.gainer.*;

Gainer gainer;
void setup(){
  gainer = new Gainer(this);
}

void draw(){
  background(0);
}

void mouseMoved(){

  float rx = (float)mouseX / width;
  float ry = (float)mouseY / height;
  int v0 = int(255*ry);
  int v1 = int(255*rx);

  gainer.analogOutput(0, v0);
  gainer.analogOutput(1, max(v1-v0,0));
  gainer.analogOutput(3, max(v0-v1,0));
}

参考

07102008 work life

ウェブ時代 5つの定理

素敵な言葉集

ウェブ時代 5つの定理この言葉が未来を切り開く!
梅田望夫
文藝春秋 / ￥ 1,365 ()
通常24時間以内に発送

大学や研究所はハッカーに科学者たることを強要するが企業はハッカーにエンジニアたれと強要する - ポール・グラハム

ハッカーと画家コンピュータ時代の創造者たち
ポールグレアム
オーム社 / ￥ 2,520 ()
通常24時間以内に発送

製薬業もある種アートな部分が大きいのになぁといつも思うので、技術も含めて評価してくれる会社に魅力を感じますのう。

06102008 work

帰りの新幹線で

丁度通勤時間帯の18時くらいに、三人がけの窓際に座っていたのだけど、通路側に座ったおじさんがむやみやたらと書類を広げて困った感じのヒトだった。

で、さらに困ったことに書類を真ん中の席に置くわけ、混むに決まってんのに（それで新横浜までガードしてた）。まぁ、それはいいんだけど、中央の座席に置いてた書類が公開特許公報なのね。知ってる会社の。

さらに、いっぱい広げている書類が、僕もよく読んでいる論文で、しかもSAR表がどかんとでていて、それに蛍光ペンで一生懸命マークしてんの（あーケミストなのねと）。

とこまでわかっちゃうと、東京に新幹線通勤していて（っていう製薬企業の研究所ってあそこらくらいしか、、、）で明らかにケミストで、論文と公開特許公報からああいうプロジェクトにタッチしてんのか

なんて、意外に簡単にわかっちゃうよー、バカだよーこのおっさんと、ちょっとびっくりした。で、そんな僕は一体何をしていたかというと、「ウェブ時代 5つの定理」を熟読中で好きを仕事に！なんてやっていたので、そのミスマッチ具合がまた微笑ましかったのであった。

ウェブ時代 5つの定理この言葉が未来を切り開く!
梅田望夫
文藝春秋 / ￥ 1,365 ()
通常24時間以内に発送

この出来事はちょっとした教訓として残しておく。

新幹線通勤という情報は情報量的にどうか?
- もし新幹線通勤でなくても会社名が推測できたか
- 仮に出張で大阪まで帰る途中の場合は会社が特定されるか?
- 自由席に座るのがよくないのか?
特許公報という情報は?
- 一部抜き出しはどうか
もし有機合成反応という技術的な論文を読んでいたら?
今回ピースをはめることのできたキーは?
- どの情報が欠落してたら、なにがわからなかったか?