var randomUrl = String_random(/http:\/\/[a-z]{3,8}\.example\.com\/([a-z]+\/){3}/);
console.log(randomUrl); //=> "http://nsgd.example.com/epij/tmvlh/bkjmsyahwhj/"

正規表現からそれにマッチするようなランダム文字列を生成する String_random.js というのを書きました。

• https://github.com/cho45/String_random.js

Perl の String::Random みたいなのが JS でも欲しいなあと時々思うことがあったので作りました。括弧によるグルーピング・パイプによる選択も実装してあるのでそれなりに楽しい感じです。

String_random という名前は、String.random = String_random; できる感じのイメージですが、そのまま String に突っ込むと怒る人がいそうなのでこのような感じです。

メンテナになってからしばらくパッチあてたりしつつ放っておいたのですが、0.19 として出しました。

Teng::Row が結構書き変えられているので、そのへんちょっと気をつけて使ったほうがいいかもしれないです。inflate/deflate まわりの挙動をまともにしたつもりです。今までなんとなく動いていた感じだったので…… それにともなって set/get というメソッドが追加されています

また、kazeburo さんのパッチにより is_changed メソッドが追加されています。これにより実際は update しなくてもいいケースを簡単に判定しやすくなっています。デフォルトでは今まで通りなので実際にそうするには呼び出し側で判定をする必要があります。

Perl 再入門の章を書かされもらっている。ベースは以前に WEB+DB PRESS に寄稿したもので、さらに少しアップデートを加えたものになっている。執筆者リストを見ると僕以外はみんなすごい人ばっかりだなーと改めて思う。

ひとまず楽天カードの情報を Zaim に突っ込むまでスクリプトにしてみた。Amazon のも入れれるようにしたい。

• https://github.com/cho45/gmailtozaim

短縮 URL なんかだと、Base58 (Base64の中から、表示上まぎらわしい文字を削除したもの) を使ってただの数値を短かくする工夫をしていたりするが、それをもうすこし汎用的に使いたいので書いてみた。

• https://github.com/cho45/Encode-BaseN

実用性に疑問があるので CPAN にあげてはいない。

Gmail のメールを OAuth 経由で読むことができることを今更ながら知った。なぜかずっと「Gmail はユーザ名・パスワード認証しかできなくて不便だな〜 パスワード書きたくないな〜 OAuth できたらな〜」と OAuth ができないものだと思いこんでいた。

で、簡単に読めるモジュールがあるかなあと思ったけど、ちょっと見た感じではないので自力で書いてみた。

• https://gist.github.com/cho45/5814655

> NIC4 UID SEARCH CHARSET UTF-8 X-GM-RAW {47}
< + go ahead
> subject:アクティビティ  newer:2013/06/01
>
< * SEARCH 241354 241543 241544 242493
< NIC4 OK SEARCH completed (Success)

$ cpanm Minilla

で入れると minil コマンドができる。既存レポジトリで (ここでは Test-Name-FromLine) minil migrate すると以下のようになる。

$ minil migrate
[Test-Name-FromLine] $ perl -I/Users/cho45/project/Test-Name-FromLine/lib -I/Users/cho45/lib/perl -I. Makefile.PL
Cannot determine perl version info from lib/Test/Name/FromLine.pm
Writing Makefile for Test::Name::FromLine
Writing MYMETA.yml and MYMETA.json
[Test-Name-FromLine] $ make metafile
Using Module::Build (Because this distribution uses xs)
[Test-Name-FromLine] $ git add cpanfile
Detecting project name from directory name.
Retrieving meta data from lib/Test/Name/FromLine.pm.
Name: Test::Name::FromLine
Abstract: Auto fill test names from caller line
Version: 0.09
[Test-Name-FromLine] $ git add -f LICENSE
[Test-Name-FromLine] $ git rm --quiet Makefile.PL
[Test-Name-FromLine] $ git rm --quiet MANIFEST
[Test-Name-FromLine] $ git rm --quiet MANIFEST.SKIP
[Test-Name-FromLine] $ git rm --quiet .shipit
[Test-Name-FromLine] $ git rm --quiet xt/99_pod.t
[Test-Name-FromLine] $ git rm --quiet README
[Test-Name-FromLine] $ git add .gitignore
[Test-Name-FromLine] $ git add .

既存の xt/podspell.t は消えなかったので消しとく。

Changes のフォーマットを Chagelog 形式にしていたのだけれど (vim で \o で簡単に新規エントリが書けるので……)、この形式だと minil release 時に怒られるので、新しい分からは変えることにする。Changelog 形式にしていたのは日付を手書きするのが面倒だったからなので、Minilla を使えばそれは解消される。フォーマット自体にこだわりはないので主流にあわせられるならあわせる気持ち。

PERL_MINILLA_SKIP_CHECK_CHANGE_LOG=1 にすればチェックを飛ばすことができるけど、気持ちが良くないのでそうしなかった。途中でフォーマットが変わるのもだいぶ気持ちが良くないのでなんともいえない。

すなわち

{{$NEXT}}

        - Append line number to exiting comment

みたいのを冒頭に書く。

$ minil release

すると新規バージョンを訊かれるので答える。これで release される…… はずなんだけど、Minilla は CPAN::Uploader を使っている。これは ~/.pause ファイルを読むのだけれど、cpan-upload-http より厳密なフォーマットを要求するので書きかえた (= があってはダメ)。

無事に upload までうまくいくと、git でタグが打たれて勝手に push された。こんにちは Minilla ありがとう ShipIt。

tscreen の時代はおわったらしい。cjkwidth などは本家に入っていた。

$ git clone git://git.savannah.gnu.org/screen.git
$ cd screen
$ cd src
$ ./autogen.sh
$ ./configure  --enable-colors256
$ make
$ sudo make install
$ screen -v
Screen version 4.01.00devel (GNUc2cd059) 2-May-06

OS X のマウスポインターは加速がついていて、慣れられる人はこれでいいのかもしれないけれど、リニア反応しか受け付けない人間にとっては苦痛でしかない。

OSX のマウスの加速度がムカつく - 冬通りに消え行く制服ガールは✖夢物語にリアルを求めない。 - subtech で書いたように、一応加速を切る方法はあるが、この場合、速度は変更できず、マウスの仕様に因ってしまう。

ほとんど諦めていて、まぁいいかと思っていたけれど、SmoothMouse というのを使うと、加速を切りつつスピード調整ができるようにもなった。すばらしい。

インストール時に Intelli Mouse をアンインストールしろよと言われるので、前もってアンインストールした。なのでそれらの機能と同時に使えるかはわからない。