Perl 实现远程机器操作

发布时间：2020-12-16 00:05:51 所属栏目：大数据来源：网络整理

导读：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

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!