请教读去配置文件实现telent自动登录？？

oraclelangzi

是想：通过一个ini文件来实现自动的telnet到 一台远程主机自动的登录。


#!/usr/local/bin/perl
use Net::Telnet;
use Data::Dumper;
use Net::FTP;
use strict ;

my $host_name;
my $user_name;
my $password;

   my $telnet_hdl=new Net::Telnet (Timeout =>; 60, Prompt =>; '/[\$%#>;:]\s*$/');
   open FH , "/opt/prg/MM/trace/b.ini" || die "can't open file:$!" ;
   my @ff= <FH>; ;
   close FH ;
  while (<FH>;)
{
   my   @ff=split(/ +/,$_);
      printf("host=%s user=%s pass=%s\n",$ff[0],$ff[1],$ff[2]);

}
   my   $host_name=$ff[0];
   my   $user_name=$ff[1];
   my   $password=$ff[2];

   $telnet_hdl->;open("$host_name");
   print "ok\n";
   print $host_name,$user_name,$password ;

   $telnet_hdl->;login("$user_name","$password");
   print "ok!ok!\n";
   $telnet_hdl->;close;

我按照楼主的指导下改了一下 ip是传递进去了但是 没有登录上去提示是登录时间超时！！还请高手在给予指导一下！！

-------------显示的结果---------------------------------------------------------------
ok
212.102.224.68    aaa    bbbb