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