在 PERL 中使用 SSH 运行 bash 命令

Question

请耐心等待。我对 perl 很陌生。我将 HTML 变量从 html 表单传递到 PERL/CGI 脚本。请看以下内容

#!/usr/bin/perl

use strict; use warnings;
use CGI::Carp; # send errors to the browser, not to the logfile
use CGI;
my $cgi = CGI->new(); # create new CGI object
my $name = $cgi->param('servername');
print $cgi->header('text/html');
print "Server name is /n, $servername";
#system("/var/www/cgi-bin/localbashscript $servername");
#system("ssh $servername "remotebashscript" > localfile or display back to html );

基本上从 HTML 表单中，我需要传递服务器名称。 我尝试使用系统命令将服务器名传递给运行我的 ssh 命令的“localbashscript”。但是，我无法让它工作。有人建议我在 PERL 中进行 SSH，但我不知道该怎么做。

简而言之，我必须在远程服务器 ($servername) 上调用 bash 脚本 (remotebashscript) 并将内容显示回 html 或至少将其通过管道传输到本地文件。在运行 remotebashscript 之前我需要做的第一件事是设置我的环境变量。这就是我在 bash 中的做法。我通过获取 .profile 来设置我的环境变量，然后执行 remotebashscript 并将其重定向到本地文件。

  ssh $servername ". ~/.profile;remotebashscript" > localfile

我不知道如何使用 perl 实现相同的目标并寻求您的帮助。我在下面尝试过，但没有成功

 system("ssh $servername ". ~/.profile; remotebashscript" ");

提前谢谢你

Answer 1

请：永远，永远，永远不要在调用系统时使用用户输入，至少要尝试清理它们！假设用户不会通过输入可以以某种方式逃避您正在尝试做的事情并做其他事情的字符串来破坏您的系统，这是一个可怕的错误。在这种情况下，192.168.0.1 rm -rf / 之类的内容就足以从您的 ssh 服务器中删除所有文件。请注意标准的做事方式，在执行的命令中绝不使用用户输入。

有很多模块，甚至还有一个标准模块，Net::SSH，它可以为你做 SSH。

Answer 2

正如 Jens 建议的那样，您应该使用 Net::SSH，这将使您的任务变得轻松可靠。

示例：

#always use the below in your Perl script
use strict;
use warnings;
#load the Net::SSH module and import sshopen2 from it
use Net::SSH qw(sshopen2); 
#type credentitals and the command you want to execute (this would be your bash script)
my $user = "username";
my $host = "hostname";
my $cmd = "command";
#use sshopen2 to run your command 
sshopen2("$user\@$host", *READER, *WRITER, "$cmd") || die "ssh: $!";
#read the result 
while (<READER>) { #loop through line by line of result
    chomp(); #delete \n (new line) from each line
    print "$_\n"; #print the line from result
}     
#close the handles
close(READER);
close(WRITER);