2010-11-01から1ヶ月間の記事一覧

Furlを使ってみた。

tokuhirom氏作成のモジュールFurlを使ってみた。 ニコ動の毎時のランキングを 20個分表示するという単純なもの。 まあこんな単純なものではそこまで影響が出るわけでないので あれですが、LWP::UserAgentのインタフェースみたく使えるから、 LWP::UserAgent…

Zipアーカイバ改良。

Windowsから送られてきた Zipファイルの展開 - Life is very shortで作ったけど、 テストしやすいように書きなおした。ついでにマッチするものだけ展開する オプションを追加。基本的に全部展開でいいと思うんだけど、不要な広告 ファイルはいらね、ってとき…

行番号挿入プログラムの改良

プログラムを打ち合わせ資料に貼り付けるときに使っていたものが あったんだけど、数百行ぐらいになるとちょっともっさりってことで 改良。何行あるか一行一行数えていたんだけど、line-number-at-pos っていう関数が Emacs22であったから、それを使ってみま…

selectシステムコールのサンプル

完全に写経でしかないのですが。selectシステムコールの例。 複数のファイルハンドルを待つっていう状況がイメージしづらい ですが。ネットワークとかデバイスの状態を複数監視というのに 使えるのだろう。 とりあえず使ってみないとイメージわかないから、 …

navi2chの設定

Firefoxの chaikaがなんかすごく調子悪いので navi2chを導入。設定がよくわからないんだけど、デフォルトでは 100までしか レスが見れなかったので、それを 1000にしたぐらい。スレ開くまでの 時間が若干気になるけど、開いて更新する分は大丈夫そう。 ;; na…

WWW::Curlを使ってアプリを書いてみた

WWW::Curlを使う練習。もともとは LWP::UserAgentを使っていたんですが、 ちょっとでも早くなったらいいかなと思って書き直した。 ネットワークが一番ボトルネックになるから、そんな大差はない 気がするけど、早めにレスポンスが返るときはより早くなったか…

Set::ArrayでSEGV

SEGVが発生してしまったのだが、どう解析をするもんだろうか? #!/usr/bin/env perl use strict; use warnings; use autodie; use Set::Array; my $a = Set::Array->new(1, 2, 3, 4, 5); my $b = Set::Array->new(3, 4, 5); #my @c = $a->difference($b); # …