Namazu-devel-ja(旧)

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: MHonArc の Subject 処理

>                                            千葉市中央区長洲
>                                                    藤原  誠
恥をしのんでもう一つ。
(1) perl 手続
と
(2)その実行結果です。

  正直のところ何をやっているのか分っていない部分がありますが、
自分のところで(多分)問題が出ないので、こんなものかと。

  手続の方は euc で送る必要があるのですが、text/plain でお送り
します。
---
(藤原)
http://www.ki.nu/software/namazu/tutorial/
#!/usr/local/bin/perl
# This should be in EUC-JP
$NAMAZU = '/usr/local/share/namazu/';
push(@INC, $NAMAZU.'filter');
push(@INC, $NAMAZU.'pl');
require 'mhonarc.pl';

$content = 
"<html>
<head>
<title>[hoge:00740] Re:
よろしくおねがいします
</title>
</head>
<body>
<!--X-Body-Begin-->
<!--X-User-Header-->
<!--X-User-Header-End-->
<!--X-TopPNI-->
<hr>
<!--X-TopPNI-End-->
<!--X-MsgBody-->
<!--X-Subject-Header-Begin-->

<h1>
level one heading begin
[hoge:00740] Re:
よろしくおねがいします
level one heading end
</h1>
本文
</body>
</html>
";

print " ------------ O R I G I N A L ---------------\n";
print $content;

$fname = 'msg00003.html',
%fields = ();
$weighted = '';
$var::Opt{'debug'} = 1;

mhonarc::filter(\$fname ,\$content,\$weighted,\$headings, \%fields);

print " ------------ C O N T R E F -----------------\n";
print $content;
print " ---------- W E I G H T E D _ S T R ---------\n";
print $weighted;
print " -----------------  H E A D -----------------\n";
print $headings;
print " --------------- S U B J E C T---------------\n";
print $fields->{'subject'};
print " --------------- T I T L E ------------------\n";
print $fields->{'title'};
print " --------------- F i e l d  k e y s  --------\n";
foreach $i ( keys %fields) {
    print $i,"\n";
}
__END__
sub filter ($$$$$) {
    my ($orig_cfile, $contref, $weighted_str, $head, $fields)
      = @_;
makoto@u ■21:55:35/010913(/tmp)> ~/perl/practice/squash
 ------------ O R I G I N A L ---------------
<html>
<head>
<title>[hoge:00740] Re:
よろしくおねがいします
</title>
</head>
<body>
<!--X-Body-Begin-->
<!--X-User-Header-->
<!--X-User-Header-End-->
<!--X-TopPNI-->
<hr>
<!--X-TopPNI-End-->
<!--X-MsgBody-->
<!--X-Subject-Header-Begin-->

<h1>
level one heading begin
[hoge:00740] Re:
よろしくおねがいします
level one heading end
</h1>
本文
</body>
</html>
@@ Processing MHonArc file ...
// -- title --
// [hoge:00740] Re: よろしくおねがいします
// -- content --
// level one heading begin
// [hoge:00740] Re:
// よろしくおねがいします
// level one heading end
// 本文
// -- weighted_str: --
// [hoge:00740] Re: よろしくおねがいします/
// 1/1
// -- headings --
 ------------ C O N T R E F -----------------
level one heading begin
[hoge:00740] Re:
よろしくおねがいします
level one heading end
本文
 ---------- W E I G H T E D _ S T R ---------
[hoge:00740] Re: よろしくおねがいします/
1/1
 -----------------  H E A D -----------------
 --------------- S U B J E C T---------------
 --------------- T I T L E ------------------
 --------------- F i e l d  k e y s  --------
title
makoto@u ■21:55:45/010913(/tmp)>