namazu-ml(ring)

[Hirotaka Aoki <aoki@xxxxxxxxxxxxx>]

青木と申します。

On Sat, 06 Feb 1999 18:33:19 +0900
Satoru Takabayashi <satoru@xxxxxxxxxxxxx> wrote:

> Hirotaka Aoki <aoki@xxxxxxxxxxxxx> wrote:
> 
> >|もし原因がわからなければ私の方へ一つその msgXXXXX.html ファイルを
> >|送ってもらえれば、こちらで確認します。
> >別便で DM させて頂きました。
> 
> 確認しました。手元の環境では正常に処理できましたので、おそらく青木
> さんの環境 (たぶんPerl) に問題があるのでしょう。お使いの Perlのヴァー
> ジョンを教えていただけますか?

|> /usr/bin/perl5 -v
|
|This is perl, version 5.003 with EMBED
|        built under freebsd at May 17 1997 06:29:34
|        + suidperl security patch
 
ちなみに，OSは FreeBSD-2.2.8 RELEASE です。
      
> >|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+//;
> >|
> >|}
> >
> >としたら意図した動作をしているみたいです。
> 
> なるほど。では v1.3.0.3 からはそのように変更します。元の [\s\S]* 
> なんて Perl4 的な便法ですしね。
> 
動いているんですが，上記のコードでコーディング上の問題はないでしょうか？
自信がないんで、不安です ^^;

よろしくお願いします。
--
株式会社テクノア システム部企画室 青木 宏恭 (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