哪错拉??

Python/PHP/Perl 开发与设计
回复
liucheng1513
帖子: 62
注册时间: 2010-09-08 18:17
送出感谢: 0
接收感谢: 0

哪错拉??

#1

帖子 liucheng1513 » 2010-12-11 23:40

#!/usr/bin/perl -w
use Net::Telnet;
$telnet = Net::Telnet->new
(
Timeout => 90,
Prompt => '23',

Host => '10.1.254.1'
);
$telnet->login('admin', '123456');
$telnet->cmd("dbg");
@listing = $telnet->cmd("rst");
print "Here are the files:\n";
print "@listing";
$telnet->close;


哪错拉??
回复

回到 “Python/Php/Perl”