*99の指定したCGIを*00が作るスレ

1 ：nobodyさん：02/11/17 11:43 ID:r2gR01qm.net

おいおまいら、WebProg板でもこのスレをやってみましょう、おながいします。

ただし、*99があまりにも難しすぎるお題だったり、荒らし、明らかに厨発言だった場合、
*98さんに繰り下げするとかでおながいします。

というわけでまずは>>99-100おながいします。

277 ：435：03/05/11 16:16 ID:???.net

無能な１００がいるスレはここでつか？

278 ：nobodyさん：03/05/21 12:19 ID:FjAuXMMq.net

>>99
>>100ではないが質問。
ページってなに？

279 ：動画直リン：03/05/21 13:08 ID:JZ9K0e/X.net

http://homepage.mac.com/hitomi18/

280 ：かおりん祭り：03/05/21 13:08 ID:???.net

〜oノハヽo〜 　http://togoshi.ginza.st/kaorin/
　 (　＾▽＾) ＜　こんなのがございまーす♪　
http://togoshi.ginza.st/kaorin/kaorin05.html
http://www.togoshi.ginza.st/kaorin/kaorin02.html
http://togoshi.ginza.st/kaorin/kaorin06.html
http://www.togoshi.ginza.st/kaorin/kaorin08.html
http://togoshi.ginza.st/kaorin/kaorin01.html
http://www.togoshi.ginza.st/kaorin/kaorin10.html
http://togoshi.ginza.st/kaorin/kaorin04.html
http://www.togoshi.ginza.st/kaorin/kaorin03.html
http://togoshi.ginza.st/kaorin/kaorin09.html
http://www.togoshi.ginza.st/kaorin/kaorin07.html

281 ：nobodyさん：03/05/21 14:36 ID:???.net

281

282 ：nobodyさん：03/05/21 14:36 ID:???.net

282

283 ：nobodyさん：03/05/21 14:37 ID:???.net

283

284 ：nobodyさん：03/05/21 14:37 ID:???.net

284

285 ：nobodyさん：03/05/21 14:37 ID:???.net

285

286 ：nobodyさん：03/05/21 14:37 ID:???.net

286

287 ：nobodyさん：03/05/21 14:37 ID:???.net

287

288 ：nobodyさん：03/05/21 14:38 ID:???.net

288

289 ：nobodyさん：03/05/21 14:38 ID:???.net

289

290 ：nobodyさん：03/05/21 16:58 ID:???.net

290

291 ：nobodyさん：03/05/21 16:58 ID:???.net

291

292 ：nobodyさん：03/05/21 16:58 ID:???.net

292

293 ：nobodyさん：03/05/21 16:59 ID:???.net

293

294 ：nobodyさん：03/05/21 16:59 ID:???.net

294

295 ：nobodyさん：03/05/21 16:59 ID:???.net

295

296 ：nobodyさん：03/05/21 16:59 ID:???.net

296

297 ：nobodyさん：03/05/21 16:59 ID:???.net

297

298 ：nobodyさん：03/05/21 17:00 ID:???.net

298

299 ：nobodyさん：03/05/21 18:33 ID:???.net

SARSの死者の自動カウントCGI

300 ：３００か３０１：03/05/21 20:15 ID:grDsgXvz.net

OK
で、cgiってなんだ？

301 ：山崎渉：03/05/22 01:57 ID:???.net

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

302 ：山崎渉：03/05/28 17:21 ID:???.net

　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

303 ：神ぽ。：03/05/30 15:18 ID:???.net

どうよ

304 ：_：03/05/30 15:26 ID:???.net

http://homepage.mac.com/hiroyuki43/hankaku06.html

305 ：nobodyさん：03/05/30 18:15 ID:GJUSi001.net

(・∀・)ｲｲ懸賞サイト、お小遣いサイトをピックアップして紹介しています　　
月に1万円以上は稼げそうにないけど、4000円ぐらいなら確実に稼げます！！
無料登録するだけで商品券が貰えるサイトなども載せてあります
http://f15.aaacafe.ne.jp/~suikas/present.html

306 ：nobodyさん：03/06/04 23:50 ID:???.net

>>303
おｋ

307 ：perlお勉強中：03/07/12 15:28 ID:FW3/pTdg.net

>>99ネタ#1

#/usr/local/bin/perl
use Socket;
use FileHandle;

$list_url = 'http://www.ff.iij4u.or.jp/~ch2/bbsmenu.html';
&get_list;
srand(time|$$);
$url = $list[rand(@list)];
if ($ENV{'PERLXS'} eq "PerlIS") {
　　　　print "HTTP/1.0 302 Temporary Redirection\r\n";
　　　　print "Content-type: text/html\n";
}
print "Location: $url\n\n";
exit;

308 ：perlお勉強中：03/07/12 15:29 ID:FW3/pTdg.net

>>99ネタ#2

sub get_list {
　　　　$list_url =~ m!(http:)?(//)?([^:/]*)?(/.*)?!;
　　　　if ($3) {$_host = $3;}
　　　　if ($4) {$_path = $4;}
　　　　$_ip = inet_aton($_host) || die "host($_host) not found.\n";
　　　　$_sockaddr = pack_sockaddr_in(80, $_ip);
　　　　socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n";
　　　　# ソケットの接続
　　　　connect(SOCKET, $_sockaddr) || die "connect $_host error.\n";
　　　　autoflush SOCKET (1);
　　　　# HTTP要求を送信
　　　　print SOCKET "GET $_path HTTP/1.1\n";
　　　　print SOCKET "Host: $_host\n";
　　　　print SOCKET "Connection: close\n\n";
　　　　# HTTP応答を受信
　　　　while (<SOCKET>) {
　　　　　　　　last if(/^\n$/);
　　　　}
　　　　while (<SOCKET>) {
　　　　　　　　push @list, "$&" if(m!(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!);
　　　　}
}

309 ：nobodyさん：03/07/12 15:55 ID:???.net

ものすごい数のサンプルと画像を集めてみました。モロ
こきすぎ注意
http://www.h2.dion.ne.jp/~m_oka/moemoe/ero_03.html

310 ：perlお勉強中：03/07/12 16:37 ID:???.net

>>299のネタ
#/usr/local/bin/perl
use Socket;
use FileHandle;

# 最新のURLを探索
$list_url = 'http://www.who.int/csr/sars/country/en/';
$key = 'Full text';
&http_connect;
while (<SOCKET>) {
　　　　last if(/$key/);
}
close(SOCKET);
# SARS情報を取得
$list_url="http://www.who.int".$&."/" if(m!(/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!);
$list_url =~ s/entity\///;
$key = 'Total';
&http_connect;
while (<SOCKET>) {
　　　　last if(/$key/);
}
# 行数決め打ちで死亡者数を切り出し
for($i=0;$i<24;$i++) {$number=<SOCKET>;}
$number =~ m/\d+/; $number = $&;
#結果表示
print "Content-type: text/html\n\n";
print "<html lang=\"jp\"><body>";
print "SARSによる死者数は$number人です\n<br>";
print "ソ\ース：$list_url\n</body></html>\n";
close(SOCKET);
exit;

311 ：perlお勉強中：03/07/12 16:38 ID:???.net

>>299のネタ#2
# socket接続
sub http_connect {
　　　　$list_url =~ m!(http:)?(//)?([^:/]*)?(/.*)?!;
　　　　if ($3) {$_host = $3;}
　　　　if ($4) {$_path = $4;}

　　　　$_ip = inet_aton($_host) || die "host($_host) not found.\n";
　　　　$_sockaddr = pack_sockaddr_in(80, $_ip);
　　　　socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n";

　　　　# ソケットの接続
　　　　connect(SOCKET, $_sockaddr) || die "connect $_host error.\n";
　　　　autoflush SOCKET (1);

　　　　# HTTP要求を送信
　　　　print SOCKET "GET $_path HTTP/1.1\n";
　　　　print SOCKET "Host: $_host\n";
　　　　print SOCKET "Connection: close\n\n";

　　　　# HTTP応答を受信
　　　　while (<SOCKET>) {
　　　　　　　　last if(/^\n$/);
　　　　}
}

312 ：山崎 渉：03/07/15 11:07 ID:???.net

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

313 ：山崎 渉：03/08/02 02:42 ID:???.net

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

314 ：ぼるじょあ ：03/08/02 05:29 ID:???.net

　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

315 ：nobodyさん：03/08/02 17:47 ID:???.net

次の00には何を作ってもらうかを考えよ〜

316 ：99：03/08/14 10:32 ID:???.net

>>100
早く作れよ頃すぞ

317 ：山崎 渉：03/08/15 22:45 ID:???.net

　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

318 ：nobodyさん：04/03/21 15:32 ID:???.net

>>100
早くつくれよ、こっちは待ってんだぞ

319 ：!100：04/03/22 04:48 ID:???.net

<title>２ちゃんねるルーレット</title>
<?php
$url = 'http://127.0.0.1/bbsmenu.html';
$sec = 5;
if ($lines = preg_grep("/^<A HREF=.+?>.+?<\/A>/", file($url))) {
srand();
print preg_replace(
"/^<A HREF=(.+?)>(.+?)<\/A>.*/",
"$sec 秒後に<a href=\"$1\">$2</a>へ移動<meta http-equiv=\"Refresh\" content=\"$sec;URL=$1\">",
$lines[array_rand($lines)]
);
}
?>
>>318 作ってやったから金払え

320 ：nobodyさん：04/06/18 10:15 ID:???.net

while(1) {
  print("ぬるぽ\n");
}

321 ：nobodyさん：04/12/18 17:51:09 ID:neHl2NC1.net

age

322 ：nobodyさん：2008/11/07(金) 14:31:55 ID:YMX4hGRf.net

ageeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee

323 ：nobodyさん：2008/12/23(火) 14:29:41 ID:IREBlBH+.net

age

324 ：電脳プリオン：2011/12/11(日) 22:20:46.62 ID:???.net ?2BP(1960)

　　　　　　　　　 |　|　ｶﾞｶﾞｶﾞｶﾞｶﾞｯ
　　　　　　　　　 |　|
　　　　　　　　　 人
　　∧＿∧　　 < 　>_∧∩
　 （　・∀・）　　 人｀Д´）/ ←>>272
　と　　　　）　　< 　>_∧∩
　　 Ｙ　/ノ 　 　.人｀Д´）/ ←>>313
　　　 /　）　 　 < 　>_∧∩
　 ＿/し'　／／. Ｖ｀Д´）/ ←>>320
　（＿フ彡　　　　　　　/

325 ：nobodyさん：2013/03/27(水) 19:39:59.35 ID:IuHY8fTv.net

　　　　　 _
　　　　　 |O＼
　　　　　 |　　 ＼　ｷﾘｷﾘ
　　　　∧|∧ 　　＼　ｷﾘｷﾘ
ｸﾞｸﾞｩ>（；⌒ヽ　　　 ＼
　　　　∪　　|　　 　　(~)
　　　　　∪∪　　 γ´⌒｀ヽ
　　　　　）　）　　 　{i:i:i:i:i:i:i:i:}
　　　　 （　（　　　　(　´･ω･)、
　　　　　　　　　　　(O ⌒　)O
　　　　　　　　 　 　⊂＿)∪

326 ：nobodyさん：2017/12/30(土) 13:00:29.15 ID:YhlYw6jg.net

誰でも簡単にネットで稼げる方法など
参考までに、
⇒　『半藤のブブイウイウレレ』 というサイトで見ることができます。

グーグル検索⇒『半藤のブブイウイウレレ』

9R1ADQXKGO