*99の指定したCGIを*00が作るスレ (327ﾚｽ)

*99の指定したCGIを*00が作るスレ http://medaka.5ch.io/test/read.cgi/php/1037501017/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

233: nobodyさん [] 02/12/31 10:34 ID: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"; http://medaka.5ch.io/test/read.cgi/php/1037501017/233

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.421s*