Perl Net:：Telnet eof read正在等待登录提示：在test.pl第25行
下面给出了我的代码以供参考Perl Net:：Telnet eof read正在等待登录提示：在test.pl第25行,perl,Perl,下面给出了我的代码以供参考 #!/usr/bin/perl use strict; use Net::Telnet::Cisco; my ($host, $port, $user, $pass, $command); ##### get host info print 'Enter host: '; chop($host = <STDIN>); ##### get port info print 'Enter port: '; chop($port = <STDIN>)
#!/usr/bin/perl
use strict;
use Net::Telnet::Cisco;
my ($host, $port, $user, $pass, $command);
##### get host info
print 'Enter host: ';
chop($host = <STDIN>);
##### get port info
print 'Enter port: ';
chop($port = <STDIN>);
##### get user info
print 'Enter user: ';
chop($user = <STDIN>);
##### get user info & hide input
print 'Enter password: ';
system 'stty -echo';
chop($pass = <STDIN>);
system 'stty echo';
print "\n";
my $tn = new Net::Telnet(Host =>$host, Port =>$port, Timeout => 20)
or die "connect failed: $!";
$tn->open ($host);
$tn->login('','L@ser123');
$tn->login('$user','$pass');
my @out1 = $tn->print("sh run");
print "@out1\n";
#/usr/bin/perl
严格使用；
使用Net:：Telnet:：Cisco；
我的（$host、$port、$user、$pass、$command）；
#####获取主机信息
打印“输入主机：”；
印章（$host=）；
#####获取端口信息
打印“输入端口：”；
印章（港币=）；
#####获取用户信息
打印“输入用户：”；
印章（$user=）；
#####获取用户信息并隐藏输入
打印“输入密码：”；
系统“stty-echo”；
印章（$通行证=）；
系统“stty-echo”；
打印“\n”；
my$tn=new Net:：Telnet（主机=>$Host，端口=>$Port，超时=>20）
或死“连接失败：$！”；
$tn->open（$host）；
$tn->登录（“”，'L@ser123');
$tn->login（'$user'，'$pass'）；
我的@out1=$tn->print（“sh run”）；
打印“@out1\n”；
感谢您的帮助。您尝试登录两次：
$tn->login('','L@ser123');
$tn->login('$user','$pass');
第二次，登录提示将已经消失，等待它将超时。删除其中一行。您的问题是第一个登录方法在返回之前等待提示。但是，当通过终端服务器（TS）运行telnet时，您永远不会在TS上得到正常提示，它会直接将您传递到控制台端口上的设备 如果您想继续使用TS的当前配置，您可能必须使用
->waitforNet:：Telnet:：Ciscoaaa new-model
!
! normal authentication scheme (named 'default') for connections terminating
! ON THE TERMINAL SERVER (here via tacacs+)
aaa authentication login default tacacs+ local
aaa authentication enable default tacacs+ enable
!
! create an authentication scheme (named 'line_auth') with no authentication
aaa authentication login line_auth none
line 1 16
! disable access to the TS from the serial line side, i.e only allow
! *outgoing* connections
no exec
!
! use the 'line_auth' authentication scheme, i.e no authentication
login authentication line_auth
!
! only allow telnet connections to connect to the line
transport input telnet
!
line vty 0 4
! default authentication scheme (this is a default config, so it's
! actually not shown in the config).
login authentication default
!
我删除了第1行，但也出现了相同的错误。我遇到了相同的错误，我删除了ma开关的启用密码，因此现在我可以直接登录到特权模式，如fallows SW-SANT-TEST1-T15#不确定您的意思，但如果设备要求密码，您应该只使用
login（）