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

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

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

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

過疎板で2ゲット

２

ここから98まではどうするよ？

まず>>9が>>10の指定したCGIを作るとか?

6レス

あ

い。

>>10
2chで使えるDuke作って

>>9
厨は屍ねよ

終了

過疎板じゃやっぱり無理なんじゃねーの？

めでたく13ゲットです。

ウチの前にオムライスがみっツ出てくる自動販売機を作ってください。

14

99まで時間があるので、人生について語りましょう。

>>15
今日も昼から２ちゃんねるめぐりです。

>>14-16
ﾜﾗﾀｗ

>>17
じゃお約束で「オマエモナー」と。

　　　　/ヽ　　　　　　　　　 ＿＿＿＿＿＿＿＿＿＿＿
　　　 /:::::＼　　θ　　　 ／
　　　/::::/⌒ヽ丿　　　＜　>>9さんbeenﾄﾞｿﾞｰ
　　 ﾉ￣丶＿ノ　　　　　 ＼＿＿＿＿＿＿＿＿＿＿＿
　 ノ|　＿＿ |
　　 ∪　　 ∪

今日も今日とてネタはなし。

じゃあ２ちゃんねるに宣伝してるうざい業者に
大量訪問するCGIをつくってください。

>>21
板違いっぽい。

過疎板で９９を待つのは一ヶ月かかりそう・・・

http://plaza.rakuten.co.jp/a240a/

ageage

>>23
こんな糞スレじゃ99行くのに6ヶ月は…

>>23>>27
まだ１／３もいってないしな。

言語は問わず？

>>28
あまりマイナーな奴を除けばなんでもいいと思われ。

Perl,Ruby,C,C++,Java,Python,sh

>>21
そんなのＣＧＩじゃなくて超田代砲でいいでしょ。

んじゃ加速すればいいんじゃん？
まずは99までいってみようよ！

ではスレ流しに協力

>>99
実用的なモンじゃなくて、一発ネタキボンヌ

促進age

>>99
笑える奴な。

>>100にはなりたくない。なれない。

>>99
とりあえず言っとけ

CGIで作ったMMORPG

繰り下がるから>>100とっても平気。
で、ずーっと繰り下がって（以下略

さあ、みんなで>>100を応援しよう

あげ

>>100>>100>>100

>>99
おまいはノロマだな（ｗ

泣けるスレですね

>>99
欲張りさんめ・・・

98ｹﾞｯﾄズサー

まだかな、まだかな・・

まだだな。
とりあえず>>49お題、>>50作成にしたらどうか?

しかしこの板じゃ
あえて50だの100だのを取るヤシはいない気がする。
#49でdat落ちｷｳﾞｫﾝﾇ(ぉ

お題を制作してください
>>50

なんかスゴイCGI

このスレは「*9の指定したお題を*0が提案するスレ」に変更になりました。

なんかえろいCGiで。

・・・で、誰が作るんだｗ？

1000が。

>>100
作れよ

　　　　　＿＿＿
　　　 ／　　　　 ＼
　　 /　　 ∧　∧　＼　　／￣￣￣￣￣￣￣￣￣￣
　　|　　　　 ・　・　　 |　＜　おまえがつくれよ
　　|　　　　 ）●（　　|　　＼＿＿＿＿＿＿＿＿＿＿
　　＼　　 　 ー　 　ﾉ
　　　 ＼＿＿＿_／

aaa

#!/usr/bin/env gawk

100が近づいたら怖じ気づいて誰も発言しなくなる罠

undef >>1;

まぁ　それでも90台ぐらいまでは逝ってみなくては……

お題を考えるほうが難しい…すでにあるものを作れと言ってしまいそうだ。

早く指定しろよ。みんな待ってるぞ＞99

>63
んなこと言うなら埋め立てればいいじゃんよ。
と言いつつ間に割り込んで100食らわせようとする罠。

>>99
じらすなよ

「*00の指定した番号の奴が作らされるスレ」とかのほうが面白くないか？
ここに書いた奴全員が作る側にまわされる可能性があるわけだし。

面白そう。でも、自己申告で名乗りあがるかなっ？

あげあげ

1月たっても70かよ（藁

99か100か知らんけど、指定したCGIを作る勇者が居たら盛り上がるんじゃね？

ネタが面白ければ…

結構楽しみだね、これ。

99GETズサーーー

「*00が指定したCGIをみんなで作るスレ」にしよう！

++

おっ、けふはすすみぐあいがいいんでないかい？

02/11/17 10 ||||||||||
02/11/18 1 |
02/11/19 2 ||
02/11/20 4 ||||
02/11/21 2 ||
02/11/22 1 |
02/11/23 1 |
02/11/27 3 |||
02/11/28 2 ||
02/11/29 1 |
02/11/30 4 ||||
02/12/01 1 |
02/12/02 5 |||||
02/12/03 4 ||||
02/12/04 8 ||||||||
02/12/05 5 |||||
02/12/06 4 ||||
02/12/07 1 |
02/12/08 7 |||||||
02/12/09 10 ||||||||||

近々忘れ去られる予定。

あげ

さげ

もうすぐかのー？

99今日行っとく？　

逝っとく？

逝っとく　逝っとく　

俺一人で99まで行っとくは、

あげるかー

87

おいおまえら

MMORPG
100毎に、モジュール単位で作ってくとかはどう？

GAMEいいねー
RPGがいいなー

>>90
CGIでGAMEなんか作ったら
重すぎるって！

じゃぁどんなのがいい？

↓こんなのとかどう？

おっ、ひとっ風呂あびてるあいだにこんなに成長しやがって〜！

微妙

ﾋﾞｸﾋﾞｸ

最初はすごく簡単なのがいいかな。
だんだん難しくなる方向で。

１アクセスするごとに、１０カウンタが増えるカウンタとか。

ﾋﾞｸﾋﾞｸ

ページにいくごとに、２ｃｈのどれかの板にランダムに飛ぶ
「２ちゃんねるルーレット」

ほほう

既にあった気はしますが。

>>100
早く作れよ頃すぞ

>>102
無駄な騙りはやめようよ・・・
>>101
２ｃｈ系のスクリプトが増えると
おもしろいかもしれないと思いまして・・・

簡単だから早めにできてしまうね。その後は>>199まで待つのか・・・

じゃあ、ﾏﾀｰﾘと１９９までがんばろう
１００が早く作ってくれてソースを公開してくれたら
それを肴に伸びるかもしれない。

2chルーレット〜プログラム板〜
http://pc3.2ch.net/test/read.cgi/tech/1031427459/

すでに・・・・・・・・・・・・・






いや、上のスレの事は忘れてくれ。

300以上ある板のアドレスを書くのが面倒かも・・・・
左のメニューを加工すればいいか？


あ、全ての板が対象でなくてもいいのか。

かちゅ用の2channel.brdを読み込んで加工するようにすれば鯖移転にも自動的に対応できる。

いや、、再開発するつもり？> 107-108

>>107
暇なら書いてもいいけど・・・


from urllib import urlopen
import re

BBSMENU_URL = "http://2ch.net/bbsmenu.html"
CATEGORY = re.compile("<B>(.+)</B>")
BOARD = re.compile("HREF=http\:\/\/([^/]+)\/([^/]+)/.*>(.+)<\/A>")
BR = re.compile("<br>", re.IGNORECASE)

temp = urlopen(BBSMENU_URL).read()
c = None

for line in BR.split(temp):

　　　　m = CATEGORY.search(line)
　　　　if m is not None:
　　　　　　　　c = m.group(1)
　　　　　　　　print c
　　　　　　　　continue

　　　　if c is None: continue

　　　　m = BOARD.search(line)
　　　　if m is not None:
　　　　　　　　host = m.group(1)
　　　　　　　　board = m.group(2)
　　　　　　　　title = m.group(3)
　　　　　　　　print "\t%s\t%s\t%s" % (host, board, title)

>>110
何語ですか
pascal?

>>100
まだできないのか？

>>111
惜しい。
最初の一文字だけあっている。

>>113
使ったことないけどPython?

>>!14
正解。


板を変更することは、それ程頻繁にないと思うけど
スレッドは・・・、新しいスレが建った場合はどうするんだろう？
毎回一覧読みに行く？

　　　　　＿＿＿
　　　 ／　　　　 ＼
　　 /　　 ∧　∧　＼　　／￣￣￣￣￣￣￣￣￣￣
　　|　　　　 ・　・　　 |　＜　>>100まだできないのか？
　　|　　　　 ）●（　　|　　＼＿＿＿＿＿＿＿＿＿＿
　　＼　　 　 ー　 　ﾉ
　　　 ＼＿＿＿_／

なんだよ、このスレ企画倒れかよ。
さすがWebProg板だな。

^[1-9]*99の指定したCGIを^[1-9][0-9]*が作るスレ

age

^.?99$のしてーしたＣＧＩを^.00$が作らされるスレ

>>115
それ、俺も考えた。
板メニューは多くても一日一回程度でいいけど、
スレ一覧は速いところだと、一時間もすれば様変わりするからな。
かといって、恐ろしく頻繁にアクセスがある場合などは、
スレ一覧もある程度保存しておいた方がいいのかな･･･。
逆に時々しかアクセスされないなら、
いちいち読みに逝くことを前提にした方がいい。

そもそも既にできているモノを作っても意味ないような

自動で煽れるcgiとか作ってくれ

>>100
早く作れよ頃すぞ

>>100
おせーな、おい！

>>121
2chに、ＮＴＴＰみたいな新規のスレッドの差分のみを
知らせてくれる機能があればいいんだけどなぁ。
多分、そんな設計にはなっていないだろう。

それ程リアルタイム性を要求されるわけでもないから、
新しいリスト所得できても、どうせランダムで一つ選ぶだけなんだし。
毎回読みに行くのは、負荷のリスクに見合うだけのメリットがないと思うのだけど、どうだろう？

とりあえず、キャッシュは持っておいて、
HEADで更新時間をチェック、新しければ GET で盗ってくる。
更新は数時間間隔でいいんじゃない？

個人的な意見としては、 >>122 に激しく同意

まあ最初だしネタが既出でも>>100のやり方でやりきって欲しい。
それ事実が*99->*00へ繋がっていくだろう。
それで>>100は作ったのか？

最近ですね

疑問なんですが

ドクターペッパーとコーラは

どっちがうまいですかね

俺が思うに

どうもドクターペッパーのほうが飽きないんではないかと

なぜかっていうと

美人は

三日で飽きる

ブスは

あきねーでしょ、これが

ドクターペッパー飲むたびに

「うぼっ」って思うこと間違いなしっすよ

でもね

実際俺はうまいとおもうんだけど

名前が悪いと思うんだ

「ペッパー」て

なんかこう、胡椒を連想しません？

ジンジャーやコカは、さほど知られてないがゆえ

モーマンタイでしょうけど

ペッパーて

初心者買うのためらうわ

俺もためらったもん

「飲んでみたい」より

「飲めなかったらどうしよう」のほうが強かったね

で、捨て銭だと思いこんで買ったんですよ、深夜

うまかった

あれ、コーラよりうまいじゃん。て。

冷たさと、あっさりテイストがマッチ

どこに薬品臭が？ってね

「似てる」って一時言われて

一時流行った

「SMAP」（飲料）

あれは

毒

やばいと思った

初めて家族で行ったキャンプ場の電灯が１つだけついてる便所

なまじ明かりがついてるもんだから

壁がね

蛾蛾蛾SP

あれも、やばいと思った

そんぐらい。SMAP。

よく発売したなあと

朝のワイドショーにSMAPのVTRが流れて

他のメンバー「うまい」とか「新しい味」とか言ってたのに

木村「

飲んだ後に…

･････････････････････････････････

ん？（微笑」

だもん

他のメンバー「だまるくらいうまい、と」とかフォローしてるし

正直者をよってたかって隠蔽か

黒い、黒いよ

蛾蛾蛾SP

まぁそんなこんなで

ファンタ愛飲者には怒られそうですが

一応やっとく・・・？

ファンタね。偽者くさい。

10%オレンジジュースみたい。まずいでしょ、100%に比べると

桃味って2000年限定だと思ってたのに

ホワイトピーチが普通に発売されてる現実

クレームはどこにつけりゃいいの！？

コカコーラ社です。

やっぱだめだ、コーラ。ドクペ再来の季節。

さて、別に俺は荒らしでもなんでもなく、>>100が創ってくれるのを待ってるんだが、同時進行でスレ活性。うっほい。あ、このスレだけ「作る」を「創る」にしない？

ドクターペッパーの由来は、ペッパー医師の娘に惚れていたが父親に認められなくて結婚を断念した青年が創った飲料で
それにドクターペッパーって名前つけたら医師も許してくれたんだって

なんのこっちゃだね。このスレ住人は怒るかな？青年。違う、俺のことを

今宵もcgiを創りながら

缶を傾ける・・・　fin

>>127-195
そのペースで199,200も踏んで、201辺りでUPしてくれるとうれしいぞ！

エクスプローラに激似の、アップローダ兼ファイル管理CGI

>>197
早漏

199

200

>>199
（′Д｀）

>>1を見ると「繰り下げ」っていうことは

>>197か？

ｵｰﾀﾞｰ!
「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」ぃ〜♪

>>200
ﾖﾛ

擦れたいから想像するに後方参照して(それに100足して)いるわけじゃないし
199が指定したものを200が作る必要ないのでは？とひねくれてみる

199なCGIってどんなだろう？

では >>100 ﾖﾛ

呼んだか?

つかえねー>>100だな

>>100はつくれないから>>127-195のような書き込みをしたスレ

#!/usr/bin/perl

print "Content-type: text/plain\n\n";
print "199";

>>209
完成したか、じゃ次299->300

>>100
早く作れよ頃すぞ

>>197
「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」

つーか、スキンなんかどーでもいーだろ。
お前ホントにWebプログラマかと。

> 「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」
CGI版 WebDAV(or FTP) Client ?

>>100
早く作れよつぶすぞ

>>200
賃貸マンション住まいでしょ?

次の\d99まで暇だから、
\d00が指定されたCGIの製作過程を残す、というのはどう？

言語選択 - PHP #

板一覧の所得 ...
スレッド一覧の所得 ...
乱数の生成　... int rand(min, max)

と、もうちょっと生産的な方向に流れを変えて見よう

まだ書いてる途中だったのに送信してしまった・・・
まぁ、いぃや。

216-217 の書きこみの間でbbs.cgi変わった？
書き込み前に確認画面出るようになったよ。

>>212
スキンじゃなくて、この場合は、
ユーザー・インターフェースとかアクセスビリティだろ？
drag-dropでファイル、アップロードしたり
アイコンを右クリックでcontext menu開いて、削除を選択
で、サーバー上のファイルを削除したりとか、
そういうのを作りたいんじゃないかな？>>197

>>218
どっかのバカが荒らしまくったので、
ひろゆきが全板のクッキー設定を変えたらしい。

次はどんなご注文で？

激萌えぁゃゃcgiをきぼんぬ

外部２ちゃんねるread.cgi
http://pc.2ch.net/test/read.cgi/php/1028943269/
これの現在の２ちゃんねるの使用で使えるやつ

>>100
早く作れよ頃すぞ

http://live.2ch.net/test/read.cgi/festival/1040349157/
TIME投稿ツールｷﾎﾞﾝぬ

>>225
それなら死ぬ気で299取れ

>>225
まず、60x16ピクセルのgif画像を解析して5桁の数字を抜き出さないとだめみたいね。
ノイズも入ってないから出来るかも。

おまいら趣旨を理解しやがってください。

メリクリ

>>229
ｸﾘﾒﾘ

ｳﾞｧﾘｭｸﾘ

クリスマス以降寂れたのか？

100ではないが99のはこんなんで良いのか？
URL取得部分が激甘なのでmailtoとか他のサイトの部分まで拾って痛いが（藁

#!/usr/local/bin/perl -w
use Socket;
$boardList = "board_list.dat";
if(!(-e $boardList)) {
$method = "GET";
$host = "www.ff.iij4u.or.jp";
$path = "~ch2/bbsmenu.html";
$port = getservbyname('http', 'tcp');
$iaddr = inet_aton($host) || die "$connect_hostは存在しないホストです。\n";
$sock_addr = pack_sockaddr_in($port, $iaddr);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "ソケットを生成できません。\n";
connect(SOCKET, $sock_addr) || die "$connect_host の ポート$portに接続できません。\n";
select(SOCKET); $|=1; select(STDOUT);
print SOCKET "$method /$path HTTP/1.0\r\n";
print SOCKET "User-Agent: 2ch roulette/0.0 \r\n";
print SOCKET "\r\n";

続き

while (<SOCKET>){
m/^\r\n$/ && last;
}
open(LIST, "> $boardList");
while (<SOCKET>){
if($_ =~ /HREF=([^> ]+)/) {
print LIST "$1\n";
}
}
close(LIST);
}
open(LIST, $boardList);
@board = <LIST>;
close(LIST);

srand(time^$$);
$num = rand($#board);
print "Location:$board[$num]\n\n";

http://freeweb2.kakiko.com/dengeki/indexc.htm

おゆ〜

>>233
もうちょっと読みやすくつくってｸﾚ

>>237
読めないか？

読みにくい。
注釈文をいれようょ

>>100
早く作れよ頃すぞ

あげ

Perl らしくない。
もうちょっと呪文を混ぜようょ

Perl らしくない。
もうちょっと電波を混ぜようょ

いいかげんそろそろ書かないとな、>>100 よォ！

いつくらいに>>100が頃されますか？

if($a == 1){
#--VBじゃねえんだぞ----
# $a = $a + 1;
$a++;
}

>>246
$aが初期値の0だと仮定するとそのループの中は一回も実行されない。

お前も似たようなレベルだ。

>>100
早く作れよ頃すぞ

<?
//programmed by moguno This script is copyleft.

//2ちゃんねるメニューからURLリストを取得
function getURLList($local)
{
//ファイル名を決定
if($local)
$filename = "./2chmenu.html";
else
$filename = "http://www6.ocn.ne.jp/~mirv/2chmenu.html";

//ファイルを読み込む
$dat = file($filename);

$res = array();

foreach($dat as $d)
{
//リンク先一覧を取得
preg_match("/<A HREF=([^\\>]+)>/",$d,$matches);

if($matches[1] == NULL)
continue;

$match = $matches[1];

//2ch以外のドメインと2chトップページへのリンクを除外
if(preg_match("/2ch\\.net\\/.+$/",$match) == 0)

continue;

//2ちゃんねる総合案内を除外
if(preg_match("/\\/guide/",$match) == 1)
continue;

//配列に追加
array_push($res,$matches[1]);
}

return $res;
}

//***初期化***
srand(time());

//外部へのHTTP通信を許可しているサーバならfalse。
//許可していない場合はhttp://www6.ocn.ne.jp/~mirv/2chmenu.htmlをダウンロードし
//こいつと同じディレクトリに2chmenu.htmlとして保存した後trueに書き換え。
$list = getURLlist(false);

?>

<html>
<head>
<META HTTP-EQUIV="refresh" CONTENT="0;URL=<?print($list[rand(0,count($list))]);?>">
</head>
</html>

<META HTTP-EQUIV="refresh" CONTENT="0;URL=<?print($list[rand(0,count($list) - 1)]);?>">
に訂正。

このまま300いくに1000php

無視して次のおだいまでAGE

>>299
Age2chを越える荒らしツール依頼よろ

>>254
後六回死ね。

（＾＾）

>>254
山崎渉をあげるから逝って来い

>>255-257
期待してんだろ

>>100
早く作れよ頃すぞ

>>259
>>249-250

100本人じゃないとだめっしょ
そういうスレ

263

age

>>100
早く作れよ頃すぞ

（＾＾）

うんこ

★みんなの情報局★みんなのリンク集★ココ最高★
↓　↓　↓　↓　↓　↓　↓　↓　↓　↓　↓　↓
http://www.pink-angel.jp/betu/linkvp2/linkvp.html

*99を利用してなんか無理矢理作ってみるってのはどうだ？

なんか久しぶりに動いたな、このスレ。

（＾＾）

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

age

http://bizinfo.cool.ne.jp/biz-rank/ranklink.cgi?id=mercury

age

http://homepage.mac.com/ayaya16/

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

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

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

〜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

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

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

OK
で、cgiってなんだ？

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

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

どうよ

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

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

>>303
おｋ

>>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;

>>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\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!);
　　　　}
}

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

>>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;

>>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$/);
　　　　}
}

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

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

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

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

>>100
早く作れよ頃すぞ

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

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

<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 作ってやったから金払え

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

age

ageeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee

age

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

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