求教：如何在 ssh->exec() 中使用变量

#!/usr/bin/perl
use strict ;
use warnings;
use Net::SSH::Expect;
my $ssh=Net::SSH::Expect->new(
  host=>"ip",
  password=>"passwd",
  user=>"user"
);

$ssh->login();

my $result=$ssh->exec("show gslb geo-location ip  ***.***.***.***  ");
print "$result\n" ;

其中show gslb geo-location ip “***.***.***.***” 引号中为变量如何把另一个文本中的第一列（全是IP地址）作为变量，循环到***.***.***.***中并输出打印结果到另外一个文件

作者: yinyue0317 发布时间: 2011-06-02

学点 Perl 会死人吗？
都觉得有用了，还舍不得花时间去学，搞不懂你们。

顺便在这里问一下看贴的，有真正会 Perl 的吗？
高薪诚聘，站内联系。

作者: flw 发布时间: 2011-06-02

回复 flw

呵呵任何不说具体待遇的招聘都是耍流氓

作者: hitsubunnu 发布时间: 2011-06-02

my $result=$ssh->exec("show gslb geo-location ip $ip");

复制代码

作者: wind_ch 发布时间: 2011-06-02

my %soure_ip=(
"192.168.1.1",
"222.156.111.123");
foreach (keys %soure_ip){

my $result=$ssh->exec ("show gslb geo-location ip $_");
print "$result\n";
我写成这样的，可是还是有问题，不知道foreach的部分有问题，还是定义数组的地方的问题，打印出来的只有一个不能循环打印

作者: yinyue0317 发布时间: 2011-06-02

置顶帖子里面找找<< Perl语言入门 >>这本书吧, 稍微看下, 你今天会过得很有成就感的

作者: wind_ch 发布时间: 2011-06-02

求教：如何在 ssh->exec() 中使用变量

热门频道