perl - ssh접속해서 원격명령 실행 및 결과 받아오기

#!/usr/bin/perl

my($host, $username, $password);

$host="221.xxx.xxx.xxx";
$username="ruis";
$password="xxxxxcxx";

use strict;
use Net::SSH::Perl;

my $ssh = Net::SSH::Perl->new($host);
$ssh->login($username, $password);

my($local_dir, $local_filename, $remote_dir, $remote_filename);

#$remote_dir = "/home/ruis";
#$remote_filename = "passwd";
$local_dir = "/home/RR";
$local_filename = "_httpd";

open FILE, "> $local_dir/$local_filename";
open FILE1, "> $local_dir/_uptime";

#print FILE ($ssh->cmd("cat $remote_dir/$remote_filename"))[0];
#print FILE ($ssh->cmd("cat /etc/sysconfig/network-scripts/ifcfg-eth0"))[0];
print FILE ($ssh->cmd("pstree | grep httpd"))[0];
print FILE1 ($ssh->cmd("uptime"))[0];

#$ssh->cmd("useradd ASDF");

 

출처 : perl - ssh접속해서 원격명령 실행 및 결과 받아오기 : 네이버 블로그 (naver.com)