出かけるのであとで書く。出かけてる間に考えてみたら、dataまわりがちょっと気になるので、もう少し書き直してみます。目標は今年中。たぶんでけた。依存増えたけど気にしない。あとこのエントリ書いてからauthenticate、check-vimeo、check-audioを実装し…

HTTP::Response::Encodingがcharsetを引っ張ってこれないページ*1があったので、そこだけちょっと手を入れてみたり。 my $pagetitle = HTML::TreeBuilder::XPath->new->parse(decode $res->charset, $res->content)->eof->findvalue('//title'); $res->chars…

#!/usr/bin/perl use strict; use warnings; use File::Find::Iterator; use File::Spec; my $itr = File::Find::Iterator->create( dir => ['.'], filter => sub { /[\da-f]{64}\.(?i:jpe?g|png|gif)$/; }, ); while (my $f = $itr->next) { warn File::Spe…

今月も「緋色の風車」。あとNEEDLESSは冒険編。

計算結果がおかしいと思ったら、余剰で変なことになってた。簡単な例として、「5.0を1.5で割った余り」っていうのを示すと、JavaScriptの場合 js> 5.0 % 1.5 0.5なんだけど、Perlだと > perl -le "print 5.0 % 1.5" 0なのですね。このせいで変な結果になって…

2冊目が読みかけなので、まずそこから。だいぶこの間を読むまでにはだいぶ時間かかりそう。あと、パラパラめくってたとき、御大の名前が見えて吹いた。

これで東京創元版の全集は完結。青心社版のはまだ4巻までしか読んでないから次はそっちにも手を出したいなぁ。一番欲しいのは国書版のでしか出てない書簡集なんだけど、あれは国書の新しい版だと出ないんだよねぇ。

via http://d.hatena.ne.jp/makiton/20071207/1197027594 こうやれば出来ます。 use Text::CSV::Simple; use Encode qw/from_to/; my $parser = Text::CSV::Simple->new({binary => 1}); $parser->add_trigger(before_parse => sub { from_to($_[1], 'utf8',…

じゃあ何してるのって聞かれたら、twitterとかtumblr.とか？ あとはコワレロことEXEC_over.METHOD_SUBLIMATION/.〜ee wassa sos yeharが脳内でずっと繰り返されてます。うー、メッセもつなげてないなぁ。そのうち顔出さないと。