Perl 实现远程机器操作

1、本地机器安装perl的Net::Telnet模块（安装方法见：http://www.litvip.com/541/）

 最简单的方法是： yum -y install perl-Net-Telnet

2、远程服务器安装telnet（安装方法见：http://tech.ccidnet.com/art/321/20070430/1074877_1.html）

3、本地perl脚本：

#!/usr/bin/perl -w
use strict;
use Net::Telnet;

#登录信息
#注意，$prompt是登陆后的命令提示行，如果匹配不上，脚本将会timeout
my $password = 'webos123';
my $username = 'hduser';
my $prompt   = '/\[.+\]\$ $/';
my $host     = 'hadoopcq002';
my $cmd1     = '/usr/bin/who';
my $cmd2     = '/bin/ls -l';
# my $cmd3 = '/home/hduser/scripts/test.sh';

  #连接并登录到服务器
  my $conn = new Net::Telnet(
     Timeout=>60,
        Prompt=>$prompt,
        );
        $conn->open($host);
        $conn->login($username,$password);

         #分别执行$cmd1和$cmd2命令，并输出结果
         my @output = $conn->cmd($cmd1);
         print "Output:@output";
         @output = $conn->cmd($cmd2);
         print "Output:@output";

          #断开连接
          $conn->close;