论坛徽章:: 0

电梯直达

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

发表于 2009-11-10 16:25 |只看该作者 |倒序浏览

我想把得到ssh句柄的功能写成一个函数,可是为什么不行呢？Net::SSH:

erl这个模块还不是很熟悉啊！

85 sub get_ssh {
86 my $remote_ip = shift;
87 my $user = shift;
88 my $password = shift;
89 my %params = (
90       protocol => '2',
91       debug => '0',
92       privileged => '0',
93    );
94 print "connect to $remote_ip \n";
95 my $host = $remote_ip;
96 my $ssh = Net::SSH::Perl->new($host,%params);
97 return $ssh;
98 }

  9 my $remote_h = get_ssh("172.16.1.46","root","123456");
10 my ($stdout,$stderr,$exit) = $remote_h->cmd("hostname");
11 if($exit){
12 print "error: $stderr\n";
13 }else{
14 print "$stdout\n";
15 }

[ 本帖最后由 justlooks 于 2009-11-10 16:50 编辑 ]

文库|博客

兰花仙子

版主

论坛徽章:: 0

2楼 [报告]

发表于 2009-11-10 16:28 |只看该作者

回复 #1 justlooks 的帖子

目标请直接return啦~~
不必加引用~~

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

justlooks

大富大贵

论坛徽章:: 0

3楼 [报告]

发表于 2009-11-10 16:40 |只看该作者

原帖由 兰花仙子 于 2009-11-10 16:28 发表
目标请直接return啦~~
不必加引用~~

我直接返回但是还是有问题阿,正确的话应该显示机器名字啊

Subroutine check_time redefined at do_query_test line 45.
defined(@array) is deprecated at do_query_test line 132.
(Maybe you should just omit the defined()?)
connect to 172.16.1.46
hch: Reading configuration data /root/.ssh/config
hch: Reading configuration data /etc/ssh_config
hch: Connecting to 172.16.1.46, port 22.
hch: Remote protocol version 2.0, remote software version OpenSSH_4.3
hch: Net::SSH:

erl Version 1.34, protocol version 2.0.
hch: No compat match: OpenSSH_4.3.
hch: Connection established.
===Net::SSH:

erl::SSH2=HASH(0x838cb44) 这个是函数里的$ssh
))))Net::SSH:

erl::SSH2=HASH(0x838cb44) 这个是取到的
hch: channel 0: new [client-session]
hch: Requesting channel_open for channel 0.
hch: Entering interactive session.
Use of uninitialized value in concatenation (.) or string at do_query_test line 16, <GEN0> line 1.