*99の指定したCGIを*00が作るスレ (327ﾚｽ)
上下前次1-新

---

228: 02/12/20 23:38 ID:??? AAS
おまいら趣旨を理解しやがってください。

---

229(1): 02/12/24 23:42 ID:2kS8TiT1(1) AAS
メリクリ

---

230: 02/12/25 17:15 ID:U7g6MD4O(1) AAS
>>229
ｸﾘﾒﾘ

---

231: 02/12/25 21:45 ID:??? AAS
ｳﾞｧﾘｭｸﾘ

---

232: 02/12/27 09:52 ID:PDegbcoZ(1) AAS
クリスマス以降寂れたのか？

---

233(1): 02/12/31 10:34 ID:2j4SuGi0(1/2) AAS
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');
省8

---

234: 02/12/31 10:34 ID:2j4SuGi0(2/2) AAS
続き

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

---

235: _ 02/12/31 10:48 ID:gfphPIoL(1) AAS
外部ﾘﾝｸ[htm]:freeweb2.kakiko.com

---

236: 02/12/31 13:16 ID:qLQW6luA(1) AAS
おゆ〜

---

237(1): 03/01/04 20:27 ID:tm/4/3y9(1) AAS
>>233
もうちょっと読みやすくつくってｸﾚ

---

238: 03/01/04 20:28 ID:??? AAS
>>237
読めないか？

---

239: 03/01/04 21:21 ID:uoWySJDJ(1) AAS
読みにくい。
注釈文をいれようょ

---

240: 99 03/01/05 14:51 ID:??? AAS
>>100
早く作れよ頃すぞ

---

241: 03/01/06 16:15 ID:vXxmrd3Z(1) AAS
あげ

---

242: 03/01/10 16:05 ID:??? AAS
Perl らしくない。
もうちょっと呪文を混ぜようょ

---

243: 03/01/11 12:22 ID:9FJE/Arw(1) AAS
Perl らしくない。
もうちょっと電波を混ぜようょ

---

244: [age] 03/01/11 12:32 ID:??? AAS
いいかげんそろそろ書かないとな、>>100 よォ！

---

245: 03/01/12 02:32 ID:??? AAS
いつくらいに>>100が頃されますか？

---

246(1): 03/01/13 01:58 ID:zFhrRpi4(1) AAS
if($a == 1){
#--VBじゃねえんだぞ----
# $a = $a + 1;
$a++;
}

---

247: 03/01/13 09:26 ID:??? AAS
>>246
$aが初期値の0だと仮定するとそのループの中は一回も実行されない。

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

---

上下前次1-新書関写板覧索設栞歴

---

あと 80 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.007s