2004/09/19(日)日曜日ー。
[雑談] * アメリカ人に多い名前ランキング(Uniquee)
[雑談] * Let'snote Y2 HDD換装(cham-reo.com)
私は* CF-W2
が欲しい・・・。けど、30本もネジ外してHDD換装する勇気は無いなぁ。ふつーに* MyLet's倶楽部
で買ってしまいそう。（←根性なし関連：
[雑談] * KNOPPIX 系 Linux CD イメージ(kawa's memo)
色々方法があるんですねぇ。まー、全自動で書き込む系のコメントSPAMを防ぎたいのなら、単純に、1つ何かそのサイト特有のパラメータを追加しておくだけで良いかも？関連： * ツッコミspam祭(2) (ただのにっき)
[雑談] * 話題の「水のゼリー」ってどんな味？
すーごい微妙な顔が出てきますが、お試しあれ！(^-^;１．* 人生最良のパートナーを診る
２．* 人生最悪の敵を診る
３．* 人生をダメにする奴を診る
[雑談] 自作Googleメール用漢字コード変換フィルタ
ので無理を承知で書いてみましたが、・・・私の技術力ではやっぱり無理だったっぽいです。(笑) 素直に* はせがわさんに書いて頂き
ましょう。(^-^;（いや、忙しいのが収まったら、みんなのために、ぜひ。＞文字コードな人）
textileName Statistics では、アメリカ人に多い名前のランキングを掲載している。男性名、女性名、苗字のランキングに加えて、新生児に付けられた名前ベスト10もある。確かに見かけがちな名前が並んでますねー。どこから集めたんだろう？元データ。関連： * Name Statistics
[雑談] * Let'snote Y2 HDD換装(cham-reo.com)
私は* CF-W2
が欲しい・・・。けど、30本もネジ外してHDD換装する勇気は無いなぁ。ふつーに* MyLet's倶楽部
で買ってしまいそう。（←根性なし関連：
[雑談] * KNOPPIX 系 Linux CD イメージ(kawa's memo)
- Auditor security collection 日本語版
textileAuditor(監査人)はセキュリティツールを集めた１CDLinux.メニュー"Auditor"の下に大量のツールをインストールしてあるその方面に興味のある人には興味深いディストリビューションであるおぉ！！ でも．．．リンクが切れてる。(涙[雑談] * tDiaryでのロボットによるコメントSPAM対策(不便利メモ・改)
色々方法があるんですねぇ。まー、全自動で書き込む系のコメントSPAMを防ぎたいのなら、単純に、1つ何かそのサイト特有のパラメータを追加しておくだけで良いかも？関連： * ツッコミspam祭(2) (ただのにっき)
[雑談] * 話題の「水のゼリー」ってどんな味？
textile水はコンビニでクリスタルガイザー（カリフォルニアの涌き水）を買ってきました。お店の商品は、山梨県大菩薩嶺を水源とするナチュラルミネラルウォーターを使っているそう。水の種類を変えるとその微妙な違いも楽しめるとのこと。水の味って、そんなに違っているのか。うーむ、話のネタに一度食べてみたい気はする。まー、結局、味付けるのね！って感じもするけど。(笑) →『付属の黒みつ（又はシロップ）をかけながら食べる』[雑談] * 顔相モンタージュ 運命の人の顔はこれだ!!(ashの日記)
すーごい微妙な顔が出てきますが、お試しあれ！(^-^;１．* 人生最良のパートナーを診る
２．* 人生最悪の敵を診る
３．* 人生をダメにする奴を診る
[雑談] 自作Googleメール用漢字コード変換フィルタ
- umqさんにいぢめられた
ので無理を承知で書いてみましたが、・・・私の技術力ではやっぱり無理だったっぽいです。(笑) 素直に* はせがわさんに書いて頂き
ましょう。(^-^;（いや、忙しいのが収まったら、みんなのために、ぜひ。＞文字コードな人）
textile#!/usr/bin/perl# "gmail-filter.pl" by yamagata@openmya, 2004/09/19 $mail = ''; $header = -1; $gmail = 0; while(<>) { $mail .= $_; chomp; if($header && $_ eq '') { $header = 0; if($mail =~ /Content-Type:[^\r\n]+charset=UTF-8/i && $mail =~ /Content-Transfer-Encoding: base64/i) { $gmail = -1 $mail =~ s/(Content-Type:[^\r\n]+charset=)UTF-8/\1"iso-2022-jp"/; $mail =~ s/(Content-Transfer-Encoding:) base64/\1 7bit/; print $mail; $mail = ''; } }} if($gmail) { use Encode qw/encode decode/; require "jcode.pl"; use MIME::Base64; $mail = encode("euc-jp", decode("utf8", decode_base64($mail))); &jcode'convert(*mail, "jis");}print $mail;★|gmail-filter.pl |preline /var/www/common/mailman/mail/mailman post openmya★?UTF-8?Q? や ?UTF-8?B? なサブジェクトに対応してない。★本文が multipart だったらうまく行かないのが明白。(汗★RFCさわりくらいしか読んでない人間が書いてます。(←ダメ過ぎ★Perlだから処理が遅い。→つまり、結論＝使えない。はせがわさん、助けて〜。(涙[雑談] Subject:などの=?UTF-8?[BQ]?...?=に対応(gmailフィルタ)『while(<>) {』 と 『$mail .= $_;』の間に下記を追加。
textile for(;;) { if(($bq, $str) = /=\?UTF-8\?([BQ])\?([^\?]+)\?=/) { use Encode qw/encode decode/; if($bq eq 'B') { use MIME::Base64; $str = decode_base64($str); } else { use MIME::QuotedPrint; $str = decode_qp($str); } $str = encode("euc-jp", decode("utf8", $str)); &jcode'convert(*str, "jis"); $str = encode_base64($str); $str =~ s/[\r\n]//g; s/=\?UTF-8\?[BQ]\?[^\?]+\?=/=\?iso-2022-jp\?B\?$str\?=/; } else { last; } }★残念ながら Encode::MIME::Header は使えませんでした。。。（デコードした後に、どこをJIS等で再エンコードすれば良いか分からなくなってしまいました。(^-^;）★うーん、周りからは私がはせがわさんに無理に押し付けたように見えてたんでしょうか。orz