2003/12/31 (水) (at 実家)
(/_;) 大晦日ですね
そうですね。別にどうってこたぁありませんが、そんな中、実家の ISDN 回線を占領して SCP なんぞ大阪の家に向かって張りっ放しです（現在 6時間半経過）。（関係なし）
(/_;) 行く年、来る年
いつも思うんだけど、次の年に突入した途端、タイトルを「行った年、来た年」にしたほうがいいんじゃないかと。と書いている今は 17:15。まだ始まる気配さえないし。
(/_;) 別に新年を
どうこう思ったことはないし、今年からお年玉なんてものは存在しないし、むしろ取られそうな気配がする今日この頃、明日になったとたんに妹妹 my sister に10円くらいやろうかしら。怒るだろうな、きっと。
(/_;) むしろ
心配なのは、この日記のタイトルバーが上手く変わってくれるかだな。12/24は成功したのに 12/25 は失敗してたし。
(/_;) 帯域節約
になるのかどうかはしらないけど、新たに組んだ CGI に gzip (Gnu ZIP) で圧縮転送するものを組み込んでみた。相変わらず Perl。どうも Ruby は覚えるつもりないらしいね、私。
ブツとしては、ここ。ブラウザが対応していれば gzip で圧縮して送り出すようにしているんだけど、問題はそこよりも、統計計算するのに時間かかりすぎってことだな。リクエスト来てから Apache のログを 6000 件以上操作するんだから当たり前なんだけど。
しかも、このアクセスログは使うために組んだんじゃないからなぁ。だって、このサーバに来るアクセス全てに対して統計出してるから、何の意味もないのよ。私のデータしかないならともかく、妹妹の「闇のおへや」とか、ハブケンの SP の偽ミラーとか、HAMA の実験サイトとかあるからなぁ。/diary/ の中だけとか統計したらおもしろいのかしら。
(/_;) そして覚書。
gzip 周りのコード。定数とか使ってるのは相変わらず。
# 定数
sub GZIP { '/bin/gzip' }
sub GZIP_LEVEL { '-1'; } # -1 〜 -9。鯖負荷と速度をみて調整。。。
sub GZIP_DEBUG { 0; }
my $CrLf = "\x0d\x0a";
my $option = " -c " . GZIP_LEVEL . ((GZIP_DEBUG) ? ' -f' : '');
print 'Content-Type: application/xml; charset=EUC-JP' . $CrLf;
if((($ENV{'HTTP_ACCEPT_ENCODING'} =~ /((?:x\-)?gzip)/i) || GZIP_DEBUG) && (GZIP ne ''))
{
$gzipflag = 1;
print 'Content-Encoding: ' . $1 . $CrLf;
print $CrLf;
open(STDOUT, "| " . GZIP . $option);
binmode(STDOUT);
}
else
{
print $CrLf;
}あまり行儀はよくないプログラムかも。
ここんところ Perl 他人のプログラムを見てないからわかんないけど。
あ、5.8 使ってるのにいまだに jcode.pl とか使いたがるから行儀はよくないか。ここには現れてないけど。