Chinaunix

标题: 怎样把数组中的数据分别赋予变量？ [打印本页]

作者: oraclelangzi 时间: 2005-07-27 16:07
标题: 怎样把数组中的数据分别赋予变量？
我是想：通过读取一个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

请高手给指导改改我学习一下先谢谢了！！

作者: gangjh 时间: 2005-07-27 16:49
标题: 怎样把数组中的数据分别赋予变量？
你這家伙到處發帖

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)