这个telnet怎么上？

home

论坛的SIR提供的，bupt.org
我只输入anonymous就登陆了。不要输入密码。

脚本是这样：
#!/usr/bin/perl -w
use strict;
use Net::Telnet;

use constant HOST => 'bupt.org';
use constant USER => 'guest';

my $telnet=Net::Telnet->new(HOST);
$telnet->login(USER);
$telnet->quit;
warn "well\n";

777

没人懂吗？

Glue

不懂问的是啥 :ask

georgek

anonymous 還是guest?

tojeff

#!/usr/bin/perl
$hostname = '';
$username = '';
$password = '';
use Net::Telnet();
$t = new Net::Telnet (Timeout => 10);
$t->open($hostname);#打开连接
$t->login($username, $password);#登陆
@lines = $t->cmd("ls");#执行命令
print @lines;

home

最初由 georgek 发表
anonymous 還是guest?

不好意思，忘了说了。是用guest.

georgek

兄弟的問題解決了沒有?

home

弄好了。谢谢大家的帮助。