#!/usr/local/bin/perl $in2 = $ENV{HTTP_REFERER}; # "?" より前と後に分ける $qp = index($in2, '?'); if ($qp == -1) { $in = $in2; $in2 = ""; } else { $in = substr($in2, 0, $qp + 1); $in2 = substr($in2, $qp + 1); } while (length($in2) > 0) { # "=" があるまではそのまま $qp = index($in2, '='); if ($qp == -1) { } else { $in = $in . substr($in2, 0, $qp + 1); $in2 = substr($in2, $qp + 1); } while (length($in2) > 0) { $s = substr($in2, 0, 1); if ($s eq '&') { $in = $in . $s; $in2 = substr($in2, 1); last; } elsif ($s eq '%') { $s = substr($in2, 0, 3); $s =~ tr/[A-F]/[a-f]/; $in = $in . $s; $in2 = substr($in2, 3); } elsif ($s eq '+') { $in = $in . $s; $in2 = substr($in2, 1); } else { $s = sprintf("%%%02x", unpack("C", $s)); $in = $in . $s; $in2 = substr($in2, 1); } } } $in0 = $in; # 菊地で検索しているけど菊池では検索していなければ $ike = 0 $ike = 1; # for JIS if ($in0 =~ /%35%46%43%4f/ && $in0 !~ /%35%46%43%53/) { $ike = 0; } # for EUC if ($in0 =~ /%b5%c6%c3%cf/ && $in0 !~ /%b5%c6%c3%d3/) { $ike = 0; } # for SJIS if ($in0 =~ /%8b%65%92%6e/ && $in0 !~ /%8b%65%92%72/) { $ike = 0; } # for UTF-8 if ($in0 =~ /%e8%8f%8a%e5%9c%b0/ && $in0 !~ /%e8%8f%8a%e6%b1%a0/) { $ike = 0; } if ($ike != 0) { print < 菊地志穂さんのページ

菊地志穂さんのページ

あっ、見つかっちゃった。
私、菊地志穂って言います。
5月6日生まれのA型。
趣味はピアノの弾き語りで、ギターの練習は・・・な、なんでもないの。
1999年9月17日に、「おさる」っていうアルバムを出しました。
初のセルフプロデュースで、全曲、私の作詞。もちろん、ポエムもいっぱい入っています。

この表示はダミーです。
このページは特殊な目的のために用意されていますので、通常の方法でのアクセスは意味がありません。

EOF } else { # ヒット # 正しいURLに置換 #for EUC $in =~ s/%b5%c6%c3%cf/%b5%c6%c3%d3/g; #for jis $in =~ s/%35%46%43%4f/%35%46%43%53/g; #for sjis $in =~ s/%8b%65%92%6e/%8b%65%92%72/g; #for UTF-8 $in =~ s/%e8%8f%8a%e5%9c%b0/%e8%8f%8a%e6%b1%a0/g; print < 菊地志穂さんのページ

菊地志穂さんのページ

あっ、見つかっちゃった。
私、菊地志穂って言います。
5月6日生まれのA型。
趣味はピアノの弾き語りで、ギターの練習は・・・な、なんでもないの。
1999年9月17日に、「おさる」っていうアルバムを出しました。
初のセルフプロデュースで、全曲、私の作詞。もちろん、ポエムもいっぱい入っています。
そうそう。よく間違えられるんだけど、
声優の「菊池志穂」さんとは別人なの。
間違えないでね。

「キクチ」の「チ」は池なの～！
菊池志穂さん

このページは、検索エンジンを使用して「菊地志穂」で検索している方へ、お知らせをするためのものです。

★「菊地」を「菊池」に変えて、検索し直す
EOF print "$in\n"; print <

★主要リンク集

ライブ情報や本人の日記 → 菊池志穂の趣味のホームページ「my-pace.net」
公式プロフィール → リマックス (2005年7月より加入)
ファンクラブ → 「スマイリーキッズ」 (2001年2月解散)
最新情報 → おりさんの「スターエンジェル」
定番情報 → コアラのリボンにひとめぼれ！さんの「きくちしほのかふぇてらす」
遅刻の帝王の運営しているページ → 「Smilly Kids」案内「おさるのさんぽみち」など

以下の検索エンジンで、当ページへのリンクおよび URL書き換えが期待通りに機能していることを確認しています。

Google (http://www.google.com/) [2003/07/26]
Goo (http://www.goo.ne.jp/) [2003/01/29]
Yahoo! Japan (http://www.yahoo.co.jp/) [2003/01/29]
ODIN (http://odin.ingrid.org/) [2001/01/01]
BIGLOBE Search (http://search.biglobe.ne.jp/) [2001/01/01]

以下の検索エンジンでは、未対応のようです。

InfoSeek Japan (http://www.infoseek.co.jp/) [2003/01/29]
Info Navigator (http://www.nifty.com/search/) [2001/01/01]
Excite Japan (http://www.excite.co.jp/) [2001/01/01]
Lycos Japan (http://www.lycos.co.jp/) [2001/01/01]
OCN navi (http://navi.ocn.ne.jp/) [2001/01/01]
Alta Vista (http://www.altavista.com) [2001/01/01]

提供: 遅刻の帝王 <teio\@teio.org>

EOF }