おいおまいら、WebProg板でもこのスレをやってみましょう、おながいします。
ただし、*99があまりにも難しすぎるお題だったり、荒らし、明らかに厨発言だった場合、
*98さんに繰り下げするとかでおながいします。
というわけでまずは>>99-100おながいします。
*99の指定したCGIを*00が作るスレ
1nobodyさん
02/11/17 11:43ID:r2gR01qm191nobodyさん
02/12/13 07:14ID:??? さて、別に俺は荒らしでもなんでもなく、>>100が創ってくれるのを待ってるんだが、同時進行でスレ活性。うっほい。あ、このスレだけ「作る」を「創る」にしない？
192nobodyさん
02/12/13 07:16ID:??? ドクターペッパーの由来は、ペッパー医師の娘に惚れていたが父親に認められなくて結婚を断念した青年が創った飲料で
それにドクターペッパーって名前つけたら医師も許してくれたんだって
それにドクターペッパーって名前つけたら医師も許してくれたんだって
193nobodyさん
02/12/13 07:16ID:??? なんのこっちゃだね。このスレ住人は怒るかな？青年。違う、俺のことを
194nobodyさん
02/12/13 07:17ID:??? 今宵もcgiを創りながら
195nobodyさん
02/12/13 07:17ID:??? 缶を傾ける・・・ fin
197nobodyさん
02/12/13 08:46ID:IN4gWS6o エクスプローラに激似の、アップローダ兼ファイル管理CGI
199199
02/12/13 09:09ID:??? 199
200200
02/12/13 09:10ID:??? 200
202nobodyさん
02/12/13 09:16ID:???203nobodyさん
02/12/13 09:52ID:??? 擦れたいから想像するに後方参照して(それに100足して)いるわけじゃないし
199が指定したものを200が作る必要ないのでは？とひねくれてみる
199が指定したものを200が作る必要ないのでは？とひねくれてみる
204nobodyさん
02/12/13 13:18ID:PrrV69nn 199なCGIってどんなだろう？
206100
02/12/13 14:15ID:??? 呼んだか?
207nobodyさん
02/12/13 14:26ID:1ejr4/26 つかえねー>>100だな
209nobodyさん
02/12/13 16:07ID:??? #!/usr/bin/perl
print "Content-type: text/plain\n\n";
print "199";
print "Content-type: text/plain\n\n";
print "199";
212nobodyさん
02/12/13 22:51ID:???213nobodyさん
02/12/14 08:08ID:??? > 「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」
CGI版 WebDAV(or FTP) Client ?
CGI版 WebDAV(or FTP) Client ?
215nobodyさん
02/12/14 22:29ID:/7Ilx+P7 >>200
賃貸マンション住まいでしょ?
賃貸マンション住まいでしょ?
216nobodyさん
02/12/15 04:40ID:??? 次の\d99まで暇だから、
\d00が指定されたCGIの製作過程を残す、というのはどう？
言語選択 - PHP #
板一覧の所得 ...
スレッド一覧の所得 ...
乱数の生成 ... int rand(min, max)
と、もうちょっと生産的な方向に流れを変えて見よう
\d00が指定されたCGIの製作過程を残す、というのはどう？
言語選択 - PHP #
板一覧の所得 ...
スレッド一覧の所得 ...
乱数の生成 ... int rand(min, max)
と、もうちょっと生産的な方向に流れを変えて見よう
217nobodyさん
02/12/15 04:43ID:FL3a4bzG まだ書いてる途中だったのに送信してしまった・・・
まぁ、いぃや。
まぁ、いぃや。
218nobodyさん
02/12/15 04:46ID:FL3a4bzG 216-217 の書きこみの間でbbs.cgi変わった？
書き込み前に確認画面出るようになったよ。
書き込み前に確認画面出るようになったよ。
219nobodyさん
02/12/15 05:03ID:???221nobodyさん
02/12/15 15:51ID:??? 次はどんなご注文で？
222nobodyさん
02/12/15 16:32ID:??? 激萌えぁゃゃcgiをきぼんぬ
223nobodyさん
02/12/16 12:58ID:kYAlrIEv225nobodyさん
02/12/20 14:24ID:bSnvNs3j http://live.2ch.net/test/read.cgi/festival/1040349157/
TIME投稿ツールｷﾎﾞﾝぬ
TIME投稿ツールｷﾎﾞﾝぬ
228nobodyさん
02/12/20 23:38ID:??? おまいら趣旨を理解しやがってください。
229nobodyさん
02/12/24 23:42ID:2kS8TiT1 メリクリ
230nobodyさん
02/12/25 17:15ID:U7g6MD4O >>229
ｸﾘﾒﾘ
ｸﾘﾒﾘ
231nobodyさん
02/12/25 21:45ID:??? ｳﾞｧﾘｭｸﾘ
232nobodyさん
02/12/27 09:52ID:PDegbcoZ クリスマス以降寂れたのか？
233nobodyさん
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";
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";
234nobodyさん
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";
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";
235_
02/12/31 10:48ID:gfphPIoL236nobodyさん
02/12/31 13:16ID:qLQW6luA おゆ〜
237nobodyさん
03/01/04 20:27ID:tm/4/3y9 >>233
もうちょっと読みやすくつくってｸﾚ
もうちょっと読みやすくつくってｸﾚ
239nobodyさん
03/01/04 21:21ID:uoWySJDJ 読みにくい。
注釈文をいれようょ
注釈文をいれようょ
241nobodyさん
03/01/06 16:15ID:vXxmrd3Z あげ
242nobodyさん
03/01/10 16:05ID:??? Perl らしくない。
もうちょっと呪文を混ぜようょ
もうちょっと呪文を混ぜようょ
243nobodyさん
03/01/11 12:22ID:9FJE/Arw Perl らしくない。
もうちょっと電波を混ぜようょ
もうちょっと電波を混ぜようょ
246nobodyさん
03/01/13 01:58ID:zFhrRpi4 if($a == 1){
#--VBじゃねえんだぞ----
# $a = $a + 1;
$a++;
}
#--VBじゃねえんだぞ----
# $a = $a + 1;
$a++;
}
249nobodyさん
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)
//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)
250nobodyさん
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>
//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>
251nobodyさん
03/01/13 13:28ID:??? <META HTTP-EQUIV="refresh" CONTENT="0;URL=<?print($list[rand(0,count($list) - 1)]);?>">
に訂正。
に訂正。
252nobodyさん
03/01/13 14:03ID:??? このまま300いくに1000php
253nobodyさん
03/01/14 18:08ID:7L6kWj+N 無視して次のおだいまでAGE
256山崎渉
03/01/15 13:31ID:??? （＾＾）
257nobodyさん
03/01/17 01:37ID:BIc4KCgY >>254
山崎渉をあげるから逝って来い
山崎渉をあげるから逝って来い
261nobodyさん
03/01/17 22:20ID:??? 100本人じゃないとだめっしょ
そういうスレ
そういうスレ
262nobodyさん
03/01/19 23:49ID:NJuI9Ez7263nobodyさん
03/01/20 02:51ID:??? 263
264nobodyさん
03/02/01 01:35ID:??? age
266山崎渉
03/03/13 17:22ID:??? （＾＾）
267nobodyさん
03/03/30 23:03ID:??? うんこ
268nobodyさん
03/03/30 23:03ID:2BSCR98U269nobodyさん
03/03/31 02:15ID:??? *99を利用してなんか無理矢理作ってみるってのはどうだ？
270nobodyさん
03/03/31 03:05ID:??? なんか久しぶりに動いたな、このスレ。
271山崎渉
03/04/17 12:11ID:??? （＾＾）
272山崎渉
03/04/20 06:22ID:??? ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
（ ＾＾ ）＜ ぬるぽ（＾＾）
273age
03/05/05 13:53ID:??? age
274nobodyさん
03/05/05 14:06ID:zlc2Jh4q275age
03/05/11 15:09ID:??? age
276bloom
03/05/11 15:10ID:D5AlwyCG277435
03/05/11 16:16ID:??? 無能な１００がいるスレはここでつか？
279動画直リン
03/05/21 13:08ID:JZ9K0e/X280かおりん祭り
03/05/21 13:08ID:??? 〜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
( ＾▽＾) ＜ こんなのがございまーす♪
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
281nobodyさん
03/05/21 14:36ID:??? 281
282nobodyさん
03/05/21 14:36ID:??? 282
283nobodyさん
03/05/21 14:37ID:??? 283
284nobodyさん
03/05/21 14:37ID:??? 284
285nobodyさん
03/05/21 14:37ID:??? 285
286nobodyさん
03/05/21 14:37ID:??? 286
287nobodyさん
03/05/21 14:37ID:??? 287
288nobodyさん
03/05/21 14:38ID:??? 288
289nobodyさん
03/05/21 14:38ID:??? 289
290nobodyさん
03/05/21 16:58ID:??? 290
レスを投稿する
ニュース
- 【自維】鮭おにぎり198円に絶望、コンビニすら遠い存在に…「生き延びられない」物価高で広がる生活苦★6 [ひぃぃ★]
- 【W杯】韓国が大窮地 悪夢のシナリオ止まらず 決勝Ｔ進出順位ボーダーの８位に転落 セネガル、イランに抜かれる ★5 [尺アジ★]
- イチロー氏、野球と比べてサッカーが「うらやましい」と語る 「チームのためにという感じが」「野球は個人で成績を出さないとボロカス」 [冬月記者★]
- 【サッカー】ブラジル戦、NHKは地上波なし 本田圭佑はBSで解説… 悲鳴続出「マジかよ」 地上波はフジテレビが生中継、解説は小野伸二 [冬月記者★]
- 不快に感じる作業音3位は「パソコンのキーボード音」2位に「ボールペン等のノック音」…1位は？日本人は音に敏感すぎる？ [muffin★]
- 【サッカー】日本代表、ブラジル戦でアウェーユニホーム着用へ… FIFAが公式発表 爆売れの白デザイン、W杯で初お披露目！ [冬月記者★]
- とらせん
- 【地上波/DAZNほか】 FIFAワールドカップ2026 総合スレ★218修正【メキシコ/カナダ/アメリカ】
- 〓たかせん〓
- 巨専】
- わしせん3
- 【地上波/DAZNほか】 FIFAワールドカップ2026 総合スレ★219【メキシコ/カナダ/アメリカ】
- 地震 [904880432]
- 中森明菜バラエティ番組出るんだって
- 日本人さん、震度5の地震にも動じず朝市を続ける [511393199]
- 女友達と宅飲みしてセックスできそうだったのに寝落ちしてこの時間
- 本当のイケメンって無料でセックス出来るらしいな
- 経団連「年内には訪中して習主席と面会したい😢レアアースもタングステンももう限界😢」 ★2 [904151406]