AI时代，找源码已成为过去式，纪念我过去的十年0(回)
76天前
还有人吗2(回)
93天前会python真的可以为所欲为0(回)
573天前
这里还有人吗2(回)
758天前这里还有人吗0(回)
758天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
983天前#!/usr/bin/perl -w |
use strict; |
use IO::Socket; |
my $host = "www.chinaunix.net"; |
my $port = "80"; |
my $http_head = "GET / HTTP/1.0\nHost: $host:$port\n\n"; |
my $sock = IO::Socket::INET->new ( "$host:$port" ) |
or die "Socket() error, Reason : $! \n"; |
print $sock $http_head; |
print <$sock>; |
exit 0; |
by: 发表于：2017-09-13 14:15:59 顶(0) | 踩(0) 回复
??
回复评论