#!/usr/bin/perl -w
use Net::Telnet ();
$timeout = 20;
$port = 2003;
$host = '192.168.1.251';
$user = 'test';
$pw = '123456';
$t = new Net::Telnet (Timeout => $timeout,
Port => $port);
$t->open("$host");
$t->login($user, $pw);
@lines = $t->cmd("who");
print @lines;
在版本perl-5.8.5下面可以顺利执行,但是在perl-5.10.0下面却不行执行,而且在网站里面找不到关于telnet相关的内容,估计是telnet协议比较老了!
01-19
“相关推荐”对你有帮助么?
-
非常没帮助
-
没帮助
-
一般
-
有帮助
-
非常有帮助
提交