ﾚｽ書き込み

ｽﾚへ戻る 写 ﾚｽ栞 ﾚｽ消

---

*99の指定したCGIを*00が作るスレ

PC,ｽﾏﾎ,PHSは 公式(ｽﾏﾎ) 公式(PC) で書き込んでください｡

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ
>>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\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!); > 　　　　} > }
ﾛｰｶﾙﾙｰﾙ SETTING.TXT

---

他の携帯ﾌﾞﾗｳｻﾞのﾚｽ書き込みﾌｫｰﾑはこちら｡書き込み設定で書き込みｻｲﾄの設定ができます｡
・公式(ｽﾏﾎ)
・公式(PC)[PC,ｽﾏﾎ,PHS可]

---

書き込み設定(板別)で板別の名前とﾒｰﾙを設定できます｡

---

ﾒﾓ帳

(0/65535文字)

---

上下板覧索設栞歴

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.015s