:-): 朝ったー, 通勤ったー, 仕事, RSS を作る手段, プロジェクトの最初にやること, お世話になっているプログラムの求めしところ, がらくたを読む - clgrep, 百度(baidu)がツンツンすぎる, NetBSD current..

2008-03-05 :-)

_ 朝ったー

0540 起床。ねむ。

_ [植松伸夫][ファイナルファンタジーV ディア・フレンズ]通勤ったー

ファイナルファンタジーV ディア・フレンズ

FF5 アレンジです。オリジナルに近いアレンジです。1 曲目「AHEAD ON OUR WAY」( ファイナルファンタジーＶメインテーマ )はフルートかしら？オリジナルの柔らかい曲の雰囲気を再現しています。全体的にゆるい曲をアレンジしてるのでアルバム全体の雰囲気もゆるくなっています。

スタッフとして「おれたちゃ海賊」に植松伸夫さんや岡宮道生さんなどスクウェアのスタッフが参加してたり、「栄養ドリンク提供：植松玲子、伊藤裕之」などと書いてあったりお茶目です。

B00005FNVP

_ 仕事

0830 出勤。

_ [RSS]RSS を作る手段

なんでもRSS する
Plagger でがんばる

_ プロジェクトの最初にやること

trac月 - コマンドプロンプト - create-project.bat MyProject
mkdir -p G:\MyProject\branches
mkdir -p G:\MyProject\tags
mkdir -p G:\MyProject\trunk
G:\MyProject をリポジトリへインポート
G:\MyProject を削除
G:\MyProject へをチェックアウト

_ お世話になっているプログラムの求めしところ

オペレーティングシステムの求めしところに便乗します。

NetBSD

NetBSD is a free, secure, and highly portable Unix-like Open Source operating system available for many platforms, from large-scale server systems to powerful desktop systems to handheld and embedded devices. Its clean design and advanced features make it excellent in both production and research environments, and the source code is freely available under a business-friendly license.

Apache

The Apache HTTP Server Project is an effort to develop and maintain an open-source HTTP server for modern operating systems including UNIX and Windows NT. The goal of this project is to provide a secure, efficient and extensible server that provides HTTP services in sync with the current HTTP standards.

qmail

qmail is a secure, reliable, efficient, simple message transfer agent. It is designed for typical Internet-connected UNIX hosts. As of October 2001, qmail is the second most common SMTP server on the Internet, and has by far the fastest growth of any SMTP server.

djbdns

It works for Lycos. It works for citysearch.com. It works for pobox.com. It works for 1.85 million more .com's. It works for several of the Internet's largest domain-hosting companies: directNIC, MyDomain/NamesDirect, Interland, Dotster, Easyspace, Namezero, Netfirms, and Rackspace Managed Hosting. It'll work for you too.

求めしところ？ qmail.jp はこんな。

djbdns

djbdns は安全、確実、高速、簡潔、設定も簡単なDNS サーバとツール群です。

The Postfix Home Page

Postfix attempts to be fast, easy to administer, and secure. The outside has a definite Sendmail-ish flavor, but the inside is completely different.

ZSH - THE Z SHELL

Zsh is a shell designed for interactive use, although it is also a powerful scripting language. Many of the useful features of bash, ksh, and tcsh were incorporated into zsh; many original features were added. The introductory document details some of the unique features of zsh. It assumes basic knowledge of the standard UNIX shells; the intent is to show a reader already familiar with one of the other major shells what makes zsh more useful or more powerful.

Vim

Vim is a highly configurable text editor built to enable efficient text editing. It is an improved version of the vi editor distributed with most UNIX systems.

Vim is often called a "programmer's editor," and so useful for programming that many consider it an entire IDE. It's not just for programmers, though. Vim is perfect for all kinds of text editing, from composing email to editing configuration files.

Despite what the above comic suggests, Vim can be configured to work in a very simple (Notepad-like) way, called evim or Easy Vim.

Emacs

Emacs is the extensible, customizable, self-documenting real-time display editor.

quickml

quickmlサーバは超お手軽なメーリングリストシステムです。 quickmlサーバを利用すれば、超お手軽なメーリングリストサービスを提供できます。

_ [Perl][Schwartzian Transform][ChangeLog][シュウォーツ][コードリーディング][がらくた][高林哲]がらくたを読む - clgrep

http://0xcc.net/attic/clgrep

ChangeLog を grep します。

ruby で書き直したものが横着プログラミング第1回: Unixのメモ技術にありますが、せっかくだからがらくたのほうを読みます。Unixのメモ技術のほうがコードが短くなっていますが、これはがらくたにあるコードから機能を削除したためです。

Perl プログラムです。

#! /usr/bin/perl -w
#
# clgrep - ChangeLog grep

#
# Copyright (C) 2000 Satoru Takabayashi <satoru-t@is.aist-nara.ac.jp>
#     All rights reserved.
#     This is free software with ABSOLUTELY NO WARRANTY.
#
# You can redistribute it and/or modify it under the terms of
# the GNU General Public License version 2.
#

Getopt::Long を使ってオプションを解析します。

Getopt::Long::Configure('bundling');
GetOptions(
           'i|ignore-case'   => \$opt_icase,
           'p|sort-by-page'  => \$opt_sort,
           's|statistics'    => \$opt_stat,
           );

hio.jp のひとが和訳してくれているのでそちらを読みます。

Getopt::Long - 高機能なコマンドラインオプション解析

bundling はオプションの合成にあります。オプション -v -a -x を -vax と合成する機能です。

オプションの概要はあるのだけど具体的にどのような動作をするのかよく分からないので実際に使ってみます。quickml の ChangeLog に使ってみます。

普通に clgrep

% ./clgrep 2004 ~/usr/local/quickml-0.7/ChangeLog
2004-06-09  Satoru Takabayashi  <satoru@namazu.org>

2004-06-08  Satoru Takabayashi  <satoru@namazu.org>

2004-05-17  Satoru Takabayashi  <satoru@namazu.org>

2004-04-01  Satoru Takabayashi  <satoru@namazu.org>
 :

変更したファイル名と変更した回数を印字するようです。

% ./clgrep -s ~/usr/local/quickml-0.7/ChangeLog
      41 lib/quickml/core.rb
      28 quickml
      22 lib/quickml/mail.rb
      19 lib/quickml/server.rb
      19 lib/quickml/config.rb
      14 quickml.in
      12 Makefile
      10 lib/quickml/utils.rb
       6 quickmlrc.sample.in
       5 lib/quickml/gettext.rb
 :

大文字小文字を区別しない。

 % ./clgrep -i SATORU ~/usr/local/quickml-0.7/ChangeLog
2004-06-09  Satoru Takabayashi  <satoru@namazu.org>

2004-06-08  Satoru Takabayashi  <satoru@namazu.org>

2004-05-17  Satoru Takabayashi  <satoru@namazu.org>

2004-04-01  Satoru Takabayashi  <satoru@namazu.org>

2004-03-28  Satoru Takabayashi  <satoru@namazu.org>

オプション -p が何をやってるのか分からないのでコードを見てみます。sort_by_page です。

sub sort_by_page {
    my @logs = @_;

    return map {
        $_->[0];
    } sort {
        $a->[1] <=> $b->[1];
    } map {
        if (/^    \* .*?\(pp?\.(\d+)/) {
            [ $_, $1 ];
        } else {
            [ $_, 0 ];
        }
    } @logs;
}

map と sort を駆使した処理を「 Schwartzian Transform 」と言うのだそうです。

行データを、指定したフィールドでソートするようなときには、ずばり「シュウォーツ変換 (Schwartzian Transform)」!!! 比較の度にいちいち split する手間がはぶけて効率的!

「Effective Perl」に詳細が書いてあるそうです。持ってません。誰かください。

if (/^ \* .*?\(pp?\.(\d+)/) はページ番号(「p.」または「pp.」)にヒットします。たとえば ruby の ChangeLog にそのような箇所があります。

Wed Aug 22 05:51:23 2007  Yukihiro Matsumoto  <matz@ruby-lang.org>

  * util.c (ruby_strtod): replaced by the implementation by David
    M. Gay inspired by William D. Clinger's paper "How to Read Floating
    Point Numbers Accurately" [Proc. ACM SIGPLAN '90, pp. 92-101].
    a patch from Satoshi Nakagawa <snakagawa AT infoteria.co.jp>.
    [ruby-dev:31582]

論文を引用するなどした場合に ChangeLog に書くんですね。

4756130577

_ [百度][baidu]百度(baidu)がツンツンすぎる

% grep "Wed Mar 05" /var/log/httpd/error_log | grep -E '122\.152\.(140|128)' | awk '{ print $8}' | tr -d ] | sort | uniq -c | sort -nr
2217 122.152.140.170
2204 122.152.128.11
2193 122.152.128.6
 156 122.152.140.5
 101 122.152.140.7
  18 122.152.128.78
   5 122.152.140.139
   3 122.152.128.49
   2 122.152.128.46
   2 122.152.128.47
   1 122.152.140.140
   1 122.152.140.16
   1 122.152.140.40

% grep "Wed Mar 05" /var/log/httpd/error_log | grep -E '122\.152\.(140|128)' | awk '{ print $8}' | tr -d ] | wc -l
    6907

_ [NetBSD][current]NetBSD current を追いかけるなどした

$ uname -a
NetBSD yukina.area51.gr.jp 4.99.55 NetBSD 4.99.55 (GENERIC) #0: Wed Mar  5 20:27:44 JST 2008  rin@yukina.area51.gr.jp:/usr/obj/sys/arch/i386/compile/GENERIC i386