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

---

308: perlお勉強中 03/07/12 15:29 ID:FW3/pTdg(2/2) AAS
>>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";
省13

---

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

---

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

---

ぬこの手 ぬこTOP 0.005s