gist:63836 · GitHub #!/bin/sh # $Id$ svn log --stop-on-copy -q | perl -anle 'next if /^\-+$/; unshift @rows, $F[0]; END { $rev = sprintf(q/%s:%s/, $rows[0], $rows[-1]); $rev =~ s/r//g; print $rev }'もう少し真面目に作って、 svn merge のコマ…

そういうものらしい。ので入れた。あと、付属の exiftool はファイル名を引数にとるが、 ImageInfo() にスカラーリファレンスを渡すとメモリ上の画像データも ok っぽいのでリモートの画像 URL を渡してそれの EXIF を表示するスクリプトを作った。perl/lwp-…

自分が追いつけていない最近の（といってもここ二年くらいの）話題が読めるほとんど唯一の書籍だと思うので、かなり期待している。 第一章 Moose 結局年末 Moose について勉強しなかったので、これがほとんど初めて触れる状態。あんまり細かいところまで追わ…

Google Adsense から ban されるなんて、初めてそういう話題を目にしたときから「自分には縁のない話だな」と思っていたのに、まさか自分で経験することになるとはなあ。人生は何があるかわからない。