Perl の処理速度を比較するために使用するモジュールです。複数の処理の処理速度を求めて比較できます。
URL デコードの二つを例にします。「Perlの小部屋」という文字列をデコードしています。
#! /usr/bin/perl
use Benchmark;
$count = 100000; $value = "Perl%E3%81%AE%E5%B0%8F%E9%83%A8%E5%B1%8B";
timethese($count, {'TEST1' => '&test1;', 'TEST2' => '&test2;', });
sub test1 { $str = $value; $str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("H2", $1 )/eg; }
sub test2 { $str = $value; $str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1) )/eg; }
» 続きを読む...
11:21 | コメント (0) | トラックバック(0)
ImageMagick の Perl 用フロントエンド(?)です。画像を色々といじれます。
まず、example.jpg のサイズを半分にします。Read で読み込み、Minify でサイズ変更、Write で書き出しです。
#! /usr/bin/perl
use Image::Magick;
$img_file = "example.jpg";
$i = Image::Magick->new; $i->Read($img_file); $i->Minify(); $i->Write("$img_file");
» 続きを読む...
13:15 | コメント (2) | トラックバック(0)
SONYは相変わらず左利き差別か というのを見て、利き手と端末を操作する手に関して右利きの自分はどうなのかを考えてみた所、携帯電話や iPod なんかの小物は左手で操作している事がわかった。
他の人はどうなのか気になったので、携帯電話の操作をどちらの手で行なうのかを 昼休みに同僚に訪ねた所 右利き2名中2名共が右手で操作していると言う事。
帰ってから相方さんに尋ねてみた所、やはり右利き右手操作らしい。
外で歩いている人を見ていると、左手で操作をしている人も居るんだけど、利き手がわからないので何とも言えない。もしかして、カバンを持つのが右手と決まっていて空いている方の手で操作しているだけかもしれないし。
今まで当然のように左手で操作していたんだけど、他にもコップやカバン、傘を持つのはどちらの手になるのか、一度気になりだしたら色々気になってきます。
18:03 | コメント (1) | トラックバック(1)
postfix + courier でメールサーバ構築。
POP3-SSL、IMAP4-SSL、SMTP-AUTH(SSL)、バーチャルドメイン・ユーザ、ウィルスチェック、ウェブ経由のアカウント管理という所まで出来るようになった。
で、ドキュメントっていうか覚え書きっていうか、インストールの作業メモを簡単に書いたので、公開します。多分後日もっとちゃんと整理します。やる気あれば。
全部終わってからまとめて書いたので、この通りにやってもここに書いてある通りに順風に進まないかもしれません。そのうち素の状態からこの通りに作業してどうなるかをチェックしたいのですが、それはまた暫く先になりそう。
参考にしたページ
» 続きを読む...
17:01 | コメント (10) | トラックバック(0)
