- 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投稿者:1 投稿日: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投稿者:1 投稿日: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秒
- >1
広場版も作ってヽ(´ー`)ノ
- 24投稿者:1 投稿日: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秒
- 空気以下か・・・。根性男並だな。