Net::Telnet;-viviecho-ChinaUnix博客

Linuxhttps.blog.chinaunix.net

首页　| 　博文目录　| 　关于我

viviecho

博客访问： 470382
博文数量： 279
博客积分： 4467
博客等级：上校
技术积分： 2830
用户组：普通用户
注册时间： 2007-04-03 14:43

文章分类

全部博文（279）

AWK（1）
SED（1）
ora（14）
testing（4）
work（10）
MySql（26）
perl script （（39）
Javascript（2）
windows（2）
C/C++（2）
install software（10）
English（0）
System configure（29）
linux command（28）
Shell script（11）
virtual server（3）
perl（43）
PHP（8）
未分配的博文（46）

文章存档

2013年（1）

2012年（39）

2011年（35）

2009年（29）

2008年（131）

2007年（44）

我的朋友

最近访客

推荐博文

Net::Telnet;

分类：

2008-01-22 16:56:54

#!/usr/bin/perl

use strict;

use Net::Telnet;

my $p = Net::Telnet->;new();

my $h = shift || "";



$p->;open(Host =>; $h, Port =>; 80);

$p->;print("GET /\n");

while(my $line = $p->;getline())

{

	print $line;

}

exit 0;

阅读(393) | 评论(0) | 转发(0) |

上一篇：Compress::Zlib, gzopen(), gzreadline(), gzclose()

下一篇：DBI, connect(), prepare(), execute(), fetchrow_arr

给主人留下些什么吧！~~

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6