まさおのChangeLogメモ / 2002-04-30

いや、単に To: Cc: などを記入する際に Aliases の情報を元に TAB な
どで自動補完してくれると嬉しいな、ということ。
っていうか、アホな間違いをしないで済むよね。

手法:
1. mnews のソースをいじる。
2. mutt を使う。
3. BBDB を使う。

のどれを使うか検討中。

阪口先生は「sendmail.cf をいじる」を教えてくれたが、そいつはさすが
に…。

できるだけ無作為にショッピングサイトを抜き出したいので、売上高別の
ランキングなどの情報が欲しかったのだが、あまり見当たらない。

参考サイト:

・｢インターネット・ショッピング利用実態調査｣:
http://www.commerce.or.jp/enq/report/enq11/2.html

実際の利用サイト名がわかる貴重な資料。
ただし、ちょい情報が古いのが難点か。（翌年度からは、この情報が無く
なってるんだよね…）

・電子商取引推進協議会: http://www.ecom.or.jp/

「平成13年度電子商取引に関する市場規模・実態調査」
http://www.ecom.or.jp/press/20020219_1.html
→ ちょっと概況すぎ。

・JADMA 日本通信販売協会: http://www.jadma.org/

「オンラインマーク付与事業者一覧リスト」 http://www.jadma.org/ost/
→ 2002-04-29 現在で 255 と多いけど、そこそこ使えるかも…。

http://www.daifukuya.com/kagemai/
eRuby による実装。

インストールとカスタマイズの容易さが大きな特徴か。
結構前から気にはなってるので、あとで見てみよう。

メモ。
http://www.matsusaka-u.ac.jp/~okumura/networking/webmail.html

M1 の Elena さんのエントリが 3 つもあったので、センターに聞いてみ
たところ、「登録ミス」とのこと。

一応、確認用に作った /etc/passwd から同姓同名を抜きだすスクリプト。

use strict;
my %uinfo = ();
while (<>) {
  my @tmp = split(/:/);
      if (defined($uinfo{$tmp[4]})) {
         $uinfo{$tmp[4]} .= " $tmp[0]";
        } else {
         $uinfo{$tmp[4]} = $tmp[0];
        }
  }
}
for my $gcos (keys %uinfo) {
  print "$gcos\t=> $uinfo{$gcos}\n" if ($uinfo{$gcos} =~ /\s/);
}

なにげに、"Hitomi Saito" が複数あったりして、おもろかった。

何度かインストールしてみているものの、検索文字列にNKF相当の処理を
加えていないのが気になってしまっている。

SearchEngine ディレクティブに Encoding 情報を付加して、解析時に
iconv() で変換できるように改造すれば、良いかも…。

とりあえず、Perl で検索文字列を access_log から抜き出すには、↓。

use Text::ParseWords;
while (<>) {
  @f=quotewords(" ",0,$_);
  $referer = $f[8];
  if (/[pq]=([^;&]+)) {
   $search_string = $1;
        $search_string =~ s/%([A-F0-9][A-F0-9])/chr(hex($1))/gie;
        $search_string =~ s/\+/\ /g;
        print $s
  }
}