会python真的可以为所欲为0(回)
249天前
这里还有人吗1(回)
435天前这里还有人吗0(回)
435天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
659天前到处都是羊，不想上班0(回)
739天前
鸽子
0(回)
743天前#!/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) 回复
??
回复评论