免费注册	查看新帖 \|


平台论坛博客文库

› 论坛 › 程序设计 › Perl › 赋值

最近访问板块

发新帖

查看: 1973 | 回复: 4

上一主题

下一主题

赋值 [复制链接]

论坛徽章:: 0

电梯直达

跳转到指定楼层

1楼 [收藏(0)] [报告]

发表于 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);
}

文库|博客

论坛徽章:: 0

2楼 [报告]

发表于 2008-12-26 20:07 |只看该作者

$ssh->host= $_;

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

3楼 [报告]

发表于 2008-12-29 11:12 |只看该作者

回复 #2 redicaps 的帖子

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

4楼 [报告]

发表于 2008-12-29 12:15 |只看该作者

$ssh->host($_);

应该是这样吧

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

5楼 [报告]

发表于 2008-12-29 16:20 |只看该作者

回复 #4 cobrawgl 的帖子

是这样的。谢了

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

发新帖

Chinaunix › 论坛 › 程序设计 › Perl › 赋值

北京盛拓优讯信息技术有限公司. 版权所有京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP