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

---

311: perlお勉強中 03/07/12 16:38 ID:??? AA×
>>299


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
311: perlお勉強中 [sage] 03/07/12 16:38 ID:??? >>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$/); 　　　　} } http://medaka.5ch.io/test/read.cgi/php/1037501017/311
のネタ 接続 ソケットの接続 要求を送信 応答を受信

---

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

---

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

---

ぬこの手 ぬこTOP 0.021s