325コメント55KB

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

■ このスレッドは過去ログ倉庫に格納されています

0001nobodyさん

02/11/17 11:43ID:r2gR01qm

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

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

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

0229nobodyさん

02/12/24 23:42ID:2kS8TiT1

メリクリ

0230nobodyさん

02/12/25 17:15ID:U7g6MD4O

>>229
ｸﾘﾒﾘ

0231nobodyさん

02/12/25 21:45ID:???

ｳﾞｧﾘｭｸﾘ

0232nobodyさん

02/12/27 09:52ID:PDegbcoZ

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

0233nobodyさん

02/12/31 10:34ID:2j4SuGi0

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

0234nobodyさん

02/12/31 10:34ID:2j4SuGi0

続き

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

0235_

02/12/31 10:48ID:gfphPIoL

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

0236nobodyさん

02/12/31 13:16ID:qLQW6luA

おゆ～

0237nobodyさん

03/01/04 20:27ID:tm/4/3y9

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

0238nobodyさん

03/01/04 20:28ID:???

>>237
読めないか？

0239nobodyさん

03/01/04 21:21ID:uoWySJDJ

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

024099

03/01/05 14:51ID:???

>>100
早く作れよ頃すぞ

0241nobodyさん

03/01/06 16:15ID:vXxmrd3Z

あげ

0242nobodyさん

03/01/10 16:05ID:???

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

0243nobodyさん

03/01/11 12:22ID:9FJE/Arw

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

0244nobodyさん

03/01/11 12:32ID:???

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

0245nobodyさん

03/01/12 02:32ID:???

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

0246nobodyさん

03/01/13 01:58ID:zFhrRpi4

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

0247nobodyさん

03/01/13 09:26ID:???

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

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

024899

03/01/13 11:30ID:???

>>100
早く作れよ頃すぞ

0249nobodyさん

03/01/13 13:20ID:???

<?
//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)

0250nobodyさん

03/01/13 13:21ID:???

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>

0251nobodyさん

03/01/13 13:28ID:???

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

0252nobodyさん

03/01/13 14:03ID:???

このまま300いくに1000php

0253nobodyさん

03/01/14 18:08ID:7L6kWj+N

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

0254nobodyさん

03/01/15 01:19ID:???

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

0255nobodyさん

03/01/15 07:56ID:???

>>254
後六回死ね。

0256山崎渉

03/01/15 13:31ID:???

（＾＾）

0257nobodyさん

03/01/17 01:37ID:BIc4KCgY

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

0258nobodyさん

03/01/17 01:54ID:???

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

025999

03/01/17 13:59ID:???

>>100
早く作れよ頃すぞ

0260nobodyさん

03/01/17 16:47ID:???

>>259
>>249-250

0261nobodyさん

03/01/17 22:20ID:???

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

0262nobodyさん

03/01/19 23:49ID:NJuI9Ez7

0263nobodyさん

03/01/20 02:51ID:???

263

0264nobodyさん

03/02/01 01:35ID:???

age

026599

03/02/22 17:05ID:???

>>100
早く作れよ頃すぞ

0266山崎渉

03/03/13 17:22ID:???

（＾＾）

0267nobodyさん

03/03/30 23:03ID:???

うんこ

0268nobodyさん

03/03/30 23:03ID:2BSCR98U

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

0269nobodyさん

03/03/31 02:15ID:???

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

0270nobodyさん

03/03/31 03:05ID:???

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

0271山崎渉

03/04/17 12:11ID:???

（＾＾）

0272山崎渉

03/04/20 06:22ID:???

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

0273age

03/05/05 13:53ID:???

age

0274nobodyさん

03/05/05 14:06ID:zlc2Jh4q

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

0275age

03/05/11 15:09ID:???

age

0276bloom

03/05/11 15:10ID:D5AlwyCG

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

0277435

03/05/11 16:16ID:???

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

0278nobodyさん

03/05/21 12:19ID:FjAuXMMq

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

0279動画直リン

03/05/21 13:08ID:JZ9K0e/X

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

0280かおりん祭り

03/05/21 13:08ID:???

0281nobodyさん

03/05/21 14:36ID:???

281

0282nobodyさん

03/05/21 14:36ID:???

282

0283nobodyさん

03/05/21 14:37ID:???

283

0284nobodyさん

03/05/21 14:37ID:???

284

0285nobodyさん

03/05/21 14:37ID:???

285

0286nobodyさん

03/05/21 14:37ID:???

286

0287nobodyさん

03/05/21 14:37ID:???

287

0288nobodyさん

03/05/21 14:38ID:???

288

0289nobodyさん

03/05/21 14:38ID:???

289

0290nobodyさん

03/05/21 16:58ID:???

290

0291nobodyさん

03/05/21 16:58ID:???

291

0292nobodyさん

03/05/21 16:58ID:???

292

0293nobodyさん

03/05/21 16:59ID:???

293

0294nobodyさん

03/05/21 16:59ID:???

294

0295nobodyさん

03/05/21 16:59ID:???

295

0296nobodyさん

03/05/21 16:59ID:???

296

0297nobodyさん

03/05/21 16:59ID:???

297

0298nobodyさん

03/05/21 17:00ID:???

298

0299nobodyさん

03/05/21 18:33ID:???

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

0300３００か３０１

03/05/21 20:15ID:grDsgXvz

OK
で、cgiってなんだ？

0301山崎渉

03/05/22 01:57ID:???

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

0302山崎渉

03/05/28 17:21ID:???

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

0303神ぽ。

03/05/30 15:18ID:???

どうよ

0304_

03/05/30 15:26ID:???

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

0305nobodyさん

03/05/30 18:15ID:GJUSi001

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

0306nobodyさん

03/06/04 23:50ID:???

>>303
おｋ

0307perlお勉強中

03/07/12 15:28ID:FW3/pTdg

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

0308perlお勉強中

03/07/12 15:29ID:FW3/pTdg

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

0309nobodyさん

03/07/12 15:55ID:???

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

0310perlお勉強中

03/07/12 16:37ID:???

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

0311perlお勉強中

03/07/12 16:38ID:???

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

0312山崎渉

03/07/15 11:07ID:???

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

0313山崎渉

03/08/02 02:42ID:???

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

0314ぼるじょあ ◆ySd1dMH5Gk

03/08/02 05:29ID:???

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

0315nobodyさん

03/08/02 17:47ID:???

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

031699

03/08/14 10:32ID:???

>>100
早く作れよ頃すぞ

0317山崎渉

03/08/15 22:45ID:???

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

0318nobodyさん

04/03/21 15:32ID:???

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

0319!100

04/03/22 04:48ID:???

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

0320nobodyさん

04/06/18 10:15ID:???

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

0321nobodyさん

04/12/18 17:51:09ID:neHl2NC1

age

0322nobodyさん

2008/11/07(金) 14:31:55ID:YMX4hGRf

ageeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee

0323nobodyさん

2008/12/23(火) 14:29:41ID:IREBlBH+

age

0324電脳プリオン

2011/12/11(日) 22:20:46.62ID:????2BP(1960)

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

0325nobodyさん

2013/03/27(水) 19:39:59.35ID:IuHY8fTv

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

■ このスレッドは過去ログ倉庫に格納されています

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

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