*99の指定したCGIを*00が作るスレ
おいおまいら、WebProg板でもこのスレをやってみましょう、おながいします。
ただし、*99があまりにも難しすぎるお題だったり、荒らし、明らかに厨発言だった場合、
*98さんに繰り下げするとかでおながいします。
というわけでまずは>>99-100おながいします。 めでたく13ゲットです。
ウチの前にオムライスがみっツ出てくる自動販売機を作ってください。 99まで時間があるので、人生について語りましょう。 /ヽ ___________
/:::::\ θ /
/::::/⌒ヽ丿 < >>9さんbeenドゾー
ノ ̄丶_ノ \___________
ノ| __ |
∪ ∪
じゃあ2ちゃんねるに宣伝してるうざい業者に
大量訪問するCGIをつくってください。 >>28
あまりマイナーな奴を除けばなんでもいいと思われ。 Perl,Ruby,C,C++,Java,Python,sh >>21
そんなのCGIじゃなくて超田代砲でいいでしょ。 んじゃ加速すればいいんじゃん?
まずは99までいってみようよ!
ではスレ流しに協力
>>99
実用的なモンじゃなくて、一発ネタキボンヌ >>100にはなりたくない。なれない。
>>99
とりあえず言っとけ 繰り下がるから>>100とっても平気。
で、ずーっと繰り下がって(以下略 まだだな。
とりあえず>>49お題、>>50作成にしたらどうか? しかしこの板じゃ
あえて50だの100だのを取るヤシはいない気がする。
#49でdat落ちキヴォンヌ(ぉ このスレは「*9の指定したお題を*0が提案するスレ」に変更になりました。
___
/ \
/ ∧ ∧ \ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ・ ・ | < おまえがつくれよ
| )●( | \__________
\ ー ノ
\____/ 100が近づいたら怖じ気づいて誰も発言しなくなる罠
まぁ それでも90台ぐらいまでは逝ってみなくては…… お題を考えるほうが難しい…すでにあるものを作れと言ってしまいそうだ。 >63
んなこと言うなら埋め立てればいいじゃんよ。
と言いつつ間に割り込んで100食らわせようとする罠。 「*00の指定した番号の奴が作らされるスレ」とかのほうが面白くないか?
ここに書いた奴全員が作る側にまわされる可能性があるわけだし。
99か100か知らんけど、指定したCGIを作る勇者が居たら盛り上がるんじゃね? 「*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 |||||||||| MMORPG
100毎に、モジュール単位で作ってくとかはどう? >>90
CGIでGAMEなんか作ったら
重すぎるって! おっ、ひとっ風呂あびてるあいだにこんなに成長しやがって〜! 最初はすごく簡単なのがいいかな。
だんだん難しくなる方向で。
1アクセスするごとに、10カウンタが増えるカウンタとか。
ページにいくごとに、2chのどれかの板にランダムに飛ぶ
「2ちゃんねるルーレット」 >>102
無駄な騙りはやめようよ・・・
>>101
2ch系のスクリプトが増えると
おもしろいかもしれないと思いまして・・・ 簡単だから早めにできてしまうね。その後は>>199まで待つのか・・・ じゃあ、マターリと199までがんばろう
100が早く作ってくれてソースを公開してくれたら
それを肴に伸びるかもしれない。 2chルーレット〜プログラム板〜
http://pc3.2ch.net/test/read.cgi/tech/1031427459/
すでに・・・・・・・・・・・・・
いや、上のスレの事は忘れてくれ。 300以上ある板のアドレスを書くのが面倒かも・・・・
左のメニューを加工すればいいか?
あ、全ての板が対象でなくてもいいのか。 かちゅ用の2channel.brdを読み込んで加工するようにすれば鯖移転にも自動的に対応できる。
>>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) >>111
惜しい。
最初の一文字だけあっている。 >>!14
正解。
板を変更することは、それ程頻繁にないと思うけど
スレッドは・・・、新しいスレが建った場合はどうするんだろう?
毎回一覧読みに行く? ___
/ \
/ ∧ ∧ \ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ・ ・ | < >>100まだできないのか?
| )●( | \__________
\ ー ノ
\____/ なんだよ、このスレ企画倒れかよ。
さすがWebProg板だな。 ^[1-9]*99の指定したCGIを^[1-9][0-9]*が作るスレ
^.?99$のしてーしたCGIを^.00$が作らされるスレ >>115
それ、俺も考えた。
板メニューは多くても一日一回程度でいいけど、
スレ一覧は速いところだと、一時間もすれば様変わりするからな。
かといって、恐ろしく頻繁にアクセスがある場合などは、
スレ一覧もある程度保存しておいた方がいいのかな・・・。
逆に時々しかアクセスされないなら、
いちいち読みに逝くことを前提にした方がいい。 そもそも既にできているモノを作っても意味ないような
自動で煽れるcgiとか作ってくれ >>121
2chに、NTTPみたいな新規のスレッドの差分のみを
知らせてくれる機能があればいいんだけどなぁ。
多分、そんな設計にはなっていないだろう。
それ程リアルタイム性を要求されるわけでもないから、
新しいリスト所得できても、どうせランダムで一つ選ぶだけなんだし。
毎回読みに行くのは、負荷のリスクに見合うだけのメリットがないと思うのだけど、どうだろう?
とりあえず、キャッシュは持っておいて、
HEADで更新時間をチェック、新しければ GET で盗ってくる。
更新は数時間間隔でいいんじゃない?
個人的な意見としては、 >>122 に激しく同意 まあ最初だしネタが既出でも>>100のやり方でやりきって欲しい。
それ事実が*99->*00へ繋がっていくだろう。
それで>>100は作ったのか?
どうもドクターペッパーのほうが飽きないんではないかと 初めて家族で行ったキャンプ場の電灯が1つだけついてる便所 他のメンバー「うまい」とか「新しい味」とか言ってたのに ・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・ 他のメンバー「だまるくらいうまい、と」とかフォローしてるし 10%オレンジジュースみたい。まずいでしょ、100%に比べると さて、別に俺は荒らしでもなんでもなく、>>100が創ってくれるのを待ってるんだが、同時進行でスレ活性。うっほい。あ、このスレだけ「作る」を「創る」にしない? ドクターペッパーの由来は、ペッパー医師の娘に惚れていたが父親に認められなくて結婚を断念した青年が創った飲料で
それにドクターペッパーって名前つけたら医師も許してくれたんだって なんのこっちゃだね。このスレ住人は怒るかな?青年。違う、俺のことを >>127-195
そのペースで199,200も踏んで、201辺りでUPしてくれるとうれしいぞ! エクスプローラに激似の、アップローダ兼ファイル管理CGI >>1を見ると「繰り下げ」っていうことは
>>197か?
オーダー!
「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」ぃ〜♪
>>200
ヨロ 擦れたいから想像するに後方参照して(それに100足して)いるわけじゃないし
199が指定したものを200が作る必要ないのでは?とひねくれてみる >>100はつくれないから>>127-195のような書き込みをしたスレ #!/usr/bin/perl
print "Content-type: text/plain\n\n";
print "199"; >>197
「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」
つーか、スキンなんかどーでもいーだろ。
お前ホントにWebプログラマかと。 > 「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」
CGI版 WebDAV(or FTP) Client ? 次の\d99まで暇だから、
\d00が指定されたCGIの製作過程を残す、というのはどう?
言語選択 - PHP #
板一覧の所得 ...
スレッド一覧の所得 ...
乱数の生成 ... int rand(min, max)
と、もうちょっと生産的な方向に流れを変えて見よう まだ書いてる途中だったのに送信してしまった・・・
まぁ、いぃや。 216-217 の書きこみの間でbbs.cgi変わった?
書き込み前に確認画面出るようになったよ。 >>212
スキンじゃなくて、この場合は、
ユーザー・インターフェースとかアクセスビリティだろ?
drag-dropでファイル、アップロードしたり
アイコンを右クリックでcontext menu開いて、削除を選択
で、サーバー上のファイルを削除したりとか、
そういうのを作りたいんじゃないかな?>>197 >>218
どっかのバカが荒らしまくったので、
ひろゆきが全板のクッキー設定を変えたらしい。 >>225
まず、60x16ピクセルのgif画像を解析して5桁の数字を抜き出さないとだめみたいね。
ノイズも入ってないから出来るかも。 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";
Perl らしくない。
もうちょっと呪文を混ぜようょ Perl らしくない。
もうちょっと電波を混ぜようょ いいかげんそろそろ書かないとな、>>100 よォ! if($a == 1){
#--VBじゃねえんだぞ----
# $a = $a + 1;
$a++;
} >>246
$aが初期値の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)
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)]);?>">
に訂正。 >>299
Age2chを越える荒らしツール依頼よろ *99を利用してなんか無理矢理作ってみるってのはどうだ? >>99
>>100ではないが質問。
ページってなに? ━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━― ∧_∧
ピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。
=〔~∪ ̄ ̄〕
= ◎――◎ 山崎渉 (・∀・)イイ懸賞サイト、お小遣いサイトをピックアップして紹介しています
月に1万円以上は稼げそうにないけど、4000円ぐらいなら確実に稼げます!!
無料登録するだけで商品券が貰えるサイトなども載せてあります
http://f15.aaacafe.ne.jp/~suikas/present.html >>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$/);
}
}
__∧_∧_
|( ^^ )| <寝るぽ(^^)
|\⌒⌒⌒\
\ |⌒⌒⌒~| 山崎渉
~ ̄ ̄ ̄ ̄ ∧_∧ ∧_∧
ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。
=〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
= ◎――――――◎ 山崎渉&ぼるじょあ (⌒V⌒)
│ ^ ^ │<これからも僕を応援して下さいね(^^)。
⊂| |つ
(_)(_) 山崎パン <title>2ちゃんねるルーレット</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");
} ageeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
| | ガガガガガッ
| |
人
∧_∧ < >_∧∩
( ・∀・) 人`Д´)/ ←>>272
と ) < >_∧∩
Y /ノ .人`Д´)/ ←>>313
/ ) < >_∧∩
_/し' //. V`Д´)/ ←>>320
(_フ彡 / _
|O\
| \ キリキリ
∧|∧ \ キリキリ
ググゥ>(;⌒ヽ \
∪ | (~)
∪∪ γ´⌒`ヽ
) ) {i:i:i:i:i:i:i:i:}
( ( ( ´・ω・)、
(O ⌒ )O
⊂_)∪ 誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
9R1ADQXKGO もっと君のかわいい声ききたいな…ほら、その手どけてよ…もっと聞かせて…