用于登录服务器并执行命令的Perl脚本

Question

我是perl的新手。我想在终端上运行一个perl脚本，它接收另一个服务器的ip地址，登录到它（用户名和密码），执行bash命令并返回结果。任何指导将不胜感激。例如。类似的代码，问题，perl函数可能有助于等等。

Answer 1

#!/usr/bin/perl -w  
use strict;  
use Net::SSH qw(ssh);  

my $host = "server1.domain.com";  
my $user = "user1";  
my $remotedir = "/home/user1/";  
my $cmd = "/bin/ls";  
ssh("$user\@$host", $cmd);