AI时代，找源码已成为过去式，纪念我过去的十年0(回)
75天前
还有人吗2(回)
93天前会python真的可以为所欲为0(回)
572天前
这里还有人吗2(回)
758天前这里还有人吗0(回)
758天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
982天前#!/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) 回复
??
回复评论