その手の平は尻もつかめるさ

ギジュツ的な事をメーンで書く予定です

ページャNight 1ページ目という勉強会やりました


録画したustの様子はこちら

http://www.ustream.tv/recorded/49544381


ページャNight <[1]> on Zusaarというイベントを開催致しました．
実に冗談みたいな理由から興ったイベントでしたが，ページャ (ページネーション) というWebサービスの1コンポーネントに焦点を絞った非常に濃厚かつ興味深いトークの数々を聞くことができて，非常に良い勉強会になったと思います．

以下，発表の一覧です．

15分トーク

@さん お前自分ちのページャUIが本当に速いと思ってんの？


@さん APIのページングの話


@さん ページャ専用DBのご提案


@さん ふつうのページャーをつくろう


LT

@さん はてなブログ編集画面のページャの話

http://hitode909.hatenablog.com/entry/2014/07/06/020943

@さん 前に進むだけがページャじゃない
@さん Perlとページャと私

http://symphogear.papix.net/s/ZeWiGFXZtLe2UXyoVBHFkWXbuJCDUzyr#/

@さん ページャアンチパターン

@さん ページラング


発表してくださった皆様，お集まり頂いた皆様，そして快く会場を提供してくださったピクシブ株式会社の皆様，ありがとうございました！

さて

Webサービスを構築する上で今回の「ページャ」のようなコンポーネントはそれ単体では小さな存在の為，それらを主として知見を共有したり議論したりするという機会にはあまり恵まれていないように感じています．
どっこいWebサービスというのはこうした小さな・細かなコンポーネントを根気よく組み合わせて構築していくものなので，小さな存在だからと言って蔑ろにしてはならない．Webサービスを構成している要素は，その規模の大小に関わらず等しく重要なポジションを占めているので，それら個別に関する勉強会があっても良いじゃないか！　という動機で今回のイベントを催しました．結果的に数々の知見がお披露目され，非常に有益な会になったように思います．

こうした「細かいコンポーネントシリーズ」はコンスタントに開催できれば面白いのでは，と思った次第．

またお会いしましょう．

【補欠の方も参加いただけます】 今週金曜日，7月4日はページャNightです

参考

http://www.zusaar.com/event/5477013
http://moznion.hatenadiary.com/entry/2014/06/11/163303

今週金曜日はページャNightです．会場はピクシブ株式会社様です．
たくさんの方に発表していただけることとなり，当初の想定の100倍くらい実りのある会となりそうであります．

そしてなんと！！！

ピクシブ様のご厚意で補欠の方でも立ち見で参加頂ける運びとなりました！！
ぜひふるってご参加下さいませ．

Time::SecondsのONE_MONTHとONE_YEARについて

perl

Time::SecondsのONE_MONTHとONE_YEARを使う場合，本当にその方法で良いのかよく考えたほうが良いと思います．バグが出る可能性が高い気がします．

例えば以下の様な場合

use Time::Piece;
use Time::Seconds;

my $tp = localtime->strptime("2014-04", "%Y-%m");
say $tp->mon; # => 4
say $tp->ymd; # => 2014-04-01

$tp -= ONE_MONTH;
say $tp->mon; # => 3
say $tp->ymd; # => 2014-03-01

$tp -= ONE_MONTH;
say $tp->mon; # => 1 (!)
say $tp->ymd; # => 2014-01-30 (!!)

このコードは，Time::PieceのオブジェクトからONE_MONTHを引いてやる事によって1ヶ月前の月を表現したいという意図を表していますが，上手く動きません．
それもそのはず，Time::Secondsの実装は以下のようになっており，

https://github.com/rjbs/Time-Piece/blob/master/Seconds.pm#L29-L31

ONE_MONTHは2629744秒 (つまりONE_YEAR / 12) のようにして定義されています．
30日を秒に表すと60 * 60 * 24 * 30 = 2592000秒だからONE_MONTHよりも小さいわけですね．
加えて2014年2月は28日しか無く，つまり60 * 60 * 24 * 28 = 2419200秒なので，ここで決定的に差が生まれてしまったという訳ですね．これは具合が良くない！　もちろん「1ヶ月前の今日」みたいなものも上手くは取れないですね．

そしてONE_YEARはONE_YEARで31556930秒，つまり365.24225日として表現されている為，こちらも普通に使うとおかしな事になってしまいます．

use Time::Piece;
use Time::Seconds;

my $tp = localtime->strptime("2014", "%Y");

$tp -= ONE_YEAR;
say $tp->year; # 2012 (!)
say $tp->ymd;  # 2012-12-31 (!!)

のっけからやってくれる！！！！　まあそれはそうですよね，という感じ．
こちらも「１年前の今日」みたいなものは上手く取れない．


で，どうするかというと，Time::Piece::Monthを使うと言った方法が考えられますが，このモジュールは内部でDate::Simpleを使っていて，Date::Simpleは呪われている（呪われていた）という問題があるので少し渋い．この方法でも問題なさそうだったらこれで良いとは思います．
問題が複雑では無かったら，LEAP_YEARやNON_LEAP_YEAR ，ONE_FINANCIAL_MONTHや，あるいはONE_REAL_MONTHやONE_REAL_YEARを駆使して自分で組み立てるというのも1つの手かもわかりません．

とにかく，ONE_MONTHとONE_YEARを使って何らかの日付け操作をしているコードを見つけた時は疑ってみたほうが良いと思います．


手が空いたらここらへんをケアするシンプルなモジュールを書くのもやぶさかではありませんが，果たして手が空くのか！


[追記]
Time::Piece::Plus使えばええんや！！！！！　という僕の中の僕が囁きましたのでシェアします．

[追記]
id:karupanerura氏「add_months/add_years ってメソッド使えや！！！」
とのこと．なんで僕はこのメソッドの存在を知らなかったのだろうか！？

ともかくONE_MONTHとかONE_YEARとかつかってたら大体おかしいことには違いないので，そういう場合は疑うってことでひとつ．

WEB+DB Press Vol.81のPerl Hackers Hubに寄稿しました

WEB+DB Press Vol.81のPerl Hackers Hubに「Perlにおける静的解析」というタイトルで寄稿致しました．商業誌デビューです．
そうそうたる著者の皆様の末席を汚しているのが僕です．そうそうそいつそいつ．

WEB+DB PRESS Vol.81

WEB+DB PRESS Vol.81

最近個人的に，Perlに限らず静的解析周りに興味があったことや，TPFのPerl::Lintの話などもあり，それじゃまあそこら辺の話で良ければ書きますよ〜〜〜〜って事で書きました．


以下おしながきです

  • 静的解析とはなにか
  • 静的解析の (Javaでの) 例
  • Perlにおける静的解析の背景と課題
  • PPIを使ってみる
  • Compiler::LexerおよびCompiler::Parserを使ってみる
  • 便利なPerl向け静的解析ツールの紹介
  • Compiler::Lexerを使って実際に簡単な静的解析ツールを書いてみる


Compiler::LexerやCompiler::Parserが台頭してきたり，App::PRTなどの静的解析を用いた便利なツールがぽこぽこリリースされたりするなど，Perlの静的解析周りはここ最近面白い状況になっており，その辺の話題を中心に触れてみました．Perlの静的解析にまつわる歴史的経緯についても軽く紹介しています．


手前味噌な感じで恐縮ですが，Compiler::Lexerを使った静的解析ツールの書き方を日本語で解説しているのは中々珍しいのではないかな〜と思います．
解説に従って実際にコードを書いてみると，ソースコード中のタイポを検出するスクリプトが「あら簡単！」という感じに出来上がる寸法となっています．
基本的にはこの特集で紹介しているような方法を使えば，たいていの静的解析ツールは作成出来ると思うので，「静的解析ツール，書いてみたいワ！」という方の手助けになれば幸いです *1．


また，Perl Hackers HubだというのにJavaのツールの解説に1ページほど割いており，我ながら最高な気分になりました．


発売日は6月24日(火)です．
興味のある方はぜひお手にとってみて下さいませ！

*1:あとは複雑さの程度問題なので，実装者の根気次第といったところでしょう

ページャNightというイベントをやります

参考: http://togetter.com/li/678306








http://www.zusaar.com/event/5477013

ページャNightというイベントをやります．皆さん冗談だと思われていたようですが冗談ではない．

イベントのページにも書きましたが，ページャはWebサービスに於いて極めて重要なポジションを占めています．ページャの実装いかんでは本当にタコな感じになってUXを損なったりしますし，ページャは一見瑣末な存在に見えてしまうので何かと多機能を求めがちですが，そのようにするとその裏では多大なる異常な努力が必要となってしまいます．
このあたりのさじ加減やら技術的なテクニックやらは，人類がインターネットを手にしてから脈々と受け継がれている筈なんですが，ぎっちょん人々はページャの話をあまり進んでしたがらないので，そうしたデッド知見を共有しようじゃあないですか皆さん！！！！　というモチベーションで開催致しました．ふるってご参加下さい．

とまあこう書きましたが別にlessとかmoreとかポケベルの話とかでも良いと思います *1．


というわけでページャにお詳しい皆様のトークをお待ちしています．
「喋ってもいいよ〜」という人はイベントページのコメントか，@までメンション等でお知らせいただければと思います．
まだ喋ってくれる方の数が少なくて参っているので，ぜひともよろしくお願いします！！！


[追記]
ページャってのはpaginationのこととして話を進めていましたが，正しい表現ではなかったですね．まあもはやページャだったら何でも良いです！！！

*1:僕個人はWebのページャに興味がありますが！

行の末尾の空白文字と決別する

vim

ソースコードの各行の末尾に空白文字があると精神衛生上良くないので消す派です．常に消しておくようにすると，VCSのdiffにノイズが乗らなくて良いと思います．

そこで僕は以下のようにVimを設定して対応しています．


以下のようにすると，保存時にフックして末尾の空白を削除出来るようになります．
また，:ToggleRemoveTrailingWhiteSpaceというコマンドを実行すると，
フックして削除するか否か，という状態をトグルさせることが出来ます．
色々な理由で *1 末尾空白を消したくない時にはトグルして機能を一時的に殺すと良いでしょう．

Markdownは末尾に半角スペースを2発入れる事によってブロック内での改行を行う仕様となっているため，
自動的に半角スペースを削除されると具合が悪いことになります．
従って，以下の設定ではMarkdownの編集時には常にdisabledになるようにしています．

" 保存時にフックして常に末尾の空白を削除する
let g:does_remove_trailing_white_space = 1
au MyAutoCmd BufWritePre * call s:removeTrailingWhiteSpace()
func! s:removeTrailingWhiteSpace()
  if &ft != 'markdown' && g:does_remove_trailing_white_space == 1
    :%s/\s\+$//ge
  endif
endf

" `:ToggleRemoveTrailingWhiteSpace` というコマンドを実行すると
" 保存時にフックして空白を削除するか否かをトグル
command! -nargs=0 ToggleRemoveTrailingWhiteSpace
  \ call s:toggleRemovingTrailingWhiteSpaceStatus()
func! s:toggleRemovingTrailingWhiteSpaceStatus()
  let g:does_remove_trailing_white_space =
    \ !g:does_remove_trailing_white_space
endfunc

また，以下のようにすると末尾の空白文字を真っ赤にハイライトすることが出来るため，可視化が捗って便利．
おまけでハードタブにもささやかに色を付けたりなどしています．

highlight TrailingSpaces ctermbg=red guibg=#FF0000
highlight Tabs ctermbg=black guibg=#000000
au BufNewFile,BufRead * call matchadd('TrailingSpaces', ' \{-1,}$')
au BufNewFile,BufRead * call matchadd('Tabs', '\t')

*1:既に末尾空白がたくさんあるプロジェクトのソースコードに変更を加える時に，自分の流儀をプロジェクトに押し付けるのもなんだか気が引けるなァ……みたいな時とか

MySQL-Reference-Manual-Version-CheckerというChrome拡張を書いた

さてMySQLを使った開発をしていると，必ずと言っていいほどMySQL Reference Manualを参照することになるわけですが，
頑張って読み解いていたマニュアル (しかも英語) が実はMySQL 4.1のマニュアルで，「僕の使ってる5.6のマニュアルとちゃうやんけｷｴｴｴｴｴ」となり，モチベーションが根こそぎ持っていかれるということがままあると思います．

そうした悲しい事故を防ぐためにこの度，MySQL-Reference-Manual_Version-CheckerというChrome拡張をこさえました．長い名前だ．
https://chrome.google.com/webstore/detail/mysql-reference-manual-ve/nbbkeofjffbleojiodgmdipcamgmmmee
https://github.com/moznion/MySQL-Reference-Manual-Version-Checker


何をする拡張かというと，設定したReference Manualのバージョン範囲外だった時に警告を出すという拡張です．
(デフォルトだと5.1 <= version <= 5.7というバージョンレンジになっています．つまりは4系以下だと警告が出るという感じです)


実際に動かしてみると以下のような感じです．

参照しているマニュアルのバージョンが外れている場合 (デフォルトの状態で4系を参照している場合);
f:id:moznion:20140606232532p:plain
代替ページ (バージョン範囲にマッチする中で最新のマニュアルのページ) へのリンクも提供しています．

マニュアルのバージョンが適切な場合は何も出ません;
f:id:moznion:20140606232644p:plain


というような感じです．地味に便利な気がしています！
ぜひご利用下さいませ．


ところでこのChrome拡張はTypeScriptを使って書いてみたんですが，なかなか良い感じでした．
その件についてはまた別の記事で紹介できればと思います．