記事番号2512においてHiroshiさん曰く、
邪道かもしれませんが、次のようにソースを少し変更しましたら、偶然にも問題が解決致しましたのでご報告します
# ■ここからPukiWiki対策開始/タイトル
@wiki_title = split( /\//, $file ); # ファイルパスを/で分解する
my $org_title = pop(@wiki_title); # 配列の最後を取り出す。これは%なし
$title = $org_title ; # タイトルにすり替え
$title =~s/([A-Fa-f0-9]{2})/pack("c",hex($1))/ge; # デコード
$title =~ s/\.txt$// ; # 最後の.txtを削除
$title =~ s/\.$// ; # 最後の.を削除。1181のケースに対処
&jcode'convert (*title,euc) ; # 念のためEUCに変換
$title2 = $title ;（★ここに挿入）
# ■ここまでPukiWiki対策/タイトル
&jcode::tr(\$title,'０-９Ａ-Ｚａ-ｚ＋］［．（）？／＠−',
'0-9A-Za-z+][.()?/@-');
# ■ここからPukiWiki対策開始/URL
#$title2 = $title ; # タイトルをコピー（★コメントとして、上へ移動）
$title2 =~ s/(\W)/'%' . unpack('H2', $1)/eg; # URIエスケープ
$url =~ s/$org_title/$title2/; # ファイル名を%付きに置換
$url =~ s/index.php\?\//index.php\?/; # pukiwiki.php?/をpukiwiki.php?に
# ■ここまでPukiWiki対策/URL
※★が、今回変更したところです
勝手に変更して申し訳ありません。
もし、何か不具合がありましたら、ご指摘していただければ幸いです
ありがとうございました
|