素数をかぞえておちつくんだ。。 - tokuhirom's blog
tora 言語の話題、あんまかいてないですが現在全部かきなおしてます。 ちょっとずつすすんでいて、YAPC の日に最新版をだそうとおもっています。 書きなおしたので言語仕様がだいぶかわってて、いろいろいじってたらいつのまにかセミコロンなしでもうごくようになっておりました。$ なしでもうごくようになって、わりと普通の言語っぽくなってた。 華麗に素数をかぞえておちつくこともできます。 LOOP: for 2..100 -> $i { for 2..$i-1 -> $j { if ($i%$j == 0) { next LOOP } } say(i) }
escodegen + esprima で JS のデバッグをしたら捗りそう - tokuhirom's blog
以下のようなコードを実行すると console.log([ [1,1,8] [2,1,16] ]);このような結果になる。 [ undefined ]アレレーってなってたんだけど kazuho さんにきいたところ、 [1,1,8][2,1,16] => ([1,1,8])[(2,1,16)] => ([1,1,8])[16] => undefinedってことでした。 こんな時、Perl Monger ならとりあえず B::Deparse することによって解決の糸口をさがすんだけど、そういうの EcmaScript でどうすんすかね、ってなことを kazuho さんにきいたところ、esprima っていう es のパーサーがあるよって教えてもらったので、AST はとりだせたんだけど、AST をみても埒があかないので、AST からソースにおとす君がないかなーとさがしたところ const なんと
Pretty object diff generator for Perl5 - tokuhirom's blog
I wrote a new CPAN module named Data::Difflet. It's inspired from difflet Data::Difflet makes colorful diff like difflet. This is a example implementation using Data::Difflet. use strict; use warnings; use Test::More; use Test::Difflet qw/is_deeply/; is_deeply( { "foo" => [ 1, 2, 3 ] }, { "foo" => [ 4, 2, 3 ] } ); done_testing; This is a result of test output. So, this module is highly useful for
URL の自動リンクをする autolink.js ってのつくった。 - tokuhirom's blog
なんかまともにうごくフリーのやつみあたらなかったというか、そういう感じだったので、つくっといた。 https://github.com/tokuhirom/autolink.js/ 動作としては以下のようなかんじになります。まあコピペしてつかうなりなんなりご自由にどうぞ。MIT ライセンスってかいてあるけど public domain 扱いでいいので。 #!/usr/bin/env node var assert = require('assert'); var al = require('../lib/autolink.js'); assert.equal(al.autolink("http://google.com/"), "<a href='http://google.com/'>http://google.com/</a>"); assert.equal(al.autolink("
Amon2 をつかったウェブアプリケーションを GUI アプリにはやがわりさせる!! - tokuhirom's blog
GUI アプリをつくりたいけど、どうもめんどくさくて、ウェブアプリケーションですませてしまうウェブエンジニアは多いとききます。 とはいえブラウザでいちいちひらくのも面倒だし、daemontools つかうのもちと面倒。。というわけで、GUI アプリケーションにしてしまいましょう。 以下のような、キモい猫が回転する PSGI アプリがあったとします。これを GUI アプリケーションにはやがわりさせるにはどうしたらいいでしょうか。 use strict; use warnings; use utf8; use Amon2::Lite; get '/' => sub { my $c = shift; return $c->render('index.tt'); }; # code was taken from: http://jsdo.it/moriyoshi/syTt __PACKAGE__-
Amon2 が WebSocket に対応していた!! - tokuhirom's blog
Amon2::Plugin::Web::WebSocket というプラグインをだしました。 Amon2 の中で非常に簡単に web socket がつかえます。 なんかよくわからん作法とかおぼえなくてもいいので楽すぎる。。 実装例は以下のとおりです。Twiggy でしかうごきません。 use strict; use warnings; use utf8; use Amon2::Lite; use Digest::MD5 (); get '/' => sub { my $c = shift; return $c->render('index.tt'); }; my $clients = {}; any '/echo2' => sub { my ($c) = @_; my $id = Digest::SHA1::sha1_hex(rand() . $$ . {} . time); $c->we
O/R Mapper におけるページャーの実装について - tokuhirom's blog
欠点$rs->pager(); のように、クエリをうっているっぽくないのに裏でうってるので、重い処理なのにおもそうにみえなくてさがすのが面倒。お気軽につかえすぎて危険。 HAVING などをつかうクエリの場合、そもそもただしい値がとれてないのに、なんとなくうごいてしまう。まちがった値をかえす API を標準でつけるのはいかがなものか。 得に HAVING などの処理がうまくできないのは自明なので、こういう実装は僕は好きではないです。 → Teng にはついてない。
llvm で Hello wolrd!! 〜llvm入門 その2〜 - tokuhirom's blog
http://www.ibm.com/developerworks/jp/opensource/library/os-createcompilerllvm1/ 最初なのでとりあえず↑の記事を基本なぞってますが、わかりやすく解説をいれています。 llvm であそぶには、まあいろいろな方法がありますが、わかりやすく大きくわけると以下の4ステップです。 llvm IR の動的生成llvm IRの最適化llvm IRの JIT コンパイルllvm IRのネイティブコードへの変換それぞれのフェーズごとに分離して動作させることができるので、創りたいところだけつくればいいのです。 とりあえず基本となる llvm IR の動的生成をおこなってみます。 とりあえずなにもしない main 関数をつくりましょう。 #include "llvm/LLVMContext.h" #include "llvm/Modu
llvmの基本となるツールたち 〜llvm 入門 その1〜 - tokuhirom's blog
3つのツールをためすhelloworld.c はこちら。 #include <stdio.h> int main( ) { printf("Hello World!\n"); }llvmアセンブリを生成! $ llvm-gcc -S -emit-llvm helloworld.c helloworld.s ができてた。 ; ModuleID = 'helloworld.c' target datalayout = "e-p:64:64:64-i1:8:8-i8:8:8-i16:16:16-i32:32:32-i64:64:64-f32:32:32-f64:64:64-v64:64:64-v128:128:128-a0:0:64-s0:64:64-f80:128:128-n8:16:32:64" target triple = "x86_64-apple-darwin11.4" @.str
Twitter からの取り込み機能のテスト - tokuhirom's blog
はてなブログに twitter の発言をとりこむ機能がついたのだが、これはなかなか便利だ。 ためしに最近の fav のなかからいくつかのっけてみる。 学生時代、友人が休んでてたまたま一人で電車のってたら、女子高生がこっちみながらもじもじヒソヒソしてるんでｗｋｔｋして盗み聞きしたら、「なんでｘｘｘさん(友人の名前)おらへんの？朝からついてないわ。残念」みたいな会話だったことはある。 — Yosuke HASEGAWA (@hasegawayosuke) July 24, 2012 今まででの彼女からもらった酷い誕生日プレゼント: 育毛剤 ¥1980、鼻毛カッター ¥980、別れの言葉 Priceless — hidek (@hidek) July 20, 2012 「かけうどん」と「ぶっかけうどん」の違いを知りたくて「ぶっかけ」でググったらひどいことになった — すぎゃーん (@sugyan
micro-location.js がいかす - tokuhirom's blog
https://github.com/cho45/micro-location.js URL のクエリをいいかんじに書きかえる処理を JS でするためにいいかんじのライブラリをさがしていたのだが、URI.js はなんか大仰なかんじなので micro-location.js をつかってみた。 jQuery#extend と組みあわせることで、目的の処理は達成された模様。 l = Location.parse("http://example.com/?foo=bar&baz=boz"); # → Location l = l.params($.extend(l.params(), {lat: 4, foo: "hoge"})) # → Location l.href # → "http://example.com/?foo=hoge&baz=boz&lat=4"
cmake と scons と waf と gyp の話 - tokuhirom's blog
@repeatedly さんが scons はオワコンだとさかんにいってる今日この頃ですが、まあぼくはそこまでだとはおもっていません。開発 ML はそれなりに流量がありますし、http://two.pairlist.net/pipermail/scons-dev/ bitbucket のレポジトリにもそれなりにコミットされています https://bitbucket.org/scons/scons。 とはいえ、scons には致命的な問題があって、それはとてつもなく遅いということです。 小規模な C 言語ならあまり気にならないのですが、C++ で開発している場合、非常におそくてやってられません。ヘッダの依存解析が非常に遅いのかなー、とか考えてしまいますね。 実際、おなじコードを cmake と scons でコンパイルすると cmake の方が倍ぐらいはやいです。 tokuhirom@ww
MySQL binlog API は row based mode でこそ、その真価を発揮する!! - tokuhirom's blog
空前の MySQL binlog API ブームですが、みなさん libreplication の examples/basic-[12] を実行するだけで満足してしまっているようです。しかし、libreplication のおもしろいのは examples/mysql2lucene の方なんです。 3つのロギングモード普段はあまり意識しないかもしれないですが mysql の binlog には statement based, row based, mixed の3種類があります。 statement based は、実際に実行された SQL が記録されます。一部の関数でちょっと危険です。 row based では、実際に変更された行のデータが記録されます。 mixed では、危険な関数をつかった場合などには row based で記録し、そうでなければ statement based
なにかこまったことが解決したときにブログには書く習慣をつけよう - tokuhirom's blog
そうすると、次におなじことではまったときにググってみつけることができる。 あと、次におなじことではまったときに「前にブログで tokuhirom ってひとが書いてたよ」と指摘されるという恥ずかしい体験ができます。
TheSchwartz のような RDBMS をつかったジョブキューをリアルタイムに処理するアイディア - tokuhirom's blog
TheSchwartz のような RDBMS をつかった job queue は、新規に daemon をたてたりする必要がないので楽でいいのですが、一方で job の追加の timing が storage から push でおくられてこないので、若干の delay が生じてしまうのが難点でした。 この問題を解決するために、mysql の binlog API を用いて、処理してみるハックを考えてみました。 binlog API を利用すると更新クエリを streaming で処理できるので、こういったハックも簡単にできちゃいます。おもしろい。 use 5.016000; use MySQL::BinLog; use TheSchwartz; my $sch = TheSchwartz->new(...) or die; $sch->can_do($_) for ...; $sch->w
mysql の binlog api を利用するための Perl Binding を作りました - tokuhirom's blog
mysql の binlog api をあつかうためのライブラリである libreplication というものがあるのですが、これの perl binding を開発しました。 https://github.com/tokuhirom/MySQL-BinLog とりあえず、examples/basic-2.cpp でやっていることができるところまでつくっておきました。 バイナリログの内容を streaming で処理できるのがおもしろいです。 以下のような用途での応用が考えられるようです。夢がひろがりんぐですね。 libreplication のセットアップ方法については riywo さんの記事をごらんください。 http://blog.riywo.com/2012/07/08/133005 はまりポイントは、streaming 開始時に ROTATE_EVENT が発生して、最新のログ
(How to Write a (Lisp) Interpreter (in Perl)) - tokuhirom's blog
lisp インタープリタを Perl でかいた。前から lis.pl をつかってみたかったのでちょうどよかった。 元ネタはこちら 日本語: http://www.aoky.net/articles/peter_norvig/lispy.htm 英語: http://norvig.com/lispy.html perl の強力な機能をつかいこなすことで非常に簡単に lisp を実装できる。汎用性をたかめるためにちょいちょい細工してるので python のやつより長いけどね。本質的にはあんま量かわらないです。 Parse は非常に手抜きなのはソースをみればわかるとおりです。元のやつがそうだからですが。 全ソースはこちら。 use strict; use warnings; use utf8; use 5.16.0; use autodie; package Lispl::Env { use L
設定ファイルは relaxed JSON でいいんじゃないかとおもった話 - tokuhirom's blog
JSON.pm の relaxed モードについてPerl5 の JSON.pm/JSON::XS では relaxed JSON というものがサポートされている。これは JSON 仕様をゆるくしたもので、 shell style のコメント(# 以後がコメントとなる)のサポートと、ケツコンマのサポートが含まれている。 JSON が設定ファイルとしてつかいづらいといわれる所以はたいがいコメントがつかえないことなので、まあこれなら許容範囲かな、と。mobirc の設定ファイルもこれにしてみました。 JSON の場合は、JS がわかる人なら手でかけるのと、まあわからなくても覚えることがすくないし、覚えても損がない感じがイカス!とおもいました。
MVCは死んだ!!!!!1111 時代は TCTO だ!! - tokuhirom's blog
モデルとかビューとかウェブアプリケーションの文脈では不適切な抽象化なので T(テンプレートエンジン) C(コントローラ) Ｔ(手続き) O(O/R Mapper) とよぶといいです。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
ホットサンドっておいしいよね - tokuhirom's blog