memcached の conn_yields について - tokuhirom's blog
memcached の conn_yields が上がっていた場合、conn_yield がでなくなるまで起動時オプションの -R を上げろって主張している人がいます。 https://blog.engineyard.com/2015/fine-tuning-memcached http://cachelot.io/blog/2015/04/20/Speed-up-your-application-by-fine-tuning-Memcached.html 実際問題、結局のところどういう主張なのかわかりづらくて、調べた。 コードを検索すると、1つのコネクションでコマンドを発行しまくっている場合にここに到達するようだ。 https://github.com/memcached/memcached/blob/d9dfbe0e2613b9c20cb3c4fdd3c55d1bf3a8c8bd/me
Perl5 での Plack に当たる Crust をみんなで作った話 - tokuhirom's blog
この記事は Perl 6 Advent Calendar 2015 の1日目です。 Perl 6 は、2015年のクリスマスにリリースされることになっており、我々としてはそれを待ち受ける必要があると考えました。 Perl6 がリリースされた暁には、いろいろ遊ぼうかなという気持ちをみなさんお持ちだと思います。 Perl6 には夢が詰まっており、様々な機能が含まれている夢の言語です。 そういった、夢の機能については今後、クリスマスまでの間に、語られていきますが、本稿では、現実的な話をします。 今年のクリスマスに Perl6 がリリースされるぞ、という宣言がでたわけですが、そうなってくると、Perl6 をクリスマスから早速遊びたいなと思うわけですよね。 そして、私は web engineer なので、 Perl6 が出たら早速 web application を書きたいと思うわけです。 しかし、
Shipped full featured Plack clone for Perl6 named `Crust` - tokuhirom's blog
Hi, i'm tokuhirom, one of the core developer of Plack. During the past few weeks, I've been hack the Perl6. This is to celebrate the Christmas in the best mood. I'm a minimalist, and I love a software built on clean and well tested parts. I mean tokuhirom loves CPAN. To write the practical web applications in Perl6, it has released some of the library. HTTP::Server::Tiny - IO::Socket::Async based
java と strace - tokuhirom's blog
java command は clone(2) するので､普通に strace してもダメ｡ strace -f java ... のように -f オプションをつければ､clone した先も追ってくれるので､トレース可能となる｡ ためしに以下のような何もしないプログラムを用意してみる｡ public class Hello { public static void main(String[] args) { } } javac Hello.java とした後､strace -o java.log -f java Hello とすると､java.log というファイルが作成され､どのようなシステムコールを JVM が発行しているかがわかる｡ ちなみに /usr/bin/perl -e0 した場合と比べると以下のようになり､Java で開発を行うと何もしないプログラムでもたくさんの syste
Server::Starter から簡単に Java プロセスを起動できるようになった - tokuhirom's blog
JVM には inetd から起動するときのために､file descriptor 0 をソケットとして開く機能がついている｡Jetty 等もこの機能に対応しているので､簡単に利用できる｡ file descriptor を 0 に固定出来る機能が Server::Starter にあればよかろうということで､以下のような指定で起動できるように実装した｡ $ start_server --port=20000=0 java EchoServer この機能により､Java も LL と同様な形態でアプリケーションを運用することが可能となる｡ Java では昔から ClassLoader 機構を利用することによりホットデプロイを行うことが可能だが､リソースの解放が漏れるなど開発時の難しさが指摘されている｡ Server::Starter 方式では JVM のプロセスごと死ぬので､綺麗な状態で都
Linux 上で5秒で chroot jail を使えるコマンド「jailing」が凄い！ - tokuhirom's blog
https://github.com/kazuho/jailing/ kazuhoさんがやってくれました。 ずいぶん前からlinuxでchroot jailを作るのに簡単な方法ないかなーと思ってました。個人的にはsystemd-spawnというのを使ってたのですが、幾らか気に入らない所があったり構築に時間がかかったり、ディスク容量を消費していました。簡単に使えて、ディスク容量を消費しないやつがほしいなーっておもってたんです。 とあるIRCで昨日、kazuhoさんと「ほしいですよねー」という話から始まって、github にある docker とかも物色しながら「いいのないねー」とか言ってたらkazuhoさんが「もすこし綺麗に書けそう」って言い出して朝から本格的に書き始めてついさっき出来上がりました。速いw 名前はjailing とても小さく、実装コードだと100数十ステップ程です。しかもpe
[perl] Error in tempfile() using template /tmp/XXXXXXXXXX: Have exceeded the maximum number of attempts (1000) to open temp file/dir at hoge.pl line 14. のようなエラーが発生した場合の対処方法 - tokuhirom's blog
File::Temp を使っていると、表題のようなエラーが発生することがある。 これは一件すると、ファイルを開く処理が失敗した用に見えて、ファイル開き過ぎとかかなあと思うんだけど、実際はそういうことではないようだ。 File::Temp の実装はこのへんになっていて、要するに EEXIST が発生した場合に 1000 回ファイル名を変えてリトライして、その結果としてダメだったというときにいい感じにあがる例外である。 https://github.com/Perl-Toolchain-Gang/File-Temp/blob/master/lib/File/Temp.pm#L602 ここを見れば分かる通り、EEXIST の時だけしか次のループにいかないので、OS 的な問題ではない。 https://github.com/Perl-Toolchain-Gang/File-Temp/blob/ma
jolokia につないで雑に情報を見るツールを書いた - tokuhirom's blog
https://github.com/tokuhirom/jolokia-dashboard jmx/jolokia なサーバーがいっぱいたってるんだけど、いちいち jconsole の URL とか調べるのがダルい、という問題があり、そういったものをささっとアクセスできるようなウェブUIでも作っておくか、ということで作ってみた。 作ったのはいいんだけど、もっといい方法が発明されたのでこれはオクラ入りとなった。 UI は Angula.JS で開発されているが、なんだかんだいって AngularJS で書かれたアプリケーションは見通しがよく、これよりもよい JS のフレームワークが見当たらない。まあ、コンセプトを提示することが重要なので慣れてるやつでいい。 結果的に、数時間かけてコンセプトコード提示した結果、いい感じにデータをとれるやつを作ってもらったのでよかった。 (たぶん作成時間はそん
Content-Security-Policy と nonce の話 - tokuhirom's blog
Content-Security-Policy の nonce を利用すると、XSS の脅威をかなり軽減できます。 そこで、Web Application Framework ではデフォルトで対応したほうがよいのではないか、という旨を @hasegawayosuke さんから教えて頂いたので、実装について考えてみました。 とりあえず CSP の nonce はどういうものなのかを考慮するために、コード例を探していたのですが、実際に動くサンプルというものが nonce 関連のもので見当たりませんでした。 そこで、実際に動くサンプルを用意しました。 https://github.com/tokuhirom/csp-nonce-sample 以下は Sinatra で書かれたサンプルコードです。 require 'sinatra' require 'securerandom' get '/' d
Perl 初心者がウェブアプリケーションを書く時に気をつけるべきこと - tokuhirom's blog
$c->req->param('id') みたいなメソッドは使ってはいけない。これは歴史的経緯から残っているものなので、基本的に使わない方がいい。 $c->req->parameters->{id} をかわりに使ってください。 Perl の世界には List コンテキストというものがあって、これがウェブアプリケーションを開発するときには鬼門となります。 +{ id => $c->req->param('id') } のようなコードは、param メソッドはリストコンテキストではすべての id を返すので、 ?id=3&id=hasegawa&id=yosuke というようなクエリが来ている場合、 +{ id => 3, hasegawa => 'yosuke' } のようなデータ構造が作成される。これは明らかに意図していない挙動である。 以下の様にかくのがおすすめです。 my $id =
なぜ Teng は良いものなのか - tokuhirom's blog
なぜ Teng は良いものなのか､を YAPC で再考させられたのでここにメモしておく｡ Teng は自社開発のウェブアプリケーションを作ってる人たちが作っていて､それがうちのニーズにあってるのでいいっていう話であって､どこでもすごい最高!! と主張したいわけではないです｡まあ､個人の感想ですね｡ ソースが読みやすい ソースがよくモジュール化されていて､読みやすい｡自身で書いている部分が多いという贔屓目を抜きにしても読みやすいんじゃないかなーと｡ 僕らのような自社開発のウェブ屋では､なにか無茶な要望を受けた時にささっと対応するということが求められるシーンが多いので､ソースの読みやすさというのはかなり重要なファクターとなっています｡ 複雑な SQL を発行できないように機能が制限されている SQL ビルダーを使って JOIN やサブクエリを駆使したウェブアプリケーションを開発してしまうと､運
[Security Notice] Amon2, HTTP::Session2 security updates - tokuhirom's blog
Last week, I shipped Amon2 and HTTP::Session2 includes security fix. [Must] Update "secret" if you are using HTTP::Session2::ClientStore Amon2::Flavor::* generates the 'secret'. If your are using generated value, You MUST update it. [Recommended] Update each libraries. I recommend to update Amon2, HTTP::Session, HTTP::Session2 to the latest version. [Recommended] Switch HTTP::Session2::ClientStore
Split Amon2::Plugin::Web::CSRFDefender from core distribution. - tokuhirom's blog
1. Amon2::Plugin::Web::CSRFDefender was removed from Amon2 core distribution. Amon2::Plugin::Web::CSRFDefender is no longer default CSRF defender module in Amon2. I suggest to use HTTP::Session2. If you still use Amon2::Plugin::Web::CSRFDefender, you need to write dependency explicitly in your cpanfile. 2. Latest Amon2::Plugin::Web::CSRFDefender is bit secure. @mala says Amon2::Util::random_string
js-xlsx で js で excel のファイルを生成する - tokuhirom's blog
Excel ファイルの生成、めんどくさいですよね。CSV の生成めんどくさいですよね。HTML を出力した上でさらにやるのはだるい、というわけで、HTML の DOM を解析して JS で XLSX 生成してダウンロードさせたらいいんじゃね?と思ってそういうのやれるやつ探したら、js-xlsx ってのがあった。 これをつかって、HTML のレポートから XLSX を生成するコードを書いた。なかなかうまく動く感じしてる。 http://tokuhirom.github.io/js-xlsx-demo/ td タグに class を指定すると数字カラムになる、みたいな感じになってるのがいいかんじです。 js-xlsx で生成したXLSXは、FileSaver.js で保存させてます。 デモで利用している JS は以下のようなものである。簡単でしょ。 "use strict"; var data
Perl 5.19.9 で実装された signatures の構文をためしてみる - tokuhirom's blog
use 5.019009; use autodie; use feature 'signatures'; no warnings "experimental::signatures"; package Foo { sub new($class, $n) { bless {n=>$n}, $class; } sub bar($class, $a) { $a+3; } sub baz($self, $a) { $self->{n} * $a; } } sub add($left, $right) { return $left + $right; } say add(1,2); say Foo->bar(4); say Foo->new(5)->baz(4); みたいな感じでつかえる。 【追記】 use 5.019009; use feature 'signatures'; no warning
Date::Simple が local $ENV{TZ} をさしかえててタイムゾーンがかわっちゃう件 - tokuhirom's blog
Date::Simple#format が内部で local $ENV{TZ}='UTC+0'; POSIX::strftime(...); のようにしており、Date::Simple#formatの呼出以後でタイムゾーンが UTC にかわってしまうという問題がよくしられている。 この問題は、そういえば最近は話題にあがらないなあ、とおもっていろいろ調べたところ、これは Perl 本体の issue と判断されて、perl 5.8.9 の時点で修正されていた。 On some systems, changes to C<$ENV{TZ}> would not always be respected by the underlying calls to C<localtime_r()>. Perl now forces the inspection of the environment on
Module::Build が Lancaster consensus における pure perl モードをサポートしていた - tokuhirom's blog
https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/lancaster-consensus.md Lancaster合意にもとづいて、Module::Build 0.4005で --pureperl-only オプションが実装された。これにより Module::Build を利用しているモジュールについては、cpanm --pureperl で pure perl でインストールすることが可能となった。 今回の Module::Build の変更点は以下のようになっている。 perl Build.PL --pureperl-only とされた場合、XS モジュールの configure は FAIL する。ただし、M::B->new(allow_pureperl => 1) とされている場合はコンパイル処理を実
Perl5 において chomp() とはなにをするものか - tokuhirom's blog
えてして、プログラミングにおけるバグの発生源は、使い方をまちがえていることに起因するものも多い。 猫を電子レンジでかわかす人がいるように。 そもそも chomp() という組み込み関数はなぜ必要なのか。 Perl5 では、データを行単位で処理するということが重視されたインターフェイスになっている。これは一般的なテキスト処理の頻出パターンだからだ。 while (<>) { chomp; say if /foo/; } これは、入力データを行ごとにとりだし、改行をとりのぞき、/foo/ という正規表現にマッチする行だけを表示するというプログラムだ。 Perl5 を知っている人なら、だれもが簡単に理解できる。 ここで $/ という変数が問題となる。$/ は、行の区切りがはいっている特殊なグローバル変数で、awk でいうところの RS にあたるものだ。 この $/ を変更することにより「行」の区
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Furl-2.03 supports URI based authentication - tokuhirom's blog
Shipped Amon2 6.00 - tokuhirom's blog