#!/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 <

★主要リンク集

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

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

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