vim -c "argdo %s/FooBar/BarBaz/gce | update" **/*.pm

ずっとこれを追いもとめていた気がします

• http://search.cpan.org/~satoh/Text-Xatena/

インラインシンタックスはもうすこし抽象化して拡張しやすくしたいですが、とりあえず使えているバージョンを CPAN に上げました。0.01 リリース直後に use 忘れを指摘して頂いたので 0.02 になってます。

テストで http://example.com/ へアクセスするコードにしているせいで場合によってテストが落ちるのをなんとかしたいのですが、Test::HTTP::Server::Simple を使うと Test::Base あたりの組み合せでどうしてもうまくいかないのでそのうちどうにかしたいです。

• http://github.com/cho45/Text-Xatena

{
    use utf8;
    my $a = [ foo => "bar" ];
    warn utf8::is_utf8($a->[0]); #=> true
    warn utf8::is_utf8($a->[1]); #=> false
};

{
    no utf8;
    my $a = [ foo => "bar" ];
    warn utf8::is_utf8($a->[0]); #=> false
    warn utf8::is_utf8($a->[1]); #=> false
};

死ぬほどハマった。

use Encode;
use HTTP::Request::Common;
use Data::Dumper;

{
    use utf8;
    my $s = encode_utf8("ああああ");
    my $req = POST "/", [ test => $s ];
    warn Dumper $req ;
};

print "\n\n";

{
    no utf8;
    my $s = "ああああ";
    my $req = POST "/", [ test => $s ];
    warn Dumper $req ;
};

みたいなとき、まず気付かない……

• JSDeferred のリリース → done 0.3.1 (bug fixes)

gerry++

Perl のことを CGI って呼ぶような時代がいつ終わったのかは知りませんが、CGI で動き常用できるブログ・ダイアリーシステムが欲しいと思いはじめたのでサクっと Perl で書いてみました。

「常用できるブログシステム」の要件というのは、僕にとっては以下の通りで、必要最低限の実装になっています。

• その場編集機能が使える
• はてな記法が使える
  • でも自動リンクは特にいらない
• タグが使える
  • はてなダイアリのカテゴリは所謂タグです

今まで散々 blosxom のクローンを作ってきましたが、RDB をデータストアに使ったブログシステムは初めてつくる気がしました。blosxom クローンとの違いは編集機能ですね。

• http://github.com/cho45/Niro

git clone して git submodule update --init して対象サーバに rsync すれば動くようになっていると思います (そのように開発をしているので)

sub select {
	my ($self, $sql, $hash, $array, $name) = @_;
	unless ($name) {
		($name) = ($sql =~ /FROM ([^\s]+)/i)
	}
	[ $self->search_named($sql, $hash || {}, $array || [], $name) ];
}

jsdeferred の recipe をかく