namazu-ml(ring)

[Hirotaka Aoki <aoki@xxxxxxxxxxxxx>]

青木%perl初心者　と申します。
On Sat, 06 Feb 1999 11:47:57 +0900
Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx> wrote:

|もし原因がわからなければ私の方へ一つその msgXXXXX.html ファイルを
|送ってもらえれば、こちらで確認します。
別便で DM させて頂きました。

> mknmz では
> 
> | sub mhonarc_filter ($$) {
> |     my ($contents, $weighted_str) = @_;
> | 
> |     # MHonArc を使うときはこんな感じに処理すると便利
> |     $$contents =~ s/<!--X-MsgBody-End-->[\s\S]*//;
> |     $$contents =~ s/<!--X-TopPNI-->[\s\S]*<!--X-TopPNI-End-->//;
> |     $$contents =~ s/<!--X-Subject-Header-Begin-->[\s\S]*<!--X-Subject-Header-End-->//;
> |     $$contents =~ s/<!--X-Head-Body-Sep-Begin-->/\n/;  # ヘッダと本文を区切る
> |     $$contents =~ s/^<LI>//gim;   # ヘッダの前に空白をあけたくないから
> |     $$contents =~ s/<\/?EM>//gi;  # ヘッダの名前をインデックスにいれたくない
> |     $$contents =~ s/^\s+//;
> | }
の部分がうまく切り落とされていなかったので，

|sub mhonarc_filter ($$) {
|    my ($contents, $weighted_str) = @_;
|    # MHonArc を使うときはこんな感じに処理すると便利
|	
|    $$contents =~ s/<!--X-MsgBody-End-->.*//gis;
|    $$contents =~ s/<!--X-TopPNI-->.*<!--X-TopPNI-End-->//gis;
|    $$contents =~ s/<!--X-Subject-Header-Begin-->.*<!--X-Subject-Header-End-->//gis;
|    $$contents =~ s/<!--X-Head-Body-Sep-Begin-->/\n/;  # ヘッダと本文を区切る
|    $$contents =~ s/^<LI>//gim;   # ヘッダの前に空白をあけたくないから
|    $$contents =~ s/<\/?EM>//gi;  # ヘッダの名前をインデックスにいれたくない
|    $$contents =~ s/^\s+//;
|
|}

としたら意図した動作をしているみたいです。
お恥ずかしい話ですが，perl はほとんど触ったことがないので、
上記のように修正するのが本当に正しいのか自信がありません ^^;

よろしくお願いします。

--
株式会社テクノア システム部企画室 青木 宏恭 (Hirotaka Aoki)
URL:http://www.technoa.co.jp/ E-mail:aoki@xxxxxxxxxxxxx
PGP fingerprint:3E 20 8C F2 80 17 B1 9D  E1 17 A6 4A FD 2E E4 6D