Simple zcat(1) in Perl with Compress::Raw::Zlib - Islands in the byte stream (legacy)
Perlのzlibインターフェイスは沢山あってよく分からないが、単純に圧縮/解凍をするだけならCompress::Raw::Zlibがシンプルで良さそうだ。 これでzcat(1)を実装すると以下のようになる。 #!perl -w use strict; use Compress::Raw::Zlib; my $z = Compress::Raw::Zlib::Inflate->new( -WindowBits => WANT_GZIP, ); foreach my $file(@ARGV) { open my $fh, '<', $file or die "Cannot open $file: $!"; while(read $fh, my $buf, 1024) { my $d; my $status = $z->inflate($buf, \$d, 1); ($status == Z_
potatotips #7 at DeNA で Power Assert について発表しました - Islands in the byte stream (legacy)
potatotips #7 at DeNA を開催しました！ 今回も面白い話が多く大変勉強になりました。 さて！私はここ二週間ほど開発していたAndroid Power Assertについて発表しました。 https://speakerdeck.com/gfx/jun-hapower-assertwozhi-tuteiruka-number-potatotips https://github.com/gfx/android-power-assert-plugin まだ出力がイマイチな部分はありますが、とりあえず仕事上の自分のプロジェクトで使い始めました。実際、assertが信頼できるというのはかなり安心感があります。これはもっと使えるように、これからも改善していきたいですね。
JavassistでAndroidメタプログラミングする - Islands in the byte stream (legacy)
三行まとめ JavassistはJavaのクラスファイル（バイトコード）を操作するライブラリ バイトコード注入をJava風の構文で行えるのが特徴 Androidでも、Gradleに仕込みをすることでJavassistを使うことができる 詳細 Gradleはビルドプロセスのカスタマイズがしやすい。たとえば、クラスファイルを生成したあと、dexファイルにコンパイルする前にクラスファイルを編集するということも簡単にできる。これをJavassistでやってみた。 まず、project rootに buldSrc/ をつくり、それをビルドスクリプトのプロジェクトとする。 buildSrc/build.gradleで、buildSrc/ がGradle pluginであることと、javassistを使用することを宣言する。 apply plugin: 'groovy' repositories { &
Android的には、LevelDBはSharedPreferencesの高速な代替として使えそう - Islands in the byte stream (legacy)
参考: LevelDB入門 (基本編) - from scratch AndroidにおけるLevelDB bindingは複数あるようだけど、今回はMaven Centralに上がっていてかつ読み書きAPIがわかりやすい以下のものを使った*1。 https://github.com/googolmo/Leveldb-Android dependencies { compile 'im.amomo.leveldb:leveldb:1.0.+@aar' } KVSなのでSharedPreferencesのように使える。速度はopen/closeにSharedPreferencesよりコストが掛かるものの、読み書きは非常に高速にできるようだ。 サンプルアプリのソースコード： https://github.com/gfx/Android-LevelDBExample 使っているところはこんな感じ
Rubyは標準ライブラリにRuby lexer/parserがあるのがいい - Islands in the byte stream (legacy)
これは特筆すべき特徴だと思う。ヒアドキュメントもちゃんと処理できる。 require "ripper" require "pp" src = <<'END' def foo p [<<-"A", <<-"B"] Hello, %{"Ruby"} world! A one, two three B end END pp Ripper.lex(src) 結果: [[[1, 0], :on_kw, "def"], [[1, 3], :on_sp, " "], [[1, 4], :on_ident, "foo"], [[1, 7], :on_nl, "\n"], [[2, 0], :on_sp, " "], [[2, 2], :on_ident, "p"], [[2, 3], :on_sp, " "], [[2, 4], :on_lbracket, "["], [[2, 5], :on_hered
List<T>よりArrayList<T>のほうが速いって本当？ - Islands in the byte stream
結論：どちらも同じなので意味的に適切だと思う方を使ってよい 発端は以下のツイートだ。 たしかに、公式ドキュメントには以下のように書いてある。 On devices without a JIT, it is true that invoking methods via a variable with an exact type rather than an interface is slightly more efficient. (So, for example, it was cheaper to invoke methods on a HashMap map than a Map map, even though in both cases the map was a HashMap.) It was not the case that this was 2x slower; the
Dart 1.0 を触ってみた。 - Islands in the byte stream (legacy)
Dart 1.0 がリリースされて、ECMAでの標準化作業が始まったようです。 Chromium Blog: Ecma forms TC52 for Dart Standardization DartはJavaScriptと比較してずっと使いやすいので、いずれ標準化されたDartが様々なブラウザで実行できるようになれば*1、JavaScriptに付随する問題の多くが解消され altJS も使われなくなるかもしれませんね。 Dartのメリットとしては、JSのしがらみにとらわれないぶん奇妙なイディオムに支配されることがないことや、それゆえ言語仕様やListやMapなどのコレクション型を含む標準ライブラリが独自に設計されており高機能ということ。デメリットとしては、JSの常識が通じない分学習コストが高いことと実行時のオーバーヘッドが高い*2ことなどでしょうか。 というわけで、以前作ったDartプロ
Perlのbug report echo-systemはどのように素晴らしいのか - Islands in the byte stream
Perlのbug report eco-systemまわりはOSSとしてはわりと理想的だと思っています。つまり有用なレポートを生成する仕組みがあり、perlコア開発者だけでなくライブラリ開発者もその仕組を活用できるため、可搬性のあるソフトウェアとしてメンテナンスし続けやすいのです。もっとこのあたりはもっと真似されるべき。 まずバグレポートには現象と再現手順と環境の情報が必須ですが、環境の情報は perl -V で非常に簡単に取得できます。これは以下の情報を含みます。 ソフトウェアの名前とバージョン (e.g. perl 5.18.1) ターゲットプラットフォーム (e.g. osname=darwin, osvers=12.4.0, archname=darwin-2level) ビルドオプション (e.g. config_args='-Dprefix=/Users/goro-fuji/.
Perl XS を書くようになったきっかけ - Islands in the byte stream (legacy)
THE INTERVIEWS がサービス終了ということで、一つだけ消えるには惜しいというか懐かしい記事があったので少し加筆修正して転載します。JHackers でも似たようなことを話してますね。 Perl XS を書くようになったきっかけ、また、どのようにして今のような XS マジシャンになったのか。そのあたりの事をお聞かせください 2000年頃の話です。ぼくはCGIスクリプトでちょっとしたゲームデータの集計サイトをやりたくてプログラミングを覚えたのでした。これがそこそこ重い処理で、次第にもっと高速にしたいと考えるようになりました。一方、当時ぼくはお金もなくVPSも一般的でなかったので、CGIスクリプトしか選択肢はありません。そこで初心者ながらいろいろ調べることにしました。 とりかかったのは行指向のテキストで保存していたデータをSQLiteにすることでした。しかし当時はWindows上で開
ISUCON3 に参加しました - Islands in the byte stream (legacy)
id:yappo & id:kamipo とチーム「潰すつもりで来てください」を結成してISUCON3に参加してきました。結果は（失格にならなければ）11位で予選は通過できそうです。 YappoLogs: ISUCON3 で暫定で本戦進出らしいです #isucon 好きな子のことかslow query logのことばかり考えてほかのことがおろそかになる性格なおしたい #isucon - かみぽわーる 選んだ言語はPerlで、できあがったコード（アプリ）はこちら*1： https://github.com/kamipo/isucon3 チーム全体としてはkamipoさんとYappoさんが二人三脚でSQLのクエリ改善をして、ぼくがそれ以外で主にアプリコードところを見るという感じで、役割分担がはっきりできていてよかったかなと思います。 ただ個人的にできなかったことがとてもたくさんあるので課題を感
PerlでWebAppの開発に必要なN個のこと - Islands in the byte stream (legacy)
あるプログラミング言語で実際にWebAppを開発できるようになるまで、何が必要だろうか。言語仕様の習得は終えているとしよう。おそらく、最低限以下のような知識が必要だと思われる。とりあえずPerlについて知っていることを書いた。 パッケージマネージャ まずライブラリの管理。モジュールをインストールし、可能であればバージョンを固定し、適切にロードする機能が必要だ。Perlの場合は cpanm というCPANクライアントでライブラリをインストールする。バージョンの固定とライブラリパスの設定は carton で行う。 https://github.com/miyagawa/cpanminus https://github.com/miyagawa/carton アプリケーションサーバ Webサーバへのインターフェイスとしては、PSGIという仕様がある。PSGIに準拠したツールキットとしてPlack
JSXからemscriptenで生成したJSを呼ぶ #upcamp - Islands in the byte stream (legacy)
#upcamp でハッカソンしてます。JSXからemscriptenで生成したJSを呼び出してみました。emscriptenはhomebrewでbrew install llvm --with-clangでllvmを入れ、emccのshebangを修正するだけで動きました。 コンパイル は EXPORTED_FUNCTIONS を指定すること以外は特になにもしていません。 Cのコードは以下のとおりです。 double add(double a, double b) { return a + b; } JSXのコードは以下のようになります。 native class C { static function ccall.<T>(name : string, returnType : string, argsType : string[], args : variant[]) : T; } =
test-travis(1)というコマンドを書いた - Islands in the byte stream (legacy)
https://github.com/gfx/App-test-travis Travis-CI は CPAN Testers のない言語だとライフチェンジングなサービスだし、 CPAN Testers のある Perl においてもpushごとにCIを走らせたりちょっと変わった設定でテストを走らせたりできる大変便利なサービスですが、設定ファイルを正しく書くのがわりと面倒で、うまく動かすために.travis.ymlを少し変更してcommit & pushというのを何度もするはめになったりします。なので、ローカルで.travis.ymlを読んで実行するコマンドがあれば便利だろうというのがこれを作った動機です。 まだ作りはかなり適当で、before_install, install, before_script, scriptセクションを順番に実行するだけのもので、envやversionsをよし
JSX minifierの圧縮性能 - Islands in the byte stream (legacy)
JSX compilerのソースコードで検証してみました*1。 Mode Size(KiB) Ratio original 1507 1.00 JSX minifier 277 0.18 Closure Compiler/D 602 0.40 Closure Compiler/A 301 0.20 対象にしたソースコードがJSXから変換したJSというやや特殊な状況ですが、Closure CompilerのADVANCED_OPTIMIZATIONSよりもサイズが小さくなりました。また、ADVANCED_OPTIMIZATIONSと異なりJSX minifier*2はコードを破壊する圧縮は一切行わないので、圧縮したらコードが動かなくなるということが非常に起こりにくくなっています。しかしそれでも、JSXの豊富な型情報を使って圧縮すればADVANCED_OPTIMIZATIONSよりもサイズを小
Ruby+Redisでランキングを実装してみる - Islands in the byte stream (legacy)
Redisでランキング機能を実装してみる - (ﾟ∀ﾟ)o彡 sasata299's blog を自分がやったらこんな感じかなと思って書いてみました。実行環境はRuby 2.0.0-p0です。 #!/usr/bin/env ruby require 'redis' require 'pp' class Leaderboard class Entry attr_reader :user_id, :score, :rank def initialize(user_id, score, rank) @user_id = user_id @score = score @rank = rank end def inspect "#<#{self.class} user_id:#{user_id}, score:#{score}, rank:#{rank}>" end end def initiali
Perlの m// は中身が固定文字列だと爆速になる - Islands in the byte stream (legacy)
[追記] 実際に検証してみると、パターンが短いと index() のほう速いこともあるようです。パターンが長いと正規表現のほうが高速になるのでそもそもアルゴリズムが違うようですね。 よってこのエントリの内容は必ずしも正確ではありません！ cf. https://gist.github.com/kazuho/5410635 [/追記] Perlの話題を日本語で – Lingr で出た話題です。 Perlの正規表現マッチはパターンが単純だと index() とおなじく Boyer-Moorアルゴリズムで検索するので非常に高速です。要は最適化のつもりでパターンマッチをindex()に書き換えるのは無意味なのです。 ソースは pp.c や regexec.c あたりを fbm_instr() で検索かな？ ドキュメントもどこかで読んだ気がするのですが思い出せず＞＜ perl -MDevel::Pe
Data::Dumper が壊れているという惨事 - Islands in the byte stream (legacy)
あるいは PERL_CPANM_OPT=-n は危険だという話。 それはこのtweetから始まった。 結局これは Data::Dumper 2.143 が壊れていたからなのだが、そこに至るまでがちょっと大変だったので記録しておく。 まず、再現スクリプトは以下のものだった。 # executed in perl 5.10.1 use strict; use warnings; use Data::Dumper; use Text::Xslate; my $tx = Text::Xslate->new({ syntax => 'TTerse' }); my $template = <<TMPL; [% value | dump %] TMPL my $value = +{ 'ab' => 'c', }; print Dumper($value); my $ret = $tx->render_s
NodeJSのrequire()はどこに定義されている？ - Islands in the byte stream (legacy)
v0.8.16 (homebrew ver.) だと上の3つがOK, v0.6.19 (nvm ver.) だと上2つがOK。どれも同じように見えるんだけどなあ。 #!/usr/bin/env node try { console.log("#require %s", require); // OK } catch (e) { console.error(e); } try { console.log("#eval('require') %s", eval('require')); // OK } catch (e) { console.error(e); } try { (function() { var eval = global.eval; console.log("#var eval = global.eval; eval('require') %s", eval('require
B::Size2 をデバッグしたときのメモ - Islands in the byte stream (legacy)
B::Size2 で問題が起きるという報告を受けて修正するまでのメモ。 まず再現ですが、これは標準モジュールを使っても簡単に再現できたのでテストに追加してこれを使います。 diff --git a/t/002.terse.t b/t/002.terse.t index ccf6a99..02de21a 100644 --- a/t/002.terse.t +++ b/t/002.terse.t @@ -6,7 +6,7 @@ use Test::More tests => 1; use B::Size2; use B::Size2::Terse; -foreach my $pkg (qw(main B::Size2 B::Size2::Terse)) { +foreach my $pkg (qw(main B::Size2 B::Size2::Terse Test::More)) { my
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Maven Centralに代わるAndroid Archive Networkが必要だ - Islands in the byte stream (legacy)
