Re(5):Perlでインデックスの自動更新
記事番号：1781
記録日 ：2005年 5月12日 00:22
記録者 ：penguin-19
Ｗｅｂ ：msearch掲示板で過去にあった事例
参照記事：記事番号1780
改造後のファイルをどこかにおこうかと思いましたが、著作権の問題があるので改造品の再配布はまずいので見合わせます。
前回同様、メイン処理の後をそっくり次のように差し替えてください。
##################
### メイン処理 ###
##################
$kanji = "EUC";# このファイルの文字コードがEUCの場合。実態に合わせてJIS/SJISにする。
# インデックスの名前は？
$qarg->{'index'} = "▲testindex▲";
# インデックス対象ディレクトリは？(必須)
$qarg->{'includedir'} = "▲../▲";
# インデックス対象ディレクトリのURLは？(必須)
$qarg->{'includeurl'} = "▲http://aaa/bbb/▲";
# インデックス対象ファイルの拡張子は？(必須)
$qarg->{'suffix'} = "▲.html,.shtml▲";
# 非インデックス対象ディレクトリは？
$qarg->{'excludedir'} = "▲cgi-bin▲";
#非インデックス対象ファイルは？
$qarg->{'excludedir'} = "▲frame.html,menu.html▲";
# 非インデックス対象キーワードは？
# このファイル自体がeucなので文字コード変換は省略
$qarg->{'excludekey'} = "▲キーワード1,キーワード2▲";
# ランキング方法は？
# 数字ではなく、/の右の文字列で指定する
# [1] 最終更新日時-降順/MODIFY-DESC
# [2] 最終更新日時-昇順/MODIFY-ASC
# [3] タイトル-降順/TITLE-DESC
# [4] タイトル-昇順/TITLE-ASC
# [5] URL-降順/URL-DESC
# [6] URL-昇順/URL-ASC
# [0] なし/NONE
$qarg->{'sort'} = "▲TITLE-DESC▲"; # タイトル-降順の例
# alt属性の文字をインデックスに含めますか？
# [1] 含める
# [0] 含めない
$qarg->{'rescuealt'} = "▲1▲"; # 含める例
### インデックス作成
makeindex();
### 終了
exit;
###############################
### genindex.plに個有の関数 ###
###############################
###
### 出力関数
###
sub printout {
my $str = $_[0]; # 文字列(引数)
if($kanji eq "EUC") {
# EUCの場合
print $str;
} elsif($kanji eq "JIS") {
# JISの場合
&jcode::convert(\$str,"jis");
print $str;
} else {
# SJISの場合
&jcode::convert(\$str,"sjis");
print $str;
}
}
|
このスレッドの表示
現在の記事よりも下流のものは内容も表示されます。
下流の記事は、そのタイトルをクリックすることでその記事に直接返信することもできます。
|
|
−1781.->Re(5):Perlでインデックスの自動更新（現在の記事）<-：2005年 5月12日 00:22
|
|
|
−1783.
解決いたしました - 感謝・感動 - |
|
|
(Rep.to No.1781.)
そら：2005年 5月12日 14:16
penguin-19様
ありがとうございました。うまくいきました。
コマンドラインで成功したので、
cronに登録して目的達成いたしました。
昨日は夜遅くのレス、本当にありがとうございました。
パスの部分で上手くいかない部分があったので、
以下のように修正しました。
念のために記載しておきます。
問題があれば教えてください。
-----------------------------------------
※cronindex.pl
require '/AAA/BBB/CCC/jcode.pl';
require '/AAA/BBB/CCC/indexing.pl';
$qarg->{'includedir'} = "/AAA/BBB/CCC/";
-----------------------------------------
※indexing.pl
### インデックス名を作成
if($qarg->{'index'} ne "") {
$g_index = "/AAA/BBB/CCC/" . $qarg->{'index'} . ".idx";
} else {
$g_index = "/AAA/BBB/CCC/default.idx";
}
-----------------------------------------
→＜理由＞カレント以外で実行すると見つからない、
もしくはインデックスファイルの作成場所が変わってくるため
また、penguin-19さんに教えていただいたソースの以下を修正しました。
-----------------------------------------
>#非インデックス対象ファイルは？
>$qarg->{'excludedir'} = "▲frame.html,menu.html▲";
→ $qarg->{'excludefile'} = "▲frame.html,menu.html▲";
--------------------
|
|
|
−1785.
Re:解決いたしました - 感謝・感動 - |
|
|
(Rep.to No.1783.)
penguin-19：Web:msearch掲示板で過去にあった事例：2005年 5月13日 11:43
>penguin-19様
いや、様付けは……(^^;
>ありがとうございました。うまくいきました。
よかったです。
でも、結局indexing.plにも手を入れなくてはいけなかったんですね。パスも絶対パスでないといけなかったり。
ともあれお疲れさまでした<(_ _)>
>また、penguin-19さんに教えていただいたソースの以下を修正しました。
>-----------------------------------------
>>#非インデックス対象ファイルは？
>>$qarg->{'excludedir'} = "▲frame.html,menu.html▲";
>
> → $qarg->{'excludefile'} = "▲frame.html,menu.html▲";
ひー、お恥ずかしい。ご指摘の通りです<(_ _)>
--------------------
|
Paddie's BBS Ver. 8.1.6.
(C) 1999-2001 Paddie.
|