はてなブックマーク

タイトルですべてを語っていますし、http://blog.livedoor.jp/sonots/archives/32645828.html あたりを読むと良いのですがメモ。 最初にまとめると CORE::print() を使う場合は 4096 or 8192 byte 以下に収めること CORE::syswrite() なら混ざらない 男は度胸。flock(2)する ということです。 これでわかった人は読む必要ありません。 以下蛇足。 はじめに perl ではファイルハンドルに書き込むときには何も考えずに CORE::print() を利用しますが、この人はなんかいい感じにバッファリングしたり、長い文字列だったらぶった切ってくれたりしてくれます。 で、普通はバッファリングのことはみんな意識しているので以下のようにヒットアンドアウェイをやったりしますね。close() で自動的に flus

tag だけ打って CPAN には上げたくないなーってときは $ FAKE_RELEASE=1 minil release としますが、仕事のプロダクトとかで絶対に CPAN にあげないようなものの場合は毎回指定するの面倒な上にミスったら死ぬのでなんとかしたいことでしょう。 でも v0.9.0 からは release.do_not_upload_to_cpan という設定が追加されたので、minil.toml に [release] do_not_upload_to_cpan= true とか書いておけばハッピーですね。

JSON::XS 3.0 から JSON::XS::true|false が JSON::XS::Boolean クラスから JSON::PP::Boolean に変わってたので、Data:Util::is_instance() とかで JSON::XS::Boolean かどうかで分岐していた部分が動かなくなっていて諦めて if (is_instance $bool, 'JSON::XS::Boolean' or is_instance $bool, 'JSON::PP::Boolean') { ... } とかにした。(モジュールのバージョンが環境によって 3.0 だったりその前だったりすることがあるため) が、JSON::PP::Boolean は Types::Serializer::Boolean の alias であるため if ($bool && Types::Seriali

Perl徹底攻略 (WEB+DB PRESS plus) [大型本] 大沢 和宏 cho45(さとう) 小林 篤 和田 裕介 嶋田 裕二(xaicron) 牧 大輔(lestrrat) 奥 一穂 広木 大地 伊藤 直也 長野 雅広 藤原 俊一郎 伊藤 智章 まかまか般若波羅蜜 小飼 弾 近藤 嘉雪 中川 勝樹 宮川 達彦 tokuhirom 藤 吾郎(gfx) 村瀬 大輔 技術評論社 最近の Perl 事情はもとより、第一線で働いている人たちが書いているので、内容は超実用的です。 Perl を書いてる人や、昔書いてた人、さらにはこれからやろっかな～って人にはおすすめの一冊です。 なにげに描き下ろしもかなり豪華です。

タイトルは釣りです。 免責 公式に公開されているものではないので、むやみに使わないでください。 何かしらのアプリケーションで利用する場合は当然、問い合わせなどをして許可を得るべきです。 本題 Ginger というサービスが先ごろ公開されてまして、一言で言うと「空気読んで誤訳を直してくれるサービス」って感じです。 細かいニュアンスとかをよしなに修正してくれて、エレガントな英語 に変換してくれるらしい！すばらしいサービスですね。 いまのところは、ブラウザの拡張機能が主であとは Windows の Office 向けのものがあるようです。 で、 ブラウザか・・・有料でいいからVim版が欲しい・・・ : 「もう前置詞に迷わない」──「ネイティブレベル」の英語が書ける英文チェッカー「Ginger」日本上陸 - ITmedia ニュース itmedia.co.jp/news/articles/… —

4/17 に日本オラクルで開催された MySQL Casual #04 で話して来ました。 当日のスライドは以下になります。 http://xaicron.github.io/slide/mysqlcasual-04/ ちょいとまだ作り始めたばっかりで微妙なところも多々あるんですが、mysqlenv のレポジトリは以下になります。 https://github.com/xaicron/mysqlenv 当日の様子 @saisa6153 さん SQLドリル面白そうだった。 というか実際にペンで書き込んでるの！？ってなってびっくりした。 @kenjiskywalker さん けんじおじさん全然おじさんじゃなかったし、騙された気分 コンテンツ力に嫉妬した @yoku0825 さん インデックスショットガン！！！ 5.6系でなんの変化もなくて悲しい話だった @matsukena さん 5.6.10

新卒向けなんたらカレンダーの X日目です。 そもそも homebrew 使ってない まず Xcode を入れる必要がある。Xcode は App Store からインストールして、 Preference → Downloads → Components → Command Line Tools をインストール。 そしたらおもむろに以下のコマンドを打つ $ ruby -e "$(curl -fsSL https://raw.github.com/mxcl/homebrew/go/install)" おしまい。 sl $ brew install sl 必須コマンド。 zsh $ brew install --disable-etcdir zsh OS X は PATH をゴニョゴニョやられてむかつくので /etc/zshenv を読まないように --disable-etcdir 付きでインス

実際は 3つぐらいしかないです。 Cinnamon の Minilla 化で @shiba_yu36 先生がハマっていたのでここに記す。 ちなむと、Minilla の現在の HEAD (cb3fc97d4e) で試しているのであり、今後は修正される可能性が大いにあります。 migrate 編 0. とりあえずブランチ切りましょう いつでもあの頃に戻りたい。みんなそう思っている。 # Minilla 化される直前の commit からブランチを作成 $ git checkout -b minilize 0bf8634 あとは、何かあったら以下のコマンドで元通りです。 $ git reset && git checkout . && git clean -df 1. ディレクトリ名とモジュール名が一致していない git repository では全部小文字なんだけど実際のモジュールは大文字だっ

http://blog.livedoor.jp/xaicron/archives/54444878.html これでどういう感じで調べたのかというのをなんとなく書いてみます。 Changes を見る まず、なにはともあれ Changes を確認します。自分はよく metacpan を利用しているので、 https://metacpan.org/source/KROKI/Cache-Memcached-Fast-0.20/Changes らへんをさらっとみます。 または、Pod::Cpandoc というモジュールをインストールすると cpandoc というコマンドが利用可能になるので $ cpandoc -c Cache::Memcached::Fast などとしても良いです。 そんなこんなで以下の様な内容が読み取れます 0.20 2013-04-03 - finally fix magic

実に3年ぶりに Cache::Memcached::Fast がリリースされました。 更新内容は、key に MAGIC があるような SV を渡した時におかしくなっていたものを修正したというもので、SvGAMAGIC() という MAGIC のチェックをするコードが追加されています。 23:33 xaicron: SvGAMAGIC(sv) の呼び出しが増えてるのか 23:35 tokuhirom: SvGAMAGIC ってなんだっけ 23:36 xaicron: わかんないｗ 23:37 xaicron: これって key に MAGIC 入ってるような値渡してると変になるってことなのかな？ 23:40 tokuhirom: そういうバグをなおした、って話だろね 23:41 tokuhirom: 要するに、速度は劣化するが magic を考慮するようになった 23:41 tokuhir

報告が大変遅くなってしまいってすいません＞＜ 去る 03/08 から 03/10 まで JPA (Japan Perl Association) の支援を受けて北海道に行って来ました。 以下が当日の資料に大幅に加筆修正を行ったものになります。 https://xaicron.github.io/slide/hokkaidopm-09/ じつは、北海道に行っている間はずっと風邪をひいていましたことをここに告白いたします。 が、そんなことはさておき、とにかく吹雪がすごくてなんというかテンションダダ上がりでござました。 飛行機が遅れてしまって、ホテルに着くのがだいぶ遅くなったんですが @techno_neko さんの寝坊好意により、タクシーで迎えに来てもらえることになり、無事に懇親会会場まで辿りつけました。 とりあえずついたらジンギスカンです。なにはともあれジンギスカン。そして地ビールがあるじゃ

tcpdump で HTTP みてたら、まさかり族の長に 23:44 hirose31: ngrep -d any -W byline port 80 便利 っていわれてそういえば ngrep とかあったわーってことで大変便利でした。@hirose31++ ちなみに今回は request 側から特定のホストのみに限定してみたかったので $ sudo ngrep -W byline port 80 and host www.google.co.jp とかしたのでした。これで生の HTTP がらくらくみれて幸せ！ ちなみに tcpdump では $ sudo tcpdump -l -s 1600 -nxX -i en0 host www.google.co.jp とかやってました。オプションむずいよぉ。 https://twitter.com/muranet/status/3118546330

Module::Build::Pluggable::CPANfile is awesome! I'm going to use this module :) @kazeburo++ for example: ちょっと変更 # Build.PL use strict; use warnings; use Module::Build::Pluggable qw(CPANfile); my $build = Module::Build::Pluggable->new( license => 'perl', dynamic_config => 0, configure_requires => {}, build_requires => {}, requires => { perl => '5.008001', }, no_index => { 'directory' => [ 'inc' ] },

そういえば、Micro::Container っての出してました。 Object::Container をよく使ってたんですが、多段に継承して使いたいなーという欲求があったので適当に書きました。 package MyContainer; use parent 'Micro::Container'; __PACKAGE__->register( JSON => [], ); package MyContainer::Child; use parent 'MyContainer'; __PACKAGE__->register( MessagePack => sub { my $c = shift; my $mp = $c->load_class('Data::MessagePack')->new; $mp->utf8; $mp; }, ); package main; use MyContai

一般的な Web Programmer ならば、JSON-RPC Error Status code はすべて暗記していると聞きました。 しかし、僕は初心者なので、なかなか覚えきれていないので、JSON-RPCのステータスコードをさがすのに便利なツールを用意しました。App::jsonrpcstatus です。依存とかないので https://github.com/xaicron/jsonrpcstatus/blob/master/bin/jsonrpcstatus をコピーしてくればうごきます。 使い方は以下のとおりです。 -327xx なコードを列挙する。 % jsonrpcstatus -327 -32700 Parse Error -32600 ってなんだっけ？ % jsonrpcstatus -32600 Invalid Request Reserved のコードってなんだっけ？

JSONPath というのがあって、いわゆる XPath の JSON 版です。 仕様は以下 JSONPath - XPath for JSON XPath すべての機能が使えるわけではありませんが、巨大な JSON から目的の key を探す場合にはなかなか便利です。 たとえば、Dailymotion の JSON なんかはダンプすると 900行ぐらいあったりして、しかも超絶階層が深い。更にいうと配列が多くて、順番が変わる可能性も高い (というか実際に昔作ったスクリプトがうごかなくなっていた)。 そういう場合にサクッと指定してモリっと取ってきてくれると便利ですね。 例えば Dailymotion の動画のタイトルが欲しい場合は、JSONPath を使わないと以下のようになります。 my $title = $json->{sequence}[0]{layerList}[0]{sequenc

例えば以下の様なテーブルがあったとして mysql> SELECT * FROM some_table; +-----------+----------+ | key | value | +-----------+----------+ | zigorou | moja | | antipop | idol | | bayashi | condom | | kazuho | BL | | ikebe | AKB48 | | clouder | yokohama | | satoshi | -- | +-----------+----------+ 以下のようにフラットなハッシュとして取得したいケースが合った場合。 { zigorou => 'moja', antipop => 'idol', bayashi => 'condom', ... } こんな感じでやればよい # $sql は適当

日本最先端の技術と日本の専門家の技術の専門家によって作成されたナノスプレー。ツール作業システムは次のとおりです。 約1 GHz以上、毎秒約100万の振動の周波数で高速振動を使用して動作します。 ナノ細孔の穴の大きさと比較すると、このサイズを0.1〜0.3マイクロサイズスプレースプリット水分子が2000ナノの穴を通過molekuなって、非常に小さなサイズとソフトの粒子に大きな水の変化をスプレー-poriヒトの皮膚は、比較結果ナノスプレー噴霧次にはるかに小さいです。 それは皮膚が最も深い毛穴に浸透することができますので、スプレーの栄養酸素水直接の結果は、ヒトの皮膚によって完全に吸収されます。 このような脂肪、毒素などの不純物が、顔にシミやニキビの原因となる皮膚中の毒素は、自然に持ち上げることができます。

皆さん、綺麗なコード書いてますか？僕は書いてません。 ところで、おそらく世界一綺麗な Polyglot プログラムを作れましたのでお知らせしたいと思います。Polyglot というのは、複数の言語処理系で実行できる一つのプログラムのことです。 たいていは、@takesako さんのこのページのような超変態的なコードになりますね。これを綺麗なコードだと感じる人も世の中には居るかもしれませんが。 さて、さっそくですが、実装は以下になります。 とても美しいですね。なんと 0 byte のコードです。(実際にはファイルを作成するのでディスクを消費しますが) まず、プログラムを作成します。これには unix 機に標準で入っている touch コマンドなどが大変便利です。echo > foo などでもよいでしょう。 $ touch sekaiishi_kireina.polyglot 以下のようにする

Cache::LRU::WithExpires - can set an expiration for the Cache::LRU - metacpan.org Cache::LRU に expires の機能をつけただけのモジュールですね。 最初はプロダクトのコードで使っていましたが、だれか (たしかグニャラくん？) がコピペして再利用していたという話を聞いて、まぁ需要あるなら出すかーって感じで考えててすっかり忘れてたんですが思い出したので出しましたっていうストーリーです。 使い方は簡単で、オケツに expires を指定するだけです。Time::HiRes しているので、ミリ秒も OK。 use Cache::LRU::WithExpires; my $cache = Cache::LRU::WithExpires->new; $cache->set('hirose', '31',

もうすでにだいぶ経過しちゃってますが、ISUCON2 に参加して相変わらず惨敗してきました。前回はまさかの文字化け FAIL で終了だったのですが、今回はなんとか免れました。 以下は今回のために特別に作られたストラップとアイコン付きカード！すごい！！ チームメイトは @mandy_44 氏 + 本当は @__gfx__ 氏が来る予定でチーム名も彼が考えたのにｻｰｾﾝされましたので、結婚式の二次会の前なのにスーツで来てくれたヒーローの @zentooo 氏です。 鼻水が辛いので、会社に鼻セレブを取りに行く 出たら入れないので、ダメ人間先輩を拉致 逃げ惑うダメ人間先輩 ついでに DBスターマン人形を持って記念撮影 ベンチ走らせる DB重すぎﾜﾛﾀ とりあえず MySQL の slow query 出す アーティストとかチケットとかなんか数が少ないのでアプリにハードコーディング @zentooo

carton と古い cpanm をくみあわせたら悲しい話 - tokuhirom's blog. あるあるですね！ 自分もちょっとまえは「お、perlbrew に install-cpanm とかあるぞこりゃたまらんずびっ」って感じで使ってたんですが、大体これすると perlbrew で入れた cpanm に真っ先に PATH が通っていて何時まで経ってもアップデートされずに死ぬ。 なので、rm ~/perl5/perlbrew/bin/cpanm とかしておいて、普通に新しく perl 作ったらその都度入れてやるのがいいと思ってそうしてます。 で、cpanm のインストール方法を毎回ググっているのでコマンド作ったった。 curl とか wget とか HTTP::Tiny とかを適当に選択してくれてシャレオツですね！ これを install-cpanm とかして bin に突っ込んでお

C2DM has been deprecated and replaced by Google Cloud Messaging for Android (GCM). というわけで、C2DM さん今までありがとうございました。これからは GCM の時代になりましたので WWW::Google::Cloud::Messaging をリリースしました。 JSON API のみの対応です。API key の取得はこのへんに書いてありますのでよしなに。 SYNOPSIS 貼っつけると use WWW::Google::Cloud::Messaging; my $api_key = 'Your API Key'; my $gcm = WWW::Google::Cloud::Messaging->new(api_key => $api_key); my $res = $gcm->send({ regis

なんか知らないけどどっかから謎のクエリーが極稀に打たれている！という状況とかがあったりするわけです。 頻度が多ければ SHOW FULL PROCESSLIST のメグレップでもいいのですが、一週間に一回とかだったりするとずっと見ているわけにも行きませんね。*1 で、とりあえず TRIGGER でも突っ込んで犯人を見つけてやろうかってことで、接続元の user とか host を記録してみようと思いました。 どうやって取得するかというと、 mysql> SELECT * FROM information_schema.processlist WHERE id = CONNECTION_ID(); +--------+---------+--------------------+-------+---------+------+-----------+--------------------

Sub::Rateと言うのを書いた - unknownplace.org 別に Re でもないんですが、Data::WeightedRoundRobin とかいう謎モジュールで同じような事を実現すると、以下のような感じかな。 use strict; use warnings; use feature 'say'; use Data::WeightedRoundRobin; use Data::Dumper; my $dwr = Data::WeightedRoundRobin->new; $dwr->add(+{ weight => 0.1, value => sub { 'Super Rare' } }); $dwr->add(+{ weight => 3, value => sub { 'Rare' } }); $dwr->add(+{ weight => 96.9, value =>

http://karupanerura.hateblo.jp/entry/2012/07/16/075051 https://metacpan.org/module/LWP::UserAgent::DNS::Hosts 乗るしか無い、このビッグウェーブに。そして海行きたい。 use strict; use warnings; use feature 'say'; use Test::Mock::Guard qw(mock_guard); use LWP::UserAgent; my $url = 'http://example.com/'; my $ua = LWP::UserAgent->new; say $ua->head($url)->headers->as_string; { my $hosts = { 'example.com' => 'google.com', }; my $g