*99の指定したCGIを*00が作るスレ (327ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

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

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.017s