YukiWikiの改造メモ
ページタイトルをキーワードに検索結果をリンクとしてページ貼り付ける改造
use LWP::Simple;
print_footer関数のmy ($page) = @_;
の直後に以下を追加
# JK
my $myWikiUrl = "http://nadesico.nergal.lan/~junichi/cgi-bin";
my $pName = @{[&escape($page)]}[0];
if($pName =~ /^SearchPage/ or $pName =~ /^FrontPage/) {
} else {
my $keyword = encode($page);
print "<hr><h2>AutoLink</h2>";
my $url = $url_cgi . "?mycmd=search&mymsg=" . $keyword;
my $contents = get("$myWikiUrl/$url");
my @contents = split(/\n/, $contents);
foreach(@contents) {
if(/^<ul>/) {
print;
}
}
}
# JK
関連記事
- PerlからWin32を使う
- 文字化け解消[Net::Amazon]
- Perl XMLでencoding='Shift_JIS'や'euc-jp'を使う
- LWP::Simpleのプロキシ設定
- やっぱりあったbasename
- find2perl
- \のコードを含む2バイト文字の対応
- mkdir -pの代わり
- はてなブックマークAtomAPIで大量登録
- Net::Amazon::Property::Music
- Perl/TkでIP Messenger
- IE7をPerlで操る
- 古いCPANモジュールのアップデート方法
- All is not a valid value for jp::Keywords
- #trouble #solved #ffmpeg 連番って連番でないとno such file error!を食らう！
- perldocがpermission deniedされてperlbrewを導入
- ll言語でhttpsサーバを作る
