赋值

adminsinx

UID: 18793
帖子: 56
积分: 128
在线时间: 4 小时

1^# adminsinx 发表于 2008-12-26 19:32

赋值

#!/usr/bin/perl

use strict;
use Net::SSH::Expect;
my @hostnames=("abc");
my $ssh = Net::SSH::Expect->new (
         host => "",
         user => 'abc',
         raw_pty => 1
      );
foreach (@hostnames)
{
      $ssh->host=@_;    这里应该如何给host赋值？
      $ssh->run_ssh() or die "SSH process couldn't start: $!";
      my $result = $ssh->exec($ARGV[0]);
      print($result);
}

redicaps

UID: 37436
帖子: 187
积分: 430
在线时间: 1 天 23 小时

2^# redicaps 发表于 2008-12-26 20:07

$ssh->host= $_;

@是数组，你这里用标量就行
看看perl的基础入门书吧

adminsinx

UID: 18793
帖子: 56
积分: 128
在线时间: 4 小时

3^# adminsinx 发表于 2008-12-29 11:12

换成 $ssh->host= $_; 也不对

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

4^# cobrawgl 发表于 2008-12-29 12:15

$ssh->host($_);

应该是这样吧

adminsinx

UID: 18793
帖子: 56
积分: 128
在线时间: 4 小时

5^# adminsinx 发表于 2008-12-29 16:20

是这样的。谢了