【Important】Shipped Furl 2.00【重要】【要確認】【ご確認ください】 - tokuhirom's blog
I released Furl 2.00. It contains very important and incompatible change. Furl now verify every SSL certifications by default. If your application communicates server, is using unverified SSL certs, this version breaks your application. If you want to back older behavior, you need to specify `ssl_opts` option. -Furl が 2.00 でデフォルトで SSL 証明書をきびしくチェックするようになりました。そしてこの挙動がデフォルトとなりました。オレオレ証明書をつかっている場合には通信
2013年 のPerl5 の OOP について考える - tokuhirom's blog
Moo今年の本命? 新しくつくるならこれが無難な気がします。速度的にも Mouse とあまりかわらない。 若干依存がおおい気もするけど、インストールベースがふえれば気にならなくなるかな、ともおもいます。 Class::XSAccessor とかつかってるんで、速度的にもホットスポットは速いのがよい。 なお発音はムーだとおもう。 (http://www.forvo.com/word/moo/) Mouse完成している感じがする。得にわるい点もないが、あえていうと xs 部分がおおいので、gfx 以外がメンテできないかんじがするのが欠点か。 Xslate をつかっている場合は自動的に xslate が mouse つかってるので、自然と Mouse がロードされるので、そういった意味では Mouse つかってもいいかなとおもっている。
Shipped Perl::Build 0.01! - tokuhirom's blog
I shipped Perl::Build 0.01 to CPAN! Perl::Build is yet another perl builder module. This module contains `perl-build` script! You can use following command to install perl binary. perl-build 5.16.2 /usr/local/perl-5.16.2Of course, you can use Perl::Build as library. # install perl from CPAN Perl::Build->install_from_cpan( '5.16.2' => ( dst_path => '/path/to/perl-5.16.2/', configure_options => ['-d
PhantomJS + Selenium::Remote::Driver でスクレイピングをこころみる - tokuhirom's blog
PhantomJS といえば、WebKit を headless でうごかせて便利なやつですが、PhantomJS 1.8 から Ghost Driver がくみこまれるようになりました。 わかる人むけにかくと「JSONWire Protocol をサポートする httpd が phantomjs にくみこまれた」ということです。 GhostDriver は WebDriver Wire Protocol の1実装です。で、そのクライアントライブラリとして Selenium::Remote::Driver が CPAN にあがっていますから、これをつかって簡単に phantomjs とやりとりができます。 Selenium::Remote::Driver という名前のとおり、Selenium もつかえますんで、selenium をつかって、対応しているブラウザでのテストもできるのがいいかん
オススメCPANモジュールその1。 AnyEvent - TokuLog 改めB日記
というわけで、俺の独断と偏見によるオススメモジュールのコーナーです。 AnyEvent は poll/select/kqueue/epoll(4) などのイベントループを抽象化するライブラリです。似たような目的のものとして Danga::Socket, POE などがありますが、ライブラリ全体のインターフェースの完成度や速度などの点から AnyEvent を僕は一番押しています。 Pure Perl で利用できますし、インターフェースも安定しています。まだバリバリ開発されてますが、backward incompat な変更はされないようです。 作者が mlehmann 氏ということで、ドキュメントは丁寧ですが攻撃的な文章が目立ちますし、バグレポートすると異常な長文がかえってきたりするのでうっとーしかったりしますが、コードの品質はたかいので、気にする必要はないかとおもいます。コードの品質の前
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"
Perl テスティングハンドブックという電子書籍をだしてみた - tokuhirom's blog
主に KDP をためしてみたいという理由ですが、だしてみました。 Perl で Test を書くときのポイントを押さえてちいさくまとめています。ボリューム的にはちょっとした小冊子程度です。本当に自分で実践につかったことがあるものしかのせてないのがひとつの特徴です。 今回は pandoc でつくってみました。 gumroad からも買えるようにしてみました なお目次は以下のとおり - 前書き - 対象読者 - なにはのっていないか - 想定環境 - カイゼン - Test::More をもちいた基本的なテスト - 便利なユーティリティ関数 - is 関数 - cmp\_ok 関数 - is\_deeply($a, $b[, $msg]); - like($got, $regexp[, $msg]); - subtest 関数でテストケースをネストさせる - Test::More をたすけるラ
Test::Pretty supports prove! - tokuhirom's blog
Test::Pretty now supports prove command! You can use it as following command line: % prove -PPretty t/Output is here: Yes. It's not modified. But you adds '-v' option to prove, then you get cool output. % prove -PPretty -v t/ If you are testing only one file, output is more optimized: % prove -PPretty t/02_op.tResult code is here: That's all. Enjoy testing!
Floating point number decoding in JSON::XS - tokuhirom's blog
http://d.hatena.ne.jp/hiratara/20121024/1351054828 https://rt.cpan.org/Public/Bug/Display.html?id=80350 In some environment, JSON::XS's floating point number decoder has an issue. Here is code: use v5.16.0; use JSON::XS; my $dat = decode_json( "[0.6]" )->[0]; say int ( 24 / $dat ); say int ( 24 / 0.6 ); Outputs: 39 40Why?? The result of Devel::Peek::Dump($dat) is following: SV = NV(0x26fc7d8) at 0
Test-Pretty - Prettify the Test::More's output - tokuhirom's blog
Test::Pretty is a prettifier for Test::More. When you are writing a test case such as following: use strict; use warnings; use utf8; use Test::More; subtest 'MessageFilter' => sub { my $filter = MessageFilter->new('foo'); subtest 'should detect message with NG word' => sub { ok($filter->detect('hello from foo')); }; subtest 'should not detect message without NG word' => sub { ok(!$filter->detect('
DBIx::TransactionManager の目的と、その使用法について - tokuhirom's blog
おはようございます。 DBI では当たり前のように $dbh->do('BEGIN') と $dbh->do('COMMIT') をつかえばトランザクションがつかえるわけですが、なぜ DBIx::TransactionManager のようなものが必要になったのでしょうか。 それは勿論、DBI で直接 transaction をとりあつかうと問題が発生するケースが存在するからです。 トランザクションと RAII一番おおきいのは、トランザクションが中途半端な状態になってしまうことを阻止することです。たとえば、以下のようなケースでは、おかしなことになってしまいます。 my $dbh = DBI->connect(...); for (@stuff) { eval { $dbh->do("BEGIN"); $dbh->do(q{INSERT INTO t1 (v) VALUES (?)}, $_
Google Chart で Imp と Click のグラフとかをうまいこと書く - tokuhirom's blog
たとえば広告システムがあるとして、Impression 数と Click 数をそれぞれ数字としてもってたとして、普通に Google Chart でグラフを書くと以下のようになります。click 数が imp 数にくらべて非常にちいさいので、このグラフは役にたちません。 が、Google Chart では targetAxisIndex というのがあるので、これをもちいて以下のように指定すれば OK でした。 options = { series: { 1: {targetAxisIndex: 1} } }; あたらしいグラフは以下のようになります。2012-10-16 が Imp のわりにすげー click 数のびててなにこれ!! っていうのがわかります。 以上のグラフは以下のようなコードで描画することができます。 <html> <head> <script type="text/jav
【Important】Furl 0.42 was released, this change may breaks your code if your code is wrong. - tokuhirom's blog
Today, I released Furl 0.42. It contains small but important change, suggested by gfx. Furl::HTTP no longer loads Furl.pm by default. If you load only Furl::HTTP and use Furl->new(), it makes exception. This change is not affects to your code, if you write correct code. But if your code is wrong, it breaks your code. Take carefully. Thanks.
Using memcached with LZ4 - tokuhirom's blog
Cache::Memcached::Fast uses Compress::Zlib by default to use compression. It's bit slow on high traffic environment. I got a Compress::Zlib as a bottleneck in our web application. In this case, you can use Compress::LZ4 for better performance. I'm using this as following form: use Cache::Memcached::Fast; use Compress::LZ4; my $memcache = Cache::Memcached::Fast->new(+{ %{config->cache}, utf8 => 1,
Plack::Middleware::AxsLog がすごい! - tokuhirom's blog
https://metacpan.org/module/Plack::Middleware::AxsLog Plack::Middleware::AccessLog みたいなやつだけど、プロダクション環境でつかいやすいようにつくられてる。フォーマットのカスタマイズがあんまできないけど、速いというのが一番のメリットですね。 アクセスログを全部のリクエストについてとるのは、トラフィックおおいサイトの場合にはきついんだけど、そういう場合とかにもつかえるようになってます。 「エラーのときだけログをはく」というのと「レスポンスかえすのに時間かかったときだけログをはく」というのができるので、multilog にながしておいてながめてるだけで問題点がさっと把握できて便利です。 kazeburo++
LTをはじめてやる君へ - tokuhirom's blog
LT というのは メインのトークは大変なので、簡単に発表できる場をもうけよう5分なのですべっても大丈夫マイナーなネタをしゃべってもゆるされるようになんか一発ネタとかも発表できる場をもうけようなどの目的をもって設置されるものです。それほど気負う必要はないし、その日のうちに思いついてやったりする場合もあります(とくに海外では、飛び込みはあたりまえにあるといいます)。 ただ、一方で5分と話す時間がみじかくなっているので、話しなれていない場合には 自己紹介は手短にスライドの文字は大きくゆっくりしゃべるよく練習するの4点に気をつけましょう。 発表になれてない人ほど自己紹介を長くしがちですが、聴衆はあなたの生い立ちに興味はありません。名前、所属程度をいえば十分です。発表が、あなたのバックグラウンドをしらないと伝わらないものならば、かるく説明する必要はありますが、それでも30秒程度におさめる方がいいでし
なんてこった…CPANモジュールをnode.jsで動かしてしまうライブラリ「node-perl」 - tokuhirom's blog
https://github.com/tokuhirom/node-perl/ ここ最近、プログラミング言語同士の壁が徐々に破壊されている気がします。あるプログラミング言語上で別なプログラミング言語を動くようにしたり、置き換えてしまったりするような類です。今回はその一つ、CPAN moduleをnode.js上で動かすという、かなり無茶な気がしなくもない、そんなソフトウェアnode-perlを紹介します。 var Perl = require('../index.js').Perl; var perl = new Perl(); perl.use('LWP::UserAgent'); var ua = perl.getClass('LWP::UserAgent').new(); var res = ua.get('http://mixi.jp/'); console.log(res.as_
OrePAN - yet another DarkPAN manager - tokuhirom's blog
https://github.com/tokuhirom/OrePAN This is yet another DarkPAN manager. It is highly depended for cpanm. I don't think about relationship for CPAN.pm. It only works with cpanm. Just type % orepan.pl --destination=/path/to/repository Foo-0.01.tar.gzThen Foo-0.01.tar.gz register to the repo, and it add to the 02packages.details.txt.gz. And... You can install Foo from repo! % cpanm --mirror-only --m
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
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
画像が img タグでよみこまれてるかどうかをなんとなく判定する - tokuhirom's blog