2013年17WebProg217: *99の指定したCGIを*00が作るスレ (325)
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▼
【勉強するのは】PHPとPerl【どっちが最初?】 (393)
Proxy制限版プチ☆ボード公開♪ (110)
CGIで運営される2ちゃんねる (223)
【管理】Trac使ってみよう【してみよう】 (275)
金出すから改造してよvol.3 (123)
Mac OS X + PHP + MySQL (190)
*99の指定したCGIを*00が作るスレ
1 :02/11/17 〜 最終レス :2013/03/27 おいおまいら、WebProg板でもこのスレをやってみましょう、おながいします。 ただし、*99があまりにも難しすぎるお題だったり、荒らし、明らかに厨発言だった場合、 *98さんに繰り下げするとかでおながいします。 というわけでまずは>>99-100 おながいします。
2 : 過疎板で2ゲット
3 : 2
4 : ここから98まではどうするよ?
5 : まず>>9 が>>10 の指定したCGIを作るとか?
6 : 6レス
7 : あ
8 : い。
9 : >>10 2chで使えるDuke作って
10 : >>9 厨は屍ねよ
11 : 終了
12 : 過疎板じゃやっぱり無理なんじゃねーの?
13 : めでたく13ゲットです。 ウチの前にオムライスがみっツ出てくる自動販売機を作ってください。
14 : 14
15 : 99まで時間があるので、人生について語りましょう。
16 : >>15 今日も昼から2ちゃんねるめぐりです。
17 : >>14-16 ワラタw
18 : >>17 じゃお約束で「オマエモナー」と。
19 : /ヽ ___________ /:::::\ θ / /::::/⌒ヽ丿 < >>9 さんbeenドゾー ノ ̄丶_ノ \___________ ノ| __ | ∪ ∪
20 : 今日も今日とてネタはなし。
21 : じゃあ2ちゃんねるに宣伝してるうざい業者に 大量訪問するCGIをつくってください。
22 : >>21 板違いっぽい。
23 : 過疎板で99を待つのは一ヶ月かかりそう・・・
24 : http://plaza.rakuten.co.jp/a240a/
25 : ageage
26 : >>23 こんな糞スレじゃ99行くのに6ヶ月は…
27 : >>23 >>27 まだ1/3もいってないしな。
28 : 言語は問わず?
29 : >>28 あまりマイナーな奴を除けばなんでもいいと思われ。
30 : Perl,Ruby,C,C++,Java,Python,sh
31 : >>21 そんなのCGIじゃなくて超田代砲でいいでしょ。
32 : んじゃ加速すればいいんじゃん? まずは99までいってみようよ!
33 : ではスレ流しに協力 >>99 実用的なモンじゃなくて、一発ネタキボンヌ
34 : 促進age >>99 笑える奴な。
35 : >>100 にはなりたくない。なれない。 >>99 とりあえず言っとけ
36 : CGIで作ったMMORPG
37 : 繰り下がるから>>100 とっても平気。 で、ずーっと繰り下がって(以下略
38 : さあ、みんなで>>100 を応援しよう
39 : あげ
40 : >>100 >>100 >>100
41 : >>99 おまいはノロマだな(w
42 : 泣けるスレですね
43 : >>99 欲張りさんめ・・・
44 : 98ゲットズサー
45 : まだかな、まだかな・・
46 : まだだな。 とりあえず>>49 お題、>>50 作成にしたらどうか?
47 : しかしこの板じゃ あえて50だの100だのを取るヤシはいない気がする。 #49でdat落ちキヴォンヌ(ぉ
48 :
49 : お題を制作してください >>50
50 : なんかスゴイCGI
51 : このスレは「*9の指定したお題を*0が提案するスレ」に変更になりました。
52 : なんかえろいCGiで。
53 : ・・・で、誰が作るんだw?
54 : 1000が。
55 : >>100 作れよ
56 : ___ / \ / ∧ ∧ \ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ | ・ ・ | < おまえがつくれよ | )●( | \__________ \ ー ノ \____/
57 : aaa
58 : #!/usr/bin/env gawk
59 : 100が近づいたら怖じ気づいて誰も発言しなくなる罠
60 : undef >>1 ;
61 : まぁ それでも90台ぐらいまでは逝ってみなくては……
62 : お題を考えるほうが難しい…すでにあるものを作れと言ってしまいそうだ。
63 : 早く指定しろよ。みんな待ってるぞ>99
64 : >63 んなこと言うなら埋め立てればいいじゃんよ。 と言いつつ間に割り込んで100食らわせようとする罠。
65 : >>99 じらすなよ
66 : 「*00の指定した番号の奴が作らされるスレ」とかのほうが面白くないか? ここに書いた奴全員が作る側にまわされる可能性があるわけだし。
67 : 面白そう。でも、自己申告で名乗りあがるかなっ?
68 : あげあげ
69 : 1月たっても70かよ(藁
70 : 99か100か知らんけど、指定したCGIを作る勇者が居たら盛り上がるんじゃね?
71 : ネタが面白ければ…
72 : 結構楽しみだね、これ。
73 : 99GETズサーーー
74 : 「*00が指定したCGIをみんなで作るスレ」にしよう!
75 : ++
76 : おっ、けふはすすみぐあいがいいんでないかい?
77 : 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 ||||||||||
78 : 近々忘れ去られる予定。
79 : あげ
80 : さげ
81 : もうすぐかのー?
82 : 99今日行っとく?
83 : 逝っとく?
84 : 逝っとく 逝っとく
85 : 俺一人で99まで行っとくは、
86 : あげるかー
87 : 87
88 : おいおまえら
89 : MMORPG 100毎に、モジュール単位で作ってくとかはどう?
90 : GAMEいいねー RPGがいいなー
91 : >>90 CGIでGAMEなんか作ったら 重すぎるって!
92 : じゃぁどんなのがいい?
93 : ↓こんなのとかどう?
94 : おっ、ひとっ風呂あびてるあいだにこんなに成長しやがって〜!
95 : 微妙
96 : ビクビク
97 : 最初はすごく簡単なのがいいかな。 だんだん難しくなる方向で。 1アクセスするごとに、10カウンタが増えるカウンタとか。
98 : ビクビク
99 : ページにいくごとに、2chのどれかの板にランダムに飛ぶ 「2ちゃんねるルーレット」
100 : ほほう
101 : 既にあった気はしますが。
102 : >>100 早く作れよ頃すぞ
103 : >>102 無駄な騙りはやめようよ・・・ >>101 2ch系のスクリプトが増えると おもしろいかもしれないと思いまして・・・
104 : 簡単だから早めにできてしまうね。その後は>>199 まで待つのか・・・
105 : じゃあ、マターリと199までがんばろう 100が早く作ってくれてソースを公開してくれたら それを肴に伸びるかもしれない。
106 : 2chルーレット〜プログラム板〜 http://pc3.2ch.net/test/read.cgi/tech/1031427459/ すでに・・・・・・・・・・・・・ いや、上のスレの事は忘れてくれ。
107 : 300以上ある板のアドレスを書くのが面倒かも・・・・ 左のメニューを加工すればいいか? あ、全ての板が対象でなくてもいいのか。
108 : かちゅ用の2channel.brdを読み込んで加工するようにすれば鯖移転にも自動的に対応できる。
109 : いや、、再開発するつもり?> 107-108
110 : >>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 : >>110 何語ですか pascal?
112 : >>100 まだできないのか?
113 : >>111 惜しい。 最初の一文字だけあっている。
114 : >>113 使ったことないけどPython?
115 : >>!14 正解。 板を変更することは、それ程頻繁にないと思うけど スレッドは・・・、新しいスレが建った場合はどうするんだろう? 毎回一覧読みに行く?
116 : ___ / \ / ∧ ∧ \ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ | ・ ・ | < >>100 まだできないのか? | )●( | \__________ \ ー ノ \____/
117 : なんだよ、このスレ企画倒れかよ。 さすがWebProg板だな。
118 : ^[1-9]*99の指定したCGIを^[1-9][0-9]*が作るスレ
119 : age
120 : ^.?99$のしてーしたCGIを^.00$が作らされるスレ
121 : >>115 それ、俺も考えた。 板メニューは多くても一日一回程度でいいけど、 スレ一覧は速いところだと、一時間もすれば様変わりするからな。 かといって、恐ろしく頻繁にアクセスがある場合などは、 スレ一覧もある程度保存しておいた方がいいのかな・・・。 逆に時々しかアクセスされないなら、 いちいち読みに逝くことを前提にした方がいい。
122 : そもそも既にできているモノを作っても意味ないような 自動で煽れるcgiとか作ってくれ
123 : >>100 早く作れよ頃すぞ
124 : >>100 おせーな、おい!
125 : >>121 2chに、NTTPみたいな新規のスレッドの差分のみを 知らせてくれる機能があればいいんだけどなぁ。 多分、そんな設計にはなっていないだろう。 それ程リアルタイム性を要求されるわけでもないから、 新しいリスト所得できても、どうせランダムで一つ選ぶだけなんだし。 毎回読みに行くのは、負荷のリスクに見合うだけのメリットがないと思うのだけど、どうだろう? とりあえず、キャッシュは持っておいて、 HEADで更新時間をチェック、新しければ GET で盗ってくる。 更新は数時間間隔でいいんじゃない? 個人的な意見としては、 >>122 に激しく同意
126 : まあ最初だしネタが既出でも>>100 のやり方でやりきって欲しい。 それ事実が*99->*00へ繋がっていくだろう。 それで>>100 は作ったのか?
127 : 最近ですね
128 : 疑問なんですが
129 : ドクターペッパーとコーラは
130 : どっちがうまいですかね
131 : 俺が思うに
132 : どうもドクターペッパーのほうが飽きないんではないかと
133 : なぜかっていうと
134 : 美人は
135 : 三日で飽きる
136 : ブスは
137 : あきねーでしょ、これが
138 : ドクターペッパー飲むたびに
139 : 「うぼっ」って思うこと間違いなしっすよ
140 : でもね
141 : 実際俺はうまいとおもうんだけど
142 : 名前が悪いと思うんだ
143 : 「ペッパー」て
144 : なんかこう、胡椒を連想しません?
145 : ジンジャーやコカは、さほど知られてないがゆえ
146 : モーマンタイでしょうけど
147 : ペッパーて
148 : 初心者買うのためらうわ
149 : 俺もためらったもん
150 : 「飲んでみたい」より
151 : 「飲めなかったらどうしよう」のほうが強かったね
152 : で、捨て銭だと思いこんで買ったんですよ、深夜
153 : うまかった
154 : あれ、コーラよりうまいじゃん。て。
155 : 冷たさと、あっさりテイストがマッチ
156 : どこに薬品臭が?ってね
157 : 「似てる」って一時言われて
158 : 一時流行った
159 : 「SMAP」(飲料)
160 : あれは
161 : 毒
162 : やばいと思った
163 : 初めて家族で行ったキャンプ場の電灯が1つだけついてる便所
164 : なまじ明かりがついてるもんだから
165 : 壁がね
166 : 蛾蛾蛾SP
167 : あれも、やばいと思った
168 : そんぐらい。SMAP。
169 : よく発売したなあと
170 : 朝のワイドショーにSMAPのVTRが流れて
171 : 他のメンバー「うまい」とか「新しい味」とか言ってたのに
172 : 木村「
173 : 飲んだ後に…
174 : ・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
175 : ん?(微笑」
176 : だもん
177 : 他のメンバー「だまるくらいうまい、と」とかフォローしてるし
178 : 正直者をよってたかって隠蔽か
179 : 黒い、黒いよ
180 : 蛾蛾蛾SP
181 : まぁそんなこんなで
182 : ファンタ愛飲者には怒られそうですが
183 : 一応やっとく・・・?
184 : ファンタね。偽者くさい。
185 : 10%オレンジジュースみたい。まずいでしょ、100%に比べると
186 : 桃味って2000年限定だと思ってたのに
187 : ホワイトピーチが普通に発売されてる現実
188 : クレームはどこにつけりゃいいの!?
189 : コカコーラ社です。
190 : やっぱだめだ、コーラ。ドクペ再来の季節。
191 : さて、別に俺は荒らしでもなんでもなく、>>100 が創ってくれるのを待ってるんだが、同時進行でスレ活性。うっほい。あ、このスレだけ「作る」を「創る」にしない?
192 : ドクターペッパーの由来は、ペッパー医師の娘に惚れていたが父親に認められなくて結婚を断念した青年が創った飲料で それにドクターペッパーって名前つけたら医師も許してくれたんだって
193 : なんのこっちゃだね。このスレ住人は怒るかな?青年。違う、俺のことを
194 : 今宵もcgiを創りながら
195 : 缶を傾ける・・・ fin
196 : >>127-195 そのペースで199,200も踏んで、201辺りでUPしてくれるとうれしいぞ!
197 : エクスプローラに激似の、アップローダ兼ファイル管理CGI
198 : >>197 早漏
199 : 199
200 : 200
201 : >>199 (′Д`)
202 : >>1 を見ると「繰り下げ」っていうことは >>197 か? オーダー! 「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」ぃ〜♪ >>200 ヨロ
203 : 擦れたいから想像するに後方参照して(それに100足して)いるわけじゃないし 199が指定したものを200が作る必要ないのでは?とひねくれてみる
204 : 199なCGIってどんなだろう?
205 : では >>100 ヨロ
206 : 呼んだか?
207 : つかえねー>>100 だな
208 : >>100 はつくれないから>>127-195 のような書き込みをしたスレ
209 : #!/usr/bin/perl print "Content-type: text/plain\n\n"; print "199";
210 : >>209 完成したか、じゃ次299->300
211 : >>100 早く作れよ頃すぞ
212 : >>197 「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」 つーか、スキンなんかどーでもいーだろ。 お前ホントにWebプログラマかと。
213 : > 「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」 CGI版 WebDAV(or FTP) Client ?
214 : >>100 早く作れよつぶすぞ
215 : >>200 賃貸マンション住まいでしょ?
216 : 次の\d99まで暇だから、 \d00が指定されたCGIの製作過程を残す、というのはどう? 言語選択 - PHP # 板一覧の所得 ... スレッド一覧の所得 ... 乱数の生成 ... int rand(min, max) と、もうちょっと生産的な方向に流れを変えて見よう
217 : まだ書いてる途中だったのに送信してしまった・・・ まぁ、いぃや。
218 : 216-217 の書きこみの間でbbs.cgi変わった? 書き込み前に確認画面出るようになったよ。
219 : >>212 スキンじゃなくて、この場合は、 ユーザー・インターフェースとかアクセスビリティだろ? drag-dropでファイル、アップロードしたり アイコンを右クリックでcontext menu開いて、削除を選択 で、サーバー上のファイルを削除したりとか、 そういうのを作りたいんじゃないかな?>>197
220 : >>218 どっかのバカが荒らしまくったので、 ひろゆきが全板のクッキー設定を変えたらしい。
221 : 次はどんなご注文で?
222 : 激萌えぁゃゃcgiをきぼんぬ
223 : 外部2ちゃんねるread.cgi http://pc.2ch.net/test/read.cgi/php/1028943269/ これの現在の2ちゃんねるの使用で使えるやつ
224 : >>100 早く作れよ頃すぞ
225 : http://live.2ch.net/test/read.cgi/festival/1040349157/ TIME投稿ツールキボンぬ
226 : >>225 それなら死ぬ気で299取れ
227 : >>225 まず、60x16ピクセルのgif画像を解析して5桁の数字を抜き出さないとだめみたいね。 ノイズも入ってないから出来るかも。
228 : おまいら趣旨を理解しやがってください。
229 : メリクリ
230 : >>229 クリメリ
231 : ヴァリュクリ
232 : クリスマス以降寂れたのか?
233 : 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";
234 : 続き 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 : http://freeweb2.kakiko.com/dengeki/indexc.htm
236 : おゆ〜
237 : >>233 もうちょっと読みやすくつくってクレ
238 : >>237 読めないか?
239 : 読みにくい。 注釈文をいれようょ
240 : >>100 早く作れよ頃すぞ
241 : あげ
242 : Perl らしくない。 もうちょっと呪文を混ぜようょ
243 : Perl らしくない。 もうちょっと電波を混ぜようょ
244 : いいかげんそろそろ書かないとな、>>100 よォ!
245 : いつくらいに>>100 が頃されますか?
246 : if($a == 1){ #--VBじゃねえんだぞ---- # $a = $a + 1; $a++; }
247 : >>246 $aが初期値の0だと仮定するとそのループの中は一回も実行されない。 お前も似たようなレベルだ。
248 : >>100 早く作れよ頃すぞ
249 : <? //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)
250 : 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>
251 : <META HTTP-EQUIV="refresh" CONTENT="0;URL=<?print($list[rand(0,count($list) - 1)]);?>"> に訂正。
252 : このまま300いくに1000php
253 : 無視して次のおだいまでAGE
254 : >>299 Age2chを越える荒らしツール依頼よろ
255 : >>254 後六回R。
256 : (^^)
257 : >>254 山崎渉をあげるから逝って来い
258 : >>255-257 期待してんだろ
259 : >>100 早く作れよ頃すぞ
260 : >>259 >>249-250
261 : 100本人じゃないとだめっしょ そういうスレ
262 :
263 : 263
264 : age
265 : >>100 早く作れよ頃すぞ
266 : (^^)
267 : うんこ
268 : ★みんなの情報局★みんなのリンク集★ココ最高★ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ http://www.pink-angel.jp/betu/linkvp2/linkvp.html
269 : *99を利用してなんか無理矢理作ってみるってのはどうだ?
270 : なんか久しぶりに動いたな、このスレ。
271 : (^^)
272 : ∧_∧ ( ^^ )< ぬるぽ(^^)
273 : age
274 : http://bizinfo.cool.ne.jp/biz-rank/ranklink.cgi?id=mercury
275 : age
276 : http://homepage.mac.com/ayaya16/
277 : 無能な100がいるスレはここでつか?
278 : >>99 >>100 ではないが質問。 ページってなに?
279 : http://homepage.mac.com/hitomi18/
280 : 〜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 : 281
282 : 282
283 : 283
284 : 284
285 : 285
286 : 286
287 : 287
288 : 288
289 : 289
290 : 290
291 : 291
292 : 292
293 : 293
294 : 294
295 : 295
296 : 296
297 : 297
298 : 298
299 : SARSの死者の自動カウントCGI
300 : OK で、cgiってなんだ?
301 : ━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―
302 : ∧_∧ ピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。 =〔~∪ ̄ ̄〕 = ◎――◎ 山崎渉
303 : どうよ
304 : http://homepage.mac.com/hiroyuki43/hankaku06.html
305 : (・∀・)イイ懸賞サイト、お小遣いサイトをピックアップして紹介しています 月に1万円以上は稼げそうにないけど、4000円ぐらいなら確実に稼げます!! 無料登録するだけで商品券が貰えるサイトなども載せてあります http://f15.aaacafe.ne.jp/~suikas/present.html
306 : >>303 おk
307 : >>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 : >>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 : ものすごい数のサンプルと画像を集めてみました。モロ こきすぎ注意 http://www.h2.dion.ne.jp/~m_oka/moemoe/ero_03.html
310 : >>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 : >>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 : __∧_∧_ |( ^^ )| <寝るぽ(^^) |\⌒⌒⌒\ \ |⌒⌒⌒~| 山崎渉 ~ ̄ ̄ ̄ ̄
313 : ∧_∧ ( ^^ )< ぬるぽ(^^)
314 : ∧_∧ ∧_∧ ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。 =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕 = ◎――――――◎ 山崎渉&ぼるじょあ
315 : 次の00には何を作ってもらうかを考えよ〜
316 : >>100 早く作れよ頃すぞ
317 : (⌒V⌒) │ ^ ^ │<これからも僕を応援して下さいね(^^)。 ⊂| |つ (_)(_) 山崎パン
318 : >>100 早くつくれよ、こっちは待ってんだぞ
319 : <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 作ってやったから金払え
320 : while(1) { print("ぬるぽ\n"); }
321 : age
322 : ageeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
323 : age
324 : | | ガガガガガッ | | 人 ∧_∧ < >_∧∩ ( ・∀・) 人`Д´)/ ←>>272 と ) < >_∧∩ Y /ノ .人`Д´)/ ←>>313 / ) < >_∧∩ _/し' //. V`Д´)/ ←>>320 (_フ彡 /
325 :2013/03/27 _ |O\ | \ キリキリ ∧|∧ \ キリキリ ググゥ>(;⌒ヽ \ ∪ | (~) ∪∪ γ´⌒`ヽ ) ) {i:i:i:i:i:i:i:i:} ( ( ( ´・ω・)、 (O ⌒ )O ⊂_)∪
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
現在最速で最軽量のプログラムの組み合わせはなんだ (108)
DBの絡んだWEB制作の相場 (379)
ドメインモデル VS トランザクションスクリプト (167)
2ch全板人気トーナメントでWebProg板を1位にしよう! (172)
★三 【 スクリプト改造工房 PART 9 】 ★三 (704)
Perlコーディング初心者質問スレ Part 65 (665)
--log9.info------------------
FantasyEarthZero ファンタジーアースゼロ inシベリア Part92 (331)
【民主党】マスコミが行おうとしていることをまとめるスレ 28つ目 (198)
【最果ての地】>>2が>>1000まで彷徨う【シベリア】 (507)
【MH】まったりモンハンinシベリアHR5【モンハン】 (628)
もの凄い勢いでシベリアンが質問に答えるスレ64 (833)
VIP+大使館 (697)
【甘いもの】美味しい生活!【しょっぱいもの】 (965)
AAテスト用スレ15 (505)
シベリアでもエロ画像スレ part2 (313)
俺氏ついに就活を始める14卒 (311)
★ 紅茶飲んだらageるスレ ★ 3杯目 (651)
【とびだせ】シベリア動物園part12【どうぶつの檻】 (567)
【パワポケ】パワプロクンポケット総合 (174)
OCN規制被害者の会 2398年目 (1001)
グモスレ井戸端会議inシベリア板レベル49 (343)
岐阜県飛騨高山市について語ろう Part5 (889)
--log55.com------------------
居酒屋はなこについて2
大阪中心部以外の美味しい居酒屋教えて
新松戸に焼酎専門、隠れ家的居酒屋発見
今注目をあびる優れた居酒屋
日本一、安い居酒屋地帯はどこだ?
兵庫県の旨い焼き鳥屋って何処よ?
和歌山県の居酒屋で・・・
神奈川県 秦野市の飲み屋