Re: Re: perl 5.16.0 でメモリリーク？ - Islands in the byte stream (legacy)
perl 5.16.0 でメモリリーク - たごもりすメモ Re: perl 5.16.0 でメモリリーク？ - tokuhirom's blog 修正してpull-requestを送りました。 https://github.com/mirrors/perl/pull/9 https://rt.perl.org/rt3/Ticket/Display.html?id=114340 ※ githubのpull-req/issuesではなくperlbugでレポートしてほしいとのこと。今回は tokuhiromの報告があったのでそれで。パッチ自体は問題ないようなので、Perl 5.16.1 では修正されるでしょう。 以下蛇足。 せっかくなので、何を考えながらデバッグしたかを記録しておく。 今回のバグはSVのリークではなくmalloc()したメモリの開放忘れだったので、Test::LeakTrace
perlbrew-completionを書いた / またはcompletionスクリプトの開発とデバッグの話 - Islands in the byte stream (legacy)
きょうびmakeやgitでも補完が効くなか、perlbrewでも補完が効いてほしいですよね。 たとえば私はマシンによってperlbrewで入れたperlはけっこう違っているのですが、どのマシンにどのバージョンのperlを入れたか正確には覚えていません。なのでperlbrew use [tab]で利用可能なperlの一覧が出るなどしてほしいところです。 そこでperlbrew-completionを書きました。pull-req済みなのできっと次のバージョンあたりから使えることでしょう。 $ perlbrew [tab] alias install off available install-cpanm self-upgrade clean install-patchperl switch compgen install-perlbrew switch-off display-bashrc l
quick sortよりも高速でmerge sortのように安定しているソートアルゴリズムtim sort [勘違い] - Islands in the byte stream
<追記>ベンチマークプログラムに誤りがありました。ソート済のシーケンスに対してソートを掛けていました。ご指摘ありがとうございます＞ak氏 そんな夢のようなソートアルゴリズムがあるのかというと、あるらしいんです。それがtim sortと呼ばれるアルゴリズムです。 画期的（？）なソートアルゴリズム「Sleep Sort」：濃縮還元オレンジニュース｜gihyo.jp … 技術評論社 このあたりで拾ってきたネタですね。 merge sortを改良したアルゴリズムで、安定*1しており、しかも実行速度にも優れているとか。アルゴリズムの性能の評価は済んでいるらしく、CPythonやJDK7には既に導入済みのようですね。 ならば当然Perlのソートも…と考えるわけですが、まず評価のためにJavaのソースをC++にそのまま移植してみました。それがこれ（いちおうテスト済）： https://github.co
![quick sortよりも高速でmerge sortのように安定しているソートアルゴリズムtim sort [勘違い] - Islands in the byte stream](https://cdn-ak-scissors.b.st-hatena.com/image/square/f9103c273a45047a455a47c2322a4ec545cd77ee/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F17680117127143682567%2F17680117127143702106%2F1558185862)
lib::xi - installs missing libraries on demand - Islands in the byte stream (legacy)
gistなどで公開されているPerlスクリプトを実行する際、モジュールが足りないことがよくあります。そういう場合はCan't locate Foo.pm ...というエラーメッセージを見ながらモジュールをインストールするわけですが、決まりきった作業にうんざりしたので自動的にそれをするモジュールを書きました*1。 https://github.com/gfx/p5-lib-xi `perl -Mlib::xi script.pl`とするだけで、足りないモジュールをcpanmで適当にインストールしてくれます。 -Mlib::xi=extlibとすれば既存の環境を壊すことなくlocal::lib的にextlib/にインストールして実行できますし、-Mlib::xi=-L,extlib,-qなどとしてcpanmにオプションを渡すこともできます。 これで退屈なインストール作業をしなくてすむはずです。
自己紹介と過去の話 - Islands in the byte stream (legacy)
新卒準備カレンダー 2011春に何か書くにあたって、まずは軽く自己紹介的な挨拶を書こう…と思ったら予想外に長い自分語りになってしまったので別途書き出しておきます。エンジニアとしてのスキルや活動については本編に書くので、ここではそれ以外のことを書きます。 現在の私 この3月で大学を卒業し、4月からはDeNAにエンジニアとして入社します。 プログラミングが大好きで、3年ほど前からShibuya.pmによく顔を出しています。最近の成果物としては、Perl用のテンプレートエンジンXslateです。これについてはWeb+DB Presss誌で解説の機会をいただき、「Xslate 次世代テンプレートエンジン」としてWebでも公開済みです。 ところで、私は今年29歳になります。しかし、大学院にいったわけでも二度目の大学というわけでもありません。これは大学入学が24歳のときと遅かったためです。私が大学を目
livecoderを動かしてみるテスト - Islands in the byte stream (legacy)
id:sugyanの作ったlivecoderがすごく面白そうなのでまずは手元で動かしてみた。 node.js+socket.ioを使ったライブコーディングwebアプリを作ってる - すぎゃーんメモ 上記エントリにしたがっていくつかnode.js用のライブラリをインストールしたところ、特にハマることもなく起動に成功した。やったことは以下の通り*1： # install node.js v0.4.1 curl -LO http://nodejs.org/dist/node-v0.4.1.tar.gz tar xzf node-v0.4.1.tar.gz cd node-v0.4.1 ./configure make && make doc && sudo make install # install npm (node package manager) curl http://npmjs.or
Linux::Inotify2+Growl::Anyでファイルの変更を監視する - Islands in the byte stream (legacy)
Linux::Inotify2ではなくFilesys::Notify::Simpleを使った方がポータブルですが、とりあえずは習作ということで。監視しているディレクトリで何かがあるとピコピコ通知されるので、ああ今PCが頑張っているのだなあという気持ちになれます。 #!perl -w use strict; use Linux::Inotify2; use Growl::Any 0.05; # ※Growl::NotifySend や Desktop::Notify などが必要 my $dir = shift(@ARGV) || '.'; my $w = Linux::Inotify2->new(); my $g = Growl::Any->new( appname => 'inotify-growl', events => ['modify'] ); # copied and modifi
Re: Chromeのスタートページで自分のはてブをインクリメンタル検索する拡張（ただしPerlで書いた） - Islands in the byte stream (legacy)
http://d.hatena.ne.jp/Cside/20110214/p1 こんなに簡単にChrome拡張が作れるとは！と感動する一方で、Xslateの使い方がいまいちだったので直してみました。pull-reqだけでいいかとも思ったのですが、これらの修正はすべて何度か見たことのあるFAQ的なものなので、エントリにすることにしました。 具体的には、 Xslateインスタンスをリクエスト毎に作るのは非効率なので、最初に作って使いまわす render_string()は非常に遅いのでテストやデバッグ以外の用途で使うべきではない 今回のケースでは普通にファイル名を渡すだけでよい スクリプト中にテンプレートを書きたい場合は、pathオプションにハッシュリファレンスを渡すとよい Xslateは基本的にテキスト文字列(decodeされたもの)を扱うので、functionはテキスト文字列を受け取って文
Xslate 1.0006 released! - Islands in the byte stream (legacy)
リリースしました。 1.0001から1.0006の間には後方互換性を破壊する変更はなく、バグフィクスと小さな機能追加のみです。SEGVを起こすバグや非常に分かりにくいエラーメッセージを吐くバグも修正されているのでアップデートをお勧めします。 また、1.0006から追加されたText::Xslate->print()メソッドを使うと、エラーメッセージをテンプレート内に出力することができます。なお、このprint()はテンプレート内部の出力同様、スマートエスケープが適用されます。 #!perl -w use strict; use Text::Xslate; my %vpath = ( hello => 'Hello, <: $lang :> world!' . "\n", ); my $tx = Text::Xslate->new( cache => 0, path => \%vpath,
mustache.js on JE - Islands in the byte stream (legacy)
(追記あり) Perl製のJavaScript EngineにJEというモジュールがあります。このモジュール、そこそこよくできていて、ブラウザに依存しないようなJavaScriptライブラリならだいたい動くようです。そこで、JEでmustache.jsを動かしてみました。スクリプトは本来ローカルにインストールして読み込むべきですが、ここではすぐ実行できるようリポジトリから直接とってきています。 #!perl -w use strict; use Test::More; use JE; use JSON qw(encode_json); use Furl; my $script = q{https://github.com/janl/mustache.js/raw/master/mustache.js}; my $je = do { my $res = Furl->new(agent =>
Why Xslate is so Fast - Islands in the byte stream (legacy)
(There is the Japanese version bellow) There are reasons why Xslate so fast, so this article explains them, which will be added to the Xslate document. Taking precompiling style Template engines which precompile templates are always faster than line-by-line interpreters. Almost all the engines implemented in scripting languages (e.g. Template-Toolkit or Text::MicroTemplate) takes precompiling styl
Data::Validatorの凝った使い方 - Islands in the byte stream (legacy)
https://github.com/gfx/p5-Data-Validatorが大体できたのでリリースしました。 基本的には名前で引数を指定する関数向けですが、メソッド用に対応したりリストスタイルで引数を指定したりする拡張機能もあります。 まず、$validator->with('Method') でメソッド用になります。ただし、第一引数の型はいまのところ指定できません： use feature 'state'; use Data::Validator; sub Foo::add { state $rule = Data::Validator->new( a => 'Int', b => 'Int', )->with('Method'); my($self, $args) = $rule->validate(@_); return $args->{a} + $args->{b}; } p
Idea of Data::Validator - Islands in the byte stream (legacy)
Smart::Argsは無駄がなくて使いやすいのですが、欠点はXSモジュール(PadWalker)への依存があることと、Perlの作法を完全に無視していることです。 そこで、試みにData::Validatorというモジュールを書いてみました。 https://github.com/gfx/p5-Data-Validator コンセプトは以下の通り： 機能的にはSmart::Args + X Pure Perlでも動く Perlの作法に則る 十分に速い 使い方は以下の通り #!perl -w use 5.010_00; use strict; use Data::Validator; sub request { state $rule = Data::Validator->new( url => { isa => 'Str', xor => [qw(schema host path_que
Xslate now cooperates with Data::Section::Simple - Islands in the byte stream (legacy)
[twitter:@typester]さんがText::MicroTemplate::DataSectionを書いて気になっていたところ、[twitter:@kazeburo]さんからもXslateの対応について要求があったので、version 0.1043でData::Section::Simpleと協調するようにしました。 ただし、依存モジュールを増やしたくない*1ので直接サポートではありません。 具体的には、以下のように使います*2： #!perl -w use strict; use Text::Xslate; use Data::Section::Simple; my $tx = Text::Xslate->new( path => [ Data::Section::Simple ->new()->get_data_section(), ], ); print $tx->rend
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_
HTML form management on Xslate - Islands in the byte stream (legacy)
<追記> @typesterさんの指摘を受けて再考中。確かに、気軽にrawを書くようになると、結局「うっかりraw」をする可能性が生じて安全性が下がります。テンプレートではrawを使うべきではない、ということを前提にドキュメントと記事を書き直しました。 参考： @fujiwara: うっかりraw付ける付けないのミスというより、化ける！→rawつけると化けない！→じゃあとりあえずrawつけとけばイイよね！ みたいな流れがありがち。@tokuhirom:ていうか、T::MT の思想では、基本的に model とか controller 側で raw 属性つける、なんだよね。Xslate上でフォーム処理をしようとしたらいろいろハマったのでCookbook書きました。 The Xslate cookbook http://search.cpan.org/dist/HTML-Shakan=HTML
XSでメモリークを避けるたった一つの方法 - Islands in the byte stream (legacy)
XSでメモリリークを避ける基本原則は、それほど難しくない。すなわち、作ったSV(およびSVファミリ)はすぐsv_2mortal()するのである。mortalなSVはスコープ*1から抜けるときに解放されるため、メモリリークは起こらない。つまり、あるスコープ内で新しく作ったすべてのSVをmortalな状態にしておくということだ。 この原則のもとでコードを書くと、誤ってリファレンスカウントを増やさなかったケースでは警告が頻繁に起きる。しかし、少なくともメモリリークは起こらない*2。メモリリークの検出は難しいので、警告が出るのは福音であろう。 もちろんこれは原則で、メモリリークにまつわることで覚えなければならないことは決して少なくない。 たとえば、XSUBの戻り値をSV*にするとき、sv_2mortal(RETVAL)してはいけない。これはPerlの仕様ではなくxsubppが勝手にsv_2mort
Text::ClearSilver - New ClearSilver binding in Perl - Islands in the byte stream (legacy)
id:Craftworks さんから仕事をもらいまして、ClearSilverのPerlバインディングを書きました。 http://search.cpan.org/dist/Text-ClearSilver/ git://github.com/Craftworks/Text-ClearSilver.git ClearSilver はCで実装されたテンプレートエンジンで、高速だという話はあるものの、Yapc::Asia 2007で紹介されたほかはそれほど話題にも上らず、私も今回の話が来るまでは知りませんでした。 もっとも、Perlの世界で流行らないのは当然です。ClearSilver のディストリビューションにはPerlモジュールが含まれているのですが、これの質が非常に低く*1、Perlデータ→HDFデータ*2の変換も用意されていないため、Data::ClearSilver::HDFを使う必
XS基礎文法最速マスター - Islands in the byte stream (legacy)
元ネタ：Perl基礎文法最速マスター(id:perlcodesample) XSを始めるための手順といくつかの要素の解説です。C言語をある程度知っている人でも，これを読んだだけでXSの基礎をマスターしてXSを書くことができるようにはなっていません。リファレンスでもありません。 XSとは，狭義ではPerlでエクステンションを書くためのマクロ言語の名前ですが，広義ではエクステンションを書くための技術の総称です。ここでは，広義のXSを俯瞰します。 XSはいろいろと特殊なのでテンプレは無視で行きます。 目次： h2xsで空のディストリビューションを作る XSファイルの構成 スレッドコンテキスト SVファミリ GCとスコープ さらなる学習のために h2xsで空のディストリビューションを作る 以下のコマンドで空のXSディストリビューションを作ることができます。 h2xs -A -b 5.8.1 -n
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Plack::App::Directoryで簡易静的ファイル配信 - Islands in the byte stream (legacy)