出かけるのであとで書く。出かけてる間に考えてみたら、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が脳内でずっと繰り返されてます。うー、メッセもつなげてないなぁ。そのうち顔出さないと。

use strict; use warnings; use File::Find::Iterator; use IO::File; my $itr = File::Find::Iterator->create( dir => ['C:/Perl/site/lib/ppm-conf'], filter => sub { -f and /\.pkg$/ }, ); while (my $f = $itr->next) { my $fh = IO::File->new($f, '…

ふと自分のtumblrのエントリを1か月分ほど見てみる。なんかニヤニヤしてくるんだよね。だって自分の琴線に触れるモノばっかり出てくるわけだから。いや、自分でポストしたりreblogしてるんだから、「私の好きなモノ」ばかりで当然といえば当然なんだけど。

アンデルセン神父は退場。いっしょに由美江も退場。 ウォルターは吸血鬼化して若返り&敵対。若ウォルターもかっこいいんだけど、老人の頃のほうがもっとかっこよかった。ていうか執事はいつから別行動になってたっけ。 ルーク・バレンタイン復活&即退場。や…

tcool http://ppm.tcool.org/archives/Foo.ppd http://ppm.tcool.org/archives/Foo.tar.gz trouchelle http://trouchelle.com/ppm/Bar.ppd http://trouchelle.com/ppm/MSWin32-x86-multi-thread-5.8/Bar-0.1.zip

モッチーこと梅田望夫の新刊。読んだ。語りは熱いんだけど、なにか足りない気がしてならない。言葉、じゃないと思うんだけどなぁ。賛成とか反対とかそういうのじゃなくて、なんか受け入れがたいというか、心の中のあるべき所にすっきりと納まらない。どうも…

my $sth = $dbh->prepare('INSERT OR IGNORE INTO image (image_id, suffix, width, height, size, post) VALUES (?, ?, ?, ?, ?, ?)'); SELECT * FROM image WHERE 100 * height / width == 75 and width >= 1024 ORDER BY post DESC heightもwidthもINTEGE…

今書いているLaTeX用に書いたMakefile。汎用性とか一切無し。 DOC = source LATEX = platex DVIPS = dvipsk DVIPDFM = dvipdfmx RM = rm LATEX_OPT = -kanji utf8 DVIPS_OPT = -o $(DOC).ps DVIPDFM_OPT = RM_OPT = -f .SUFFIXES: .tex .dvi .ps .pdf .tex.d…