tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
エンコーディング変換の高速化 - odz buffer
ref:404 Blog Not Found:perl tips - Encodeを速く使う方法 当然の話だけど、対象の文字列が長くなると、Encode::encode も、$e->encode も大差ない。 ちょっといじって試してみる。 use strict; use warnings; use Benchmark qw/cmpthese timethese/; use utf8; use Encode; use Jcode; use Unicode::Japanese; use Smart::Comments; my $str = join '', ( 'a' .. 'z', ( map { chr } ord('ぁ') .. ord('ん') ) ); $str = $str x shift if @ARGV; my $bytes = encode_utf8($str); my $u
ErlangとPerlの速度比較 その２ - みかログ
ErlangとPerlの速度比較の文字コード変換部分に関して， Danさんからトラックバックをいただいたので再度測定してみた． そもそもはじめからUTF-8、それもutf8フラグがたっている文字列にfrom_toを使うのはばかげている。 とのことだけど，utf8フラグは立っていない想定． use utf8 は罠がいっぱいな割にメリットが少なく，普段は使用しないので・・・． （DBIが未対応だったり，モジュールによってフラグの扱いが違ったり（YAML::*とか）なので） また，多くの場合は，ファイルやソケット等からUTF8バイト列を受け取って，それを利用することになるので， utf8フラグ無しの文字列からの変換で比較する方が実際の利用状況からもフェアではないかと感じるけれども． （ただ，バイト列にしたとしても，やっぱりEncodeが一番速かった） そんなわけで，コードは以下のように修正． m
lighttpd-1.5.0-r1454 ベンチマーク : blog.nomadscafe.jp
lighttpd-1.5.0-r1454 ベンチマーク http://blog.lighttpd.net/articles/2006/11/15/pre-release-lighttpd-1-5-0-r1454-tar-gz にでているlighttpd 1.5.0のpre releaseを前回と同じように3KB*100万個でテスト。 結論から言うと、このlighttpdのaioの実装では小さいファイルがたくさんという条件ではそれほど効果がなさそうです ■普通にlinux-sendfile ・設定 server.document-root="/var/www/html" server.port=8080 server.network-backend = "linux-sendfile" server.event-handler="linux-sysepoll" ・結果 $ ./http_lo
ClearSilver の Perl バインディングを使う(Perlのテンプレートエンジンのベンチマーク) - spiritlooseのはてなダイアリー
ClearSilverネタが続いてるわけだけど、今度はPerlバインディングを使ってみた。 ClearSilverをインストールすると同時にPerlバインディングもインストールされるんだけど、PODには何にも書いてない・・ ここにAPIがのってるだけ。 というわけでサンプルは以下。 #!/usr/local/bin/perl use strict; use warnings; use ClearSilver; my $hdf = ClearSilver::HDF->new; $hdf->setValue('message', 'hello world!'); my $cs = ClearSilver::CS->new($hdf); $cs->parseFile('hello.cs'); print $cs->render;気になった点は TTになれてるので、メソッド呼び出しができないのが一
lighttpd vs Perlbal : blog.nomadscafe.jp
lighttpd vs Perlbal lighttpdのlinux-aioサポートの記事を読んでいて気になったので、既にaioをサポートしているPerlbalの静的コンテンツを配信するWebサーバとしての性能を調べてみた。 サーバは CPU Pen4 2.8GHz ( HyperThreading付き) Memory 512MB FedoraCore6 な環境です。 上記の記事の様にファイルを3GBほど作成（メモリーより明らかに多い量） 小さい画像ファイルと見立てて、3KBのファイルを10*100*1000=1M個作成しました。 #/bin/bash for i in `seq 1 10`; do for k in `seq 1 100`; do mkdir -p $i/$k; for j in `seq 1 1000`; do dd if=/dev/zero of=$i/$k/$j b
XML::Feedの読み込みベンチ - はこべにっき ♨
夏休みの課題でCatalyst::Model::XML::Feedを使ったという記事を書いた。しかし、このモジュールを使って、一回のクエリで5個も6個もFeedを読み込むようにするとページが表示されるまでにかなり時間がかかってしまって、Webアプリケーションとしてはあまり良くない。なんで、XMLを読み込むためのモジュールのベンチマークをとってどれを使えば一番早いか調べてみることにした。 と思って調べたら、相当前ににPerl で XML の処理はどれが速いかベンチ : NDO::Weblogというid:naoyaさんの記事で調べられていた。せっかくなんで、この記事で行われているベンチをXML::Feedにもやらせてみて比較してみることに。 元の記事のコードに sub with_xml_feed { my @links = (); my $feed = XML::Feed->parse(\$c
FireBug と benchmark.js を使って稼働中のサービスの JavaScript パフォーマンスをチェックする - IT戦記
まずはこれを見てください。 http://sample.ecmascript.jp/bench.htm このような感じで FireBug のコンソールを表示させて 適当なサーバにある benchmark.js を読み込んで benchmark.at('firebug')({ 'テスト１': function() { ... } }); って感じで、どんなサイトでもパフォーマンスを計ることが出来ます。 何が嬉しいのか いちいちサービスの JavaScript を書き換えて計測する必要がない。 思いついたときに、パフォーマンスチェックができる。 FireBug を入れていない、または Firefox 以外でパフォーマンスを計りたい場合 URL 欄に javascript:(function(){var s=document.createElement('script');document.bo
IT戦記 - ベンチマークツール公開
最近 またしても、JavaScript のベンチマークを取らなければならない仕事が来たので、 ツールをキレイにしました。 それを公開します。(ダウンロードは一番下にあります。) 使い方 script タグで benchmark.js を読み込んで、以下のように連想配列の関数群を渡すだけです。 benchmark({ 'ほげほげの計測': function() { ...... }, 'ふがふがの処理の計測': function() { ...... } }); 結果は以下のように表示されます。 *** ほげほげの計測 *** result : 0.0011[ms] *** ふがふがの処理の計測 *** result : 0.111[ms] 表示された秒数は 関数の中身を一回だけ実行する時間です。 関数呼び出しのコストは差し引かれています。 また、FireBug を使っている場合は benc
Javascript Speed Tests - FAX
Javascript Speed Tests Javascript (via JavaScriptを最速で実行できるブラウザはどれ？ - GIGAZINE) Opera 9IE 6(SP2)Firefox 1.5 Try/Catch with errors1090271 Layer movement130351140 Random number engine15060140 Math engine80120541 DOM speed30261200 Array functions7030120 String functions401060 Ajax declaration30300381 Total 540ms1222ms1853ms テスト内容、DOMだとこんな具合。 var startTime = new Date() ; for( var i = 0; i <= 1000; i++
激しく誤差の範囲内の予感 - f99aq8oveのブログ
追記 safari だと replace に関数を渡せないらしいです。 replace に関数指定しない方が良いよ escapeHTML をぐるぐる回してみた 俺のあれは数年前から停滞してるので、かっこいい人の登場を待ちます。。。 関数そのまま使いましたm(__)m 眠い。 escapeHTML の実装 3 パターン (ベンチマーク付き) - (new Hatena).blog() window.onload = function () { bench(escapeHTML_replace_multi, "replace_multi"); bench(escapeHTML_replace_func_rulescached_regexcached, "replace_func_rulescached_regexcached"); bench(escapeHTML_replace_func_r
escapeHTML の実装 3 パターン (ベンチマーク付き) - (new Hatena).blog()
ウェブを扱うライブラリやプログラムで必ずと言って良いほど見かけるものに、escapeHTML という関数があります。 "&" 等、特別な意味を持つ文字を、表示等のために実体参照 (&) に変換するお決まりの関数なんですが、実装には色々とバリエーションがあるものです。 1. String#replace メソッドを繰り返す (MochiKit 等) function escapeHTML(str) { return str.replace(/&/g, "&").replace(/"/g, """).replace(/</g, "<").replace(/>/g, ">"); }このパターンが最も多く見受けられます。Ruby でも同様に gsub を繰り返す方式を見かけることがあります (例: RSS::Utils.html_escape)。 2. Str
perl - 自動で /a|b|c/ を /[abc]/ にしてくれたら... : 404 Blog Not Found
2006年06月16日00:00 カテゴリLightweight Languages書評/画評/品評 perl - 自動で /a|b|c/ を /[abc]/ にしてくれたら... 正規表現においては、/a|b|c/(alteration)は[abc](character class)にすべし、というのは、perlに限らない常識です。 Mastering Regular Expression Jeffrey E. Friedl [邦訳: 詳説 正規表現] qootas.org/blog - perl regex performance"|"(パイプ)を使った正規表現はめちゃくちゃ遅いから使わないように、ということです。確かにベンチマークを取ると32倍速いです。 どうせならPerl自身が内部で/a|b|c/を[abc]にしてくれたらと思ったことありませんか? 少なくとも、正規表現を仕事で使う
![perl - 自動で /a|b|c/ を /[abc]/ にしてくれたら... : 404 Blog Not Found](https://cdn-ak-scissors.b.st-hatena.com/image/square/da78a05937633f7a2b4b2219826151c370cd607b/height=288;version=1;width=512/https%3A%2F%2Fparts.blog.livedoor.jp%2Fimg%2Fusr%2Fcmn%2Fogp_image%2Flivedoor.png)
いつでもどこでも、すぐに DateTime モジュールを使いたい - iandeth.
前回のエントリ 「Perlで日付・時間操作 - DateTime モジュールの使い方」で書いたとおり、とっても便利なDateTimeモジュールですが、強いて難点をあげるとすれば、必要な依存モジュールが多いこと = インストールが面倒くさい事かと個人的には思います。shell と make コマンドが使える環境ならば、"$ perl -MCPAN -e 'install DateTime' " で自動インストールしちゃえるのですが、これができない状況: telnet 禁止の環境で cgi 作りたい場合 (無料ホームページサービス等)(顧客のサーバ環境での開発で、クライアントに信用されていない状況とか) サーバの保守・セキュリティ体制がうんちゃらで make コマンドの利用が規制されている場合 (出くわした経験あり) こんな状況下だと、とたんにDateTimeモジュールを利用する事は難しくなっ
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
?D of K
http://www.gloo.ru/blogs/gloom.dhtml_javascript_benchmark._l_en.wiki.aspx
http://rintaro.dip.jp/program/apbench/index.html
http://qootas.org/blog/archives/2006/06/perl_regex_perf.html
運用サーバ速度比較
D-5 出張版 - lighttpd + FastCGI + Catalystを試してみる