コテハン検索

■ コテハン検索

1投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時20分38秒: 移転後のカロビーに対応させたんで良かったら使って下さい。

http://marmotfarm.com/cgi-bin/kotei/kotei.htm

2投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時21分09秒: 使いません

3投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時22分39秒: 便利じゃん

4投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時23分21秒: すげえ

5投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時23分38秒: 検索すると何が出てくるのか

6投稿者：こうは 　投稿日：2004年07月12日(月) 17時23分47秒: 使えねーな
なんだこりゃ

7投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時23分47秒: 氏ね

8投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時26分31秒: こうはって入れると悲惨だな

9投稿者：こうは 　投稿日：2004年07月12日(月) 17時27分18秒: チータスって入れるともっと悲惨だぞ

10投稿者：Steavy 　投稿日：2004年07月12日(月) 17時27分58秒 ID：fyDcyXS3: ああ、はずかしい。

11投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時28分11秒: ぎゃははははほんとだ！すっげ悲惨

12投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時28分39秒: >>9
出ないな

13投稿者：こうは 　投稿日：2004年07月12日(月) 17時29分05秒: どういう条件で検索してるのかまるでわからん

14投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時29分16秒: もしかして登録されている固定しか出てこないのか！？
だとしたらチータスは

15投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時29分47秒: 投稿者

16投稿者：こうは 　投稿日：2004年07月12日(月) 17時30分29秒: そうでもないようだが>>14

17投稿者：１　投稿日：2004年07月12日(月) 17時32分37秒: 説明するの面倒なんで今からソースを貼り付けますよ
ごめんなさいね

18投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時33分13秒: #!/usr/bin/perl

$DD=$ENV{'QUERY_STRING'};
($DDD,$D)=split(/=/,$DD);
$D=~s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c",hex($1))/ge;
if($D eq ""){print"Content-type: text/html\n\n";exit}

$URL="http://amezor.on.arena.ne.jp/lobby/";
@lines[0..159] = `/usr/bin/wget -q -O - $URL` or die;

foreach(@lines){
if(/\<\!\-\-\ HEAD\ LINE\ END\ \-\-\>/){$F=0}
/\d{11,12}/;
if($F==1){$key[$C]=$&;$C++;}
if(/\<\!\-\-\ HEAD\ LINE\ \-\-\>/){$F=1}
}

19投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時33分29秒: $H ="Content-type: text/html\n\n";
$H.="<HTML><HEAD>";
$H.="<META HTTP-EQUIV=Content-Type content=text/html; charset=x-sjis>";
$H.="<META HTTP-EQUIV=pragma CONTENT=no-cache>";
$H.="<META HTTP-EQUIV=Cache-Control CONTENT=no-cache>";
$H.="<TITLE>固定ハン</TITLE></HEAD>\n";
$H.="<BODY><br>\n";
print $H;

foreach(@key){
$URL="http://amezor.on.arena.ne.jp/lobby/$_.html";
@html[0..999] = `/usr/bin/wget -q -O - $URL` or die;

$F=0;
foreach(@html){
if(/\<b\>$D/){$F=1}
}
if($F==1){
print"<hr><a href=http://amezor.on.arena.ne.jp/lobby/$_.html>http://amezor.on.arena.ne.jp/lobby/$_.html</a><br>";
foreach(@html){
if(/\<b\>$D/){print $_}
}
}
}

exit;

20投稿者：１　投稿日：2004年07月12日(月) 17時34分23秒: 以上です
以前ここの名無しからもらったので内容は良く読んでません

21投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時34分29秒: ハンドルを入れるんじゃなくてリンク式の方が使いやすいな
こんなふうに↓

わひょみ
http://marmotfarm.com/cgi-bin/kotei/kotei.cgi?name=%90%85%92J%82%ED%82%D0%82%E5%82%DD

こうは
http://marmotfarm.com/cgi-bin/kotei/kotei.cgi?name=%82%B1%82%A4%82%CD

22投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時34分53秒: これ今日のpostsしか出てこないね．しかしこうはすさまじいな．

23投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時35分55秒: >１
広場版も作ってヽ(´ー`)ノ

24投稿者：１　投稿日：2004年07月12日(月) 17時39分03秒: >>23
ちょっと暇なくてあまり大掛かりな事は出来ません。
気が向いたらやりますね。
ではお出かけしてきます。

25投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時39分11秒: 何でクサチューは出てこないの？

26投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時39分50秒: $H ="Content-type: text/html\n\n";
$H.="<HTML><HEAD>";
$H.="<META HTTP-EQUIV=Content-Type content=text/html; charset=x-sjis>";
$H.="<META HTTP-EQUIV=pragma CONTENT=no-cache>";
$H.="<META HTTP-EQUIV=Cache-Control CONTENT=no-cache>";
$H.="<TITLE>固定ハン</TITLE></HEAD>\n";
$H.="<BODY><br>\n";
print $H;

foreach(@key){
$URL="http://amezor.on.arena.ne.jp/main/$_.html";
@html[0..999] = `/usr/bin/wget -q -O - $URL` or die;

$F=0;
foreach(@html){
if(/\<b\>$D/){$F=1}
}
if($F==1){
print"<hr><a href=http://amezor.on.arena.ne.jp/main/$_.html>http://amezor.on.arena.ne.jp/main/$_.html</a><br>";
foreach(@html){
if(/\<b\>$D/){print $_}
}
}
}

exit;

27投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 17時42分03秒: >>22
そうでもないみたい

28投稿者：ヽ(´ー｀)ﾉ 　投稿日：2004年07月12日(月) 18時34分12秒: 一個も引っ掛からなかった・・・。

29投稿者：ヾ(ﾟдﾟ)ﾉ゛ﾊﾞｶｰ 　投稿日：2004年07月12日(月) 18時35分24秒: 空気以下か・・・。根性男並だな。