Net::OpenSSH 模块使用实例

   学习模块的最快方法就是学习实例，下面介绍Perl的Net::OpenSSH模块的使用实例，详细的说明可以参考CPAN上的介绍。

本机通过key登陆远程服务器，所以要先安装openssh，关于使用ssh公私密钥可以参考man手册。

1、连接一台远程服务器并执行命令或者脚本

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Net::OpenSSH;
   
4. 
   
5. my $hostname = 'puppet.ygfs.com';
6. my $ssh = Net::OpenSSH->new( $hostname， user => 'root' );
7. 
   
8. my $cmd = 'ls -l /';
   
9. my $svn_cmd = 'bash /data/ygfs_ctrl/db_convert.sh';     #这里是在远程执行一个bash shell脚本
   
10. 
    
11. open LOG,">> perl_exec.log";                            #记录执行日志
    
12. select LOG;
    
13. 
    
14. my @out = $ssh->capture( $cmd );
    
15. print "@out";
    
16. 
    
17. my @db_out = $ssh->capture( $svn_cmd );
    
18. print "@db_out";
    
19. 
    
20. close LOG;
    
21. select STDIN;

2、连接多台远程服务器，并执行命令或者脚本

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Net::OpenSSH;
   
4. 
   
5. my @hostname = qw(                              #建立一个服务器列表
   
6.                 puppet1.ygfs.com
   
7.                 puppet2.ygfs.com
   
8.                 );
   
9. 
   
10. my $cmd1 = 'ls -l';
    
11. my $cmd2 = 'df -i';
    
12. 
    
13. 
    
14. for my $host ( @hostname ) {
    
15. 
    
16.         my $ssh = Net::OpenSSH -> new( $host, timeout => 600 );
    
17.         my @out = $ssh -> capture( $cmd1 );
    
18.         my @space = $ssh -> capture( $cmd2 );
    
19.         print @out;
    
20.         print @space;
    
21. 
    
22. }
    
23. 
    
24. print "@hostname\n";

3、从参数列表读取要连接的远程服务器和要执行的命令

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Net::OpenSSH;
   
4. 
   
5. my $hostname   = $ARGV[0] || 'puppet.ygfs.com';
   
6. my $remote_cmd = $ARGV[1] || 'hostname && uname -p';
   
7. 
   
8. 
   
9. my $ssh = Net::OpenSSH -> new( $hostname );
   
10. my @exec_log = $ssh -> capture( $remote_cmd );
    
11. print @exec_log;

 
4、使用管道

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Net::OpenSSH;
   
4. 
   
5. my $hostname = $ARGV[0] || '127.0.0.1';
   
6. 
   
7. my $ssh = Net::OpenSSH -> new( $hostname );
   
8. 
   
9. my @lists = $ssh -> capture( 'ls' );
   
10. print @lists;
    
11. 
    
12. my @lists_format = $ssh -> capture2( 'ls -hl' );
    
13. print @lists_format;
    
14. 
    
15. 
    
16. #通过pipe_out方法获取远程主机上指定文件的内容，保存到$rout句柄，并打印输出,这里可以不使用pid变量
    
17. 
    
18. my ( $rout,$pid ) = $ssh -> pipe_out( "cat install.log" )
    
19. #my $rout = $ssh -> pipe_out( "cat install.log" )
    
20.         or die "pipe_out method failed:".$ssh -> error;
    
21. 
    
22. while( <$rout> ) { print }
    
23. close $rout;
    
24. 
    
25. #写内容到远程服务器的指定文件
    
26. my $rin = $ssh -> pipe_in( "cat >> nginx.conf" )
    
27.         or die "pipe_in method failed:".$ssh -> error;
    
28. 
    
29. print $rin <<EOF;
    
30. server{
    
31.         listen 8088;
    
32.         root /data/private_web;
    
33.         index index.html;
    
34.         server_name private.yuanfang.com;
    
35.         auto_index on;
    
36.         access_log /dev/null;
    
37.         error_log /dev/null;
    
38.       }
    
39. EOF
    
40. close $rin;

   这里只是简单的介绍了Net::OpenSSH模块怎么使用，它还有很多方法和参数，读者可以参考手册。
   从上面的例子可以看到，这个模块不是并发连接到远程主机和执行命令的，所以对于要连接的对象很多的时候，耗时很长，效率很低，所以就有了Net::OpenSSH::Parallel模块，支持指定工作进程数和并发数量。下篇博文将会介绍。