はじめに

CPANモジュール Image::Size を使って画像サイズを取得できないケースに遭遇したのでメモ．

なお，モジュールのバージョンは 3.230 です．

現象

同モジュールを入れると imgsize コマンドを利用できるようになります．本来であれば次のような感じ：

% imgsize /path/to/img_ok.jpg
width="2693" height="1800"

しかし，次のようなケースに遭遇しました：

% imgsize /path/to/img_ng.jpg
Use of uninitialized value in printf at /home/www/perl5/perlbrew/perls/perl-5.14.2/bin/imgsize line 61.

Perlスクリプトとして実行してみたら，次のようになりました：

% perl -MImage::Size=imgsize -MData::Dumper -le 'print Dumper [ imgsize("/path/to/img_ng.jpg") ]'
$VAR1 = [
          undef,
          undef,
          'Data stream is not a known image file format'
        ];

うーん，画像フォーマットの識別がうまくいっていないのかな，と推測．

ひとまずの対処法

同モジュールのソースをざっと眺めてみると，Image::Magick モジュールを読み込んでいれば，そのメソッド ->Get() を使ってくれることがわかったので，とりあえずはそんな感じで対処：

% perl -MImage::Magick -MImage::Size=imgsize -MData::Dumper -le 'print Dumper [ imgsize("/path/to/img_ng.jpg") ]'
$VAR1 = [
          2693,
          1800,
          'Joint Photographic Experts Group JFIF format'
        ];

取得できました！

おわりに

以上，Image::Size モジュール（または imgsize コマンド）で画像サイズ情報を取得できないケースに遭遇して，アドホックに対処したお話でした．

また，imgsize($file, { format => 'jpeg' }) のような感じで画像フォーマットを強制的に固定できるようになってもいいんじゃないかな，とか思ったりしました．

あとでもう少し詳しくソースを読んでみるとします．

はじめに

この連休中にaquaさんでちょこっと走った際の記録などです．

2012-05-03: 名古屋〜豊橋

朝はまだ雨が少し降っていたものの次第に晴れてきたので，スタートが遅いかなと思いつつも決行することに．

初めて碧南・蒲郡方面を経由してみました．全体的に平坦な感じで走りやすかったです．一部唐突に出現する上り坂なんかもありましたが．

記録

iPhoneアプリ Cyclemeter での記録です．またデータが一部欠けちゃってるなぁ．．．

スタート: 2012/05/03 11:51:26
バイクタイム: 4:57:59
停止時間: 0:00
距離: 101.75 km
平均スピード: 時速 20.49 km
最高スピード: 時速 58.46 km
登り: 259 メートル
降り: 220 メートル

写真いくつか

西尾のあたり．車通りもそんなに多くありませんでした：

蒲郡を経由した証ｗ：

あ，ラグーナとか撮ってないやｗ

2012-05-05: 豊橋駅〜渥美半島の根元あたり

有名らしい「大松屋食堂」を目的地に設定して，国道259号線と国道42号線を，という感じに．

駅のコインロッカーに，輪行袋はじめ帰り用のかさばる荷物を預けておいたので気楽です．

記録

同じく Cyclemeter での記録．こっちはデータ欠けてないみたい．

スタート: 2012/05/05 9:38:43
バイクタイム: 5:52:00
停止時間: 12:44
距離: 53.95 km
平均スピード: 時速 9.20 km
最高スピード: 時速 60.28 km
登り: 247 メートル
降り: 211 メートル

写真いくつか

大松屋食堂．中に入れるまで30分くらい待ちました：

天丼がヤバいｗ：

食後，膨れたお腹を抱えて海沿いにゆっくりと道の駅まで：

大清水駅からは，土曜・休日に運行している，渥美線のサイクルトレインに乗車して豊橋駅まで移動しました：

おまけ：2012-05-02: 荷物を実家へ

走るのに要らないだろう荷物を，先に実家へ送りました：

同様に，5日の朝，実家近くのコンビニから名古屋の自宅へ向けて送り返してやりました．

おわりに

以上，この連休中にaquaさんで走ったメモでした．快晴の下を走るのは最高ですね！

しかし，日焼け止めを塗っていなかったため，腕が火傷した感じになってしまいましたとさ．涼しいことと日差しの強さは無関係ですね＞＜：

はじめに

WordPressのプラグイン WP-Syntax で利用されていることでもおなじみの，シンタックスハイライトなPHPライブラリ GeSHi ですが，Textileにおける bc. とか bc.. とかの記法を少し拡張してシンタックスハイライトするのに使えないかどうか，ということを考えていました．

少々力技ではありますが，ざっと形になったので，Text::Textile::Pluggable::Plugin::SyntaxHighlight::GeSHi という名前をつけてGitHubに公開してみました．

• issm/p5-Text-Textile-Pluggable-Plugin-SyntaxHighlight-GeSHi

できること

Textile記法では，コードブロックを表記するのに，bc. とか bc.. とかを使います．

bc. foo
bar
baz
 
this line is not code
 
bc.. foo
bar
baz
 
this line is code too

そこで，本プラグインでは，bc[lang].，bc[lang].. という記法が使えるようにしてみました．で，lang が示す言語に沿ったシンタックスハイライトが施されるようになっています．（もちろん，GeSHiに対応しているもののみですが！）

bc[lang]. foo
bar
baz
 
this line is not code
 
bc[lang].. foo
bar
baz
 
this line is code too

使い方

use Text::Textile qw/textile/;
 
my $text = << '...';
bc[perl].
use strict;
use warnings;
print 'foobar.';
...
 
# procedural usage
my $html = textile($text, [qw/SyntaxHighlight::GeSHi/]);
 
# OOP usage
my $textile = Text::Textile::Pluggable->new(
    plugins => [qw/SyntaxHighlight::GeSHi/],
);
my $html = $textile->process($text);

環境的な前提

環境的には，次の3点が前提となります：

• Text-Textile-Pluggable-0.03
• PHP
• GeSHi

Text-Textile-Pluggable-0.03

プラグインモジュールのロード処理まわりを少し修正したバージョンが必要になります．

• issm/p5-Text-Textile-Pluggable

PHP

PHPも使える必要があります．バージョンはそれなりにテキトーで問題ないかと思います．

GeSHi

これが肝心ですね．

ダウンロードは次から行えます：

• GeSHi – Generic Syntax Highlighter – Browse /geshi at SourceForge.net

<?php include_once 'geshi/geshi.php'; ?> ができるように，展開したものをそのまま include_path へ移動します．

なお，include_path は，次のようにすれば見つけられるでしょう：

% echo '<? phpinfo() ?>' | php | grep include_path
include_path => .:/Users/issm/local/lib/php => .:/Users/issm/local/lib/php

私の環境では，/Users/issm/local/lib/php がそれにあたるので，/Users/issm/local/lib/php/geshi/geshi.php として参照できるような形になればOK，という感じです．

力技の中身

1. （bc[lang]. は <pre><code language="lang">...</code></pre> というようなHTMLに変換される）
2. 渡されたHTMLテキストから <pre><code language="lang">...</code></pre> となっている個所を抜き出す
3. 抜き出したコード部分を一時ファイルに書き出す
4. `echo $php_code | php -- $file $lang` みたいな感じでPHPを実行する
5. PHP内では，一時ファイルを読んでGeSHiに通してできたHTMLを標準出力する，というようなことをしている
6. 先の <pre><code language="lang">...</code></pre> な部分を，得られたHTMLで置換する
7. これを繰り返す

PHPコードを標準入力として読み込ませれば，それ専用のスクリプトファイルを準備しなくてもいいよね，といった判断でこうなりました．

また，GeSHiを通すためのコード自体も引数とかで与えようとしたけれど，クオートとかの処理がよくわからなかったので，一時ファイルを経由する形にしてしまいました．

プラグインのソースコード

package Text::Textile::Pluggable::Plugin::SyntaxHighlight::GeSHi;
use 5.008001;
use strict;
use warnings;
use File::Temp qw/tempfile/;
use HTML::Entities qw/decode_entities/;
use Encode qw/encode_utf8 decode_utf8/;
our $VERSION = '0.01';
 
my $php_code = << '...';
<?php
include_once "geshi/geshi.php";
 
$file = $argv[1];
$lang = $argv[2];
$code = file_get_contents($file);
 
$geshi = new GeSHi($code, $lang);
$html = $geshi->parse_code();
 
echo $html;
?>
...
 
my $re_html_code = qr{<pre><code (?:\s language="([^\"]+)" )?>((?:.|\n)*?)</code></ pre>}mx;
# "</ pre>": WP-Syntaxが誤反応しないための対策．通常はスペースはない
 
sub init {
    my $o = shift;
    $o->{'plugin.geshi'} = {
        echo => '/bin/echo',
        php  => '/usr/bin/env php',
    };
}
 
sub post {
    my $o    = shift;
    my $text = shift;
 
    my $echo = $o->{'plugin.geshi'}{echo};
    my $php  = $o->{'plugin.geshi'}{php};
 
    while ( my @m = $text =~ $re_html_code ) {
        my ($lang, $code) = @m;
        $lang ||= 'text';
        chomp($code = decode_entities($code));
 
        my ($fh, $file) = tempfile(UNLINK => 1);
        print $fh encode_utf8($code);
        close $fh;
 
        $text =~ s{$re_html_code}{
            decode_utf8( `$echo '$php_code' | $php -- $file $lang` );
        }ex;
    }
 
    return $text;
}

おわりに

以上，Textile記法をちょこっと拡張してGeSHiを使ったシンタックスハイライトを行えるようにするための Text::Textile::Pluggable プラグインを書いてみたお話でした．

なお，冒頭のスクリーンショットは，SiTeWiki に本プラグインを追加してみたときのものです．一応動いていますねｗ

はじめに

前エントリ が @hell2u さん に次のように言及されていたみたいです：

blog.iss.ms/2012/04/19/135… 良さそうなのでMarkdownでおながいします。
Twitter / @hell2u: http://t.co/x25im9FB 良さそうな …

．．．ということなので調子に乗って Text::Markdown::Pluggable というモジュールも書いてみました．

• issm/p5-Text-Markdown-Pluggable
• PrePAN – Text::Markdown::Pluggable

概要と基本的な使い方

Text::Markdown のサブクラスで，そこに「プラグイン」を読み込むしくみを追加しています．（プラグインの作り方については，Text::Textile::Pluggable 書いてみたエントリ は「プラグインの作り方」の部分のサンプルコードの [Tt]extile を [Mm]arkdown に置き換えて読んでくださいｗ）

使い方は次のとおりです：

use Text::Markdown::Pluggable qw/markdown/;
my $html = markdown($text, [qw/Foobar +MyApp::Markdown::Plugin/]);
 
use Text::Markdown::Pluggable qw/markdown/;
my $html = markdown($text, [qw/Foobar +MyApp::Markdown::Plugin/], {
    empty_element_suffix => '>',
    tab_width => 2,
});
 
use Text::Markdown::Pluggable;
my $m = Text::Markdown->new(
    plugins => [qw/Foobar +MyApp::Markdown::Plugin/],
);
my $html = $m->markdown($text);
 
use Text::Markdown::Pluggable;
my $m = Text::Markdown->new(
    plugins => [qw/Foobar +MyApp::Markdown::Plugin/],
    empty_element_suffix => '>',
    tab_width => 2,
);
my $html = $m->markdown($text);

プラグインを読み込むことを除けば， 使い方は Text::Markdown と同様だと思います．

サンプル

Text::Textile::Pluggable と同様，次の2つのモジュールを同梱しています：

• Text::Markdown::Pluggable::Plugin::GitHub::Links
• Text::Markdown::Pluggable::Plugin::GitHub::Gist

GitHub::Links プラグインのサンプル：

% perl -Ilib -M5.10.0 -MText::Markdown::Pluggable=markdown -le 'say markdown("github:issm")'
<p>github:issm</p>
 
% perl -Ilib -M5.10.0 -MText::Markdown::Pluggable=markdown -le 'say markdown("github:issm", [qw/GitHub::Links/])'
<p><a href="https://github.com/issm">github:issm</a></p>
 
% perl -Ilib -M5.10.0 -MText::Markdown::Pluggable=markdown -le 'say markdown("github:issm/p5-Text-Markdown-Pluggable", [qw/GitHub::Links/])'
<p><a href="https://github.com/issm/p5-Text-Markdown-Pluggable">github:issm/p5-Text-Markdown-Pluggable</a></p>
 
%

GitHub::Gist プラグインのサンプル：

% perl -Ilib -M5.10.0 -MText::Markdown::Pluggable=markdown -le 'say markdown("gist:123456")'
<p>gist:123456</p>
 
% perl -Ilib -M5.10.0 -MText::Markdown::Pluggable=markdown -le 'say markdown("gist:123456", [qw/GitHub::Gist/])'
<script src="https://gist.github.com/123456.js"></script>
 
% perl -Ilib -M5.10.0 -MText::Markdown::Pluggable=markdown -le 'say markdown("gist:123456#file1", [qw/GitHub::Gist/])'
<script src="https://gist.github.com/123456.js?file=file1"></script>
 
%

おわりに

以上，Markdown 記法をちょこっと独自拡張するのに便利かもしれないモジュール Text::Markdown::Pluggable を調子に乗って書いてみた，というお話でした．

やっぱり Markdown記法の方が需要はあるんですかね．私はとりあえず今のところ Textile記法推し（？）で生きていってみますｗ

あと，Markdown にしろ Textile にしろ，Bootstrap とかのCSSフレームワークと併用するとラクしていい感じのドキュメントページができますね！

はじめに

お仕事で情報をテキストで共有するための書式に利用したり，「SiTeWiki」とかいうものを作ったり，もちろんRedmineのテキスト入力系でも使ったり，と，Textile記法 にちょこっと触れている今日この頃です．特に，アプリケーションを実装する際には，CPANモジュール Text::Textile にはお世話になりっぱなしです．

そんな中，Redmineでの commit:abcdef とか #1234 とかの表記がと特定ページへのリンクに変換されるような処理を，Text::Textile を使ったアプリケーションにも組み込みたくなり，ただ，直接処理を書くよりは，拡張部分だけを使い回しできるようなしくみにした方が後々幸せになれそう，みたいな背景のもと，Text::Textile::Pluggable という俺得モジュールを書いてみました．

GitHub で公開するとともに，PrePAN にも submit してみました（初PrePAN！）．

• issm/p5-Text-Textile-Pluggable
• PrePAN – Text::Textile::Pluggable

概要と基本的な使い方

Text::Textile のサブクラスで，そこに「プラグイン」（作り方は後述）を読み込むしくみを追加しています．

使い方は次のとおりです：

use Text::Textile::Pluggable qw/textile/;
 
# procedural usage
my $html = textile($text, [qw/Foobar +MyApp::Textile::Plugin/]);
 
# OOP usage
my $textile = Text::Textile::Pluggable->new(
    plugins => [qw/Foobar +MyApp::Textile::Plugin/],
);
$html = $textile->process($text);

プラグインを読み込むことを除けば， 使い方は Text::Textile と同様です．（プラグインを読み込まなければ，Text::Textile そのまんまですねｗ）

プラグインの作り方

テキトーな名前のモジュールに，サブルーチン pre，post を準備します．

package Text::Textile::Pluggable::Plugin::Foobar;
 
# before proceccing textiled text
sub pre {
    my $textile = shift;
    my $text    = shift;  # text BEFORE processing
    ...
    return $text;
}
 
# after proceccing textiled text
sub post {
    my $textile = shift;
    my $text    = shift;  # text AFTER processing
    ...
    return $text;
}
 
1;

pre には Textile記法 → HTML 変換前のテキストに対する処理を，post には変換後のテキストに対する処理を記述します．必要なければ定義は不要です．

名前空間を Text::Textile::Pluggable::Plugin::* とすれば，プラグイン読み込み時に plugins => ['Foobar'] のように省略できますが，必ずこの名前空間に従う必要もなく，好きな名前で作れます．

package MyApp::Textile::Plugin;
 
...
 
1;

独自の名前で準備した場合には， plugins => ['+MyApp::Textile::Plugin'] とすることで読み込めます．

サンプル

サンプルプラグインとして，次の2つを同梱しました：

• Text::Textile::Pluggable::Plugin::GitHub::Links
• Text::Textile::Pluggable::Plugin::GitHub::Gist

GitHub::Links プラグインは，github:issm とか github:issm/p5-Text-Textile-Pluggable とかの表記を，GitHub へのリンクに置き換えます．

% perl -MText::Textile::Pluggable=textile -le 'print textile("github:issm")'
<p>github:issm</p>
% perl -MText::Textile::Pluggable=textile -le 'print textile("github:issm", [qw/GitHub::Links/])'
<p><a href="https://github.com/issm">github:issm</a></p>
% perl -Ilib -MText::Textile::Pluggable=textile -le 'print textile("github:issm/p5-Text-Textile-Pluggable", [qw/GitHub::Links/])'
<p><a href="https://github.com/issm/p5-Text-Textile-Pluggable">github:issm/p5-Text-Textile-Pluggable</a></p>

GitHub::Gist プラグインは，gist:123456 とか gist:123456#file1 とかの表記を，番号「123456」に該当する gist のコードを埋め込むためのコードに変換します．

% perl -MText::Textile::Pluggable=textile -le 'print textile("gist:123456")'
<p>gist:123456</p>
% perl -MText::Textile::Pluggable=textile -le 'print textile("gist:123456", [qw/GitHub::Gist/])'
<script src="https://gist.github.com/123456.js"></script>
% perl -MText::Textile::Pluggable=textile -le 'print textile("gist:123456#file1", [qw/GitHub::Gist/])'
<script src="https://gist.github.com/123456.js?file=file1"></script>

おわりに

以上，Textile記法をちょこっと独自拡張するのに便利（自称）なモジュール Text::Textile::Pluggable を書いてみた，というお話でした．

とりあえずは，お仕事用に作っているアプリケーションにおけるTextile記法まわりを拡張するところから始めてみるとします．

はじめに

明日朝早く起きられたら入鹿池まで行ってみよう，とさっき思い立った．
Twitter / @issm: 明日朝早く起きられたら入鹿池まで行ってみよう，とさっ …

こんな感じで前日に思い立ち，当日 4月15日，起きたら天気がよかったので，出かけてみました．

前回の入鹿池は次のとおり：

• aquaさんで入鹿池を一周してきた « いわぶろ（ろてん）

今回のルート

行きは国道19号線を，帰りはその1本東の「下街道」を通る感じで．

前回，周回中に道に迷いかなり時間を消費したのですが，今回は無事に迷わず回れたため，調子に乗って2周してみました．

以下，iPhoneアプリ Cyclemeter での記録ですが，序盤のデータが一部欠けちゃってるみたいです，残念：

スタート: 2012/04/15 5:27:09
バイクタイム: 4:28:04
停止時間: 43:11
距離: 85.79 km
平均スピード: 時速 19.20 km
最高スピード: 時速 62.49 km
登り: 679 メートル
降り: 660 メートル

もうひとつ，ルートラボにインポートしたもの：

• 2012-04-15 入鹿池 – ルートラボ – LatLongLab

写真いくつか

「尾張富士」の坂を上るルートを選択をしてしまいましたｗ 2周ともナントカ足をつかずに登り切れただけでもよしとしたいです＞＜：

ガンバレたのはこの子のおかげですね！：

このあたりは名古屋と比べて標高が高くて少し北にあるためか，桜がまだまだたくさん咲いていました：

2周終わったところで駐車場に戻ってみると，お店が開き始めていたので，何気なく立ち寄った「湖畔亭」というところで朝食：

「釣れたところをGPSの位置情報として記録して，次来たときもそのポイントを目指せるように，スマートフォンを使っている人もいる」みたいなお話をお店の方に聴きながら食べてました．

おわりに

以上，約2年ぶりに入鹿池まで行ってきたお話でした．

午前中に戻ってきたのに，そのあとウトウトしてしまい，この日はほとんど何もしていなかった気がします．．．＞＜

はじめに

2012年 4月 7日，いい天気だし，今年もいい加減桜をひと目見ておかないとね，ということで，昨年と同じく山崎川をぶらっとしてきました．天白川沿いもきれいだということで，ついでにそっちの方まで足を運んでもみました．

ルート

大まかにだけ決めて，あとはテキトーに．帰りは八事石坂を，自転車で初めて通ってみました．（もうちょっと距離があれば個人的にはよい練習になりそうですｗ）

以下，iPhoneアプリ Cyclemeter での記録です：

大きな地図で見る

スタート: 2012/04/07 6:59:04
バイクタイム: 2:03:00
停止時間: 0:00
距離: 28.49 km
平均スピード: 時速 13.90 km
最高スピード: 時速 48.32 km
登り: 105 メートル
降り: 114 メートル

山崎川沿い

昨年と違い，朝早めに出たので，人混みもなく快適に進めた感じです．

途中寄り道

個人的にお気に入りの場所：

天白川沿い

お祭りやってそうです：

天白川沿いは歩行者・自転車専用路として整備されているみたいです：

しかし，しばらく進んだら行き止まりになっちゃった：

反対側にまわって戻ります：

白トビしちゃってるけど，なんとなく幸せそうな 1枚：

お花見の場所取りが：

おまけ：豊橋日帰り輪行

2012年 4月 8日，実家に用事があったので，その移動手段のためだけに自転車を持って行きました．この日も風が強かった！

豊橋駅西口前のロータリーで組み立てて移動開始：

帰り，豊橋駅で自転車を袋詰めにしていると花火の音が．振り向いたら少しだけ見えました：

新幹線待ち．ホームは誰もいませんｗ：

名古屋駅からの帰りは，桜通りの桜もきれいでしたね．

おわりに

以上，ソフトに自転車を楽しんだ週末でした．

あと，実家のマシンに Dropbox を入れたので，データ共有が楽になりそうですな．

はじめに

去る 2012年 3月25日，サイクルショップカワタさん主催の奈良ツーリングにおジャマしてました．

以下，ルートとか写真とかをざっと．

今回のルート

自動車2台で片方に自転車を，片方に人間を，という感じで移動し，法隆寺近くの駐車場で自転車を下ろし，そこをスタート・ゴールとする，という計画です．

以下，iPhoneアプリ Cyclemeter での記録：

スタート: 2012/03/25 10:04:34
バイクタイム: 5:51:42
停止時間: 0:00
距離: 62.98 km
平均スピード: 時速 10.74 km
最高スピード: 時速 47.49 km
登り: 262 メートル
降り: 263 メートル

写真いくつか

積み込んだ自転車を下ろして，走りだす準備を：

奈良県はサイクリングロードが充実しているみたいです：

向こう側に見える上り坂．出だしからヘコタレそうになりますｗ：

平城京で記念（？）撮影：

東大寺の中は歩いて：

昔の雰囲気の残っている旧道いい感じです：

ルートは大雑把にしか決めていないので，定期的に地図を見ながら確認します：

私が持参したiPadの地図もなかなか重宝しましたｗ：

無事にゴール．小休憩して自転車を積み込みます：

その他いくつか上げてます：

• 2012-03-25 奈良ツーリング – a set on Flickr

走行後

スーパー銭湯「虹の湯」ってところで入浴＆夕食してから帰途についた感じです．

それにしても，鈴鹿あたり（だったか？）の渋滞はひどかった！

おわりに

以上，サイクルショップカワタさん主催の奈良ツーリングにおジャマさせていただいていた件を簡単に，でした．

この日はとにかく風が強く，横からあおられることもしばしばありました．転倒までは至りませんでしたが，なかなか油断ならんですｗ

2012年 3月24日，魔法少女まどか☆マギカ展 に行ってきてました．

そのときの写真をいくつか上げてますのでよろしければ．

• 2012-03-24 魔法少女まどか☆マギカ展 名古屋会場 – a set on Flickr

雨の中開場まで2時間くらい列に並んで待機したり，ポストカードセットとかマスケット銃的バウムクーヘンとかを買ったり，ゲームで3戦全敗したり，水橋かおりさん，加藤英美里さんのトークライヴを聴いたり，キュゥべえカレー食べたり，そして行列に流れながら各種の展示を眺めたり．．．とまぁそんな感じで堪能してました．

それにしても，人の熱気がすごかったですね！

あと，暗い中でのマニュアルフォーカス難しい！

はじめに

はてなさんで開催された，Kyoto.pm の記念すべき第1回目 におジャマさせていただいてきました．

加えて，飛び入り的にLTもさせていただいてきました．

LTの発表資料

会場でスライドをこさえ，以前書いた git-rebase-matsuri について発表しました．

発表資料は次のとおりです：

Nagoya.pm の存在もさりげなくアピールしておきましたｗ

git-rebase-matsuri については，以前のエントリもあわせて参照いただければ：

• [git][perl] rebase祭りを支援するツール「git-rebase-matsuri」というのを書いてみた « いわぶろ（ろてん）

LTに関する補足

コミットメッセージがカオスなのは，デモのときに毎回 touch $file && git add $file && git commit -m '...' とか打ってられないので，ワンコマンドでそのへんをしてくれるものをテキトーにでっちあげた，次の2つのシェルスクリプトによるものです．

# random
#!/bin/sh
PERL="/usr/bin/env perl"
DIGITS=$1
RANDOM_STRING=$($PERL -M5.10.0 -MString::Random=random_regex -e 'my $n = $ARGV[0] // 8; my $re = "[0-9a-zA-Z]{$n}"; print random_regex($re)' $DIGITS)
echo $RANDOM_STRING

# commit
#!/bin/sh
FILE=$(./random 8)
COMMIT_MESSAGE=$(./random 40).
touch $FILE
git add $FILE
git ci -m $COMMIT_MESSAGE

実行するとこんな感じ：

% ./commit
[master a04786a] PXfeCXb6jOuuTbOGEdRkZbQpzC5nPGqf0u6U9UQs.
 0 files changed
 create mode 100644 3FZcctwy

拾ったキーワードいくつか

• Perl入学式
  • 教え合うことは最大の勉強
  • WindowsユーザにはVMWare ＆ Ubuntuをインストール
  • 参加できなかった人向けに「補講」
  • IT勉強会スタンプラリー
• Job Queue
  • 処理を後回し → リアルタイム性の必要ないもの
  • client
  • worker
  • worker manager
• Qudo
• Jonk
• Clutch
• PJAX
• HTTPヘッダ X-PJAX: true
• Acme::Acotie
  • Class::Inspector
• Acme::FizzBuzz
• Acme::Monta
  • もんたメソッド
• dan
  • 空気読めないことで有名ｗ
• GrowthForecast
• HR
  • kazeburoさんが開発中
  • RRDtool不要
• impress.js
• rackhub
• oEmbed

駆けつけxaicronさん

xaicronさんが急遽東京から駆けつけられました．行動力すごいｗ 懇親会中に到着し，強制的にLTの運びとなりました．自作モジュールのお話など．

鴨川沿いで

懇親会の二次会は，鴨川沿いでビールとか餃子とか，でした．

卒業式の学校もあったようで，学生さんらしき方でごった返してました．トイレの待ち行列はまじかんべんでしたｗ

おわりに

以上，Kyoto.pm の第1回目におジャマさせていただいたお話でした．参加者・発表者のみなさま，ためになる＆楽しい時間をありがとうございました！

「Kyoto.pm の方向性」ということで shiba_yu36 さんがおっしゃっていた「アウトプット大事」，Nagoya.pm とか yuruperl とかでは，これがほとんどできていないので，これは見習わないといかん，と思った次第です．

ということで，yuruperl の第18回目が，4月7日にありますよ：

• 名古屋でPerl をゆるく語る会 #18 – [PARTAKE]