IO::Socket
2016-05-19 10:21
141 查看
#!/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;
相关文章推荐
- Data::Dumper, Dumper()
- C++实验6----【项目2:数组合并】
- script
- 剑指offer08--实现某个数的n次方
- git常用命令总结
- 设计模式之对象池模式(Object Pool)
- mariadb配置允许远程访问方式
- 深入理解dp,px,以及density。
- Linux网络编程--洪水攻击详解
- php的set_time_limit()函数
- HTML5 Audio标签方法和函数API介绍
- LigerUI 快速开发UI框架
- LeetCode:Maximum Depth of Binary Tree
- Eclipse常用快捷键
- XML::Simple, XMLin()
- Canvas线段的绘制
- style
- delete 和 delete []的真正区别
- 一种保持顺序的Properties
- jquery显示隐藏元素的实现代码