Question

Here is what I have- A CGI script on server A gets the parameters entered in a webform, creates a remote ssh command that calls another perl file on server B and passes all parameters as arguments to the ash command. Perl file on server B parses arguments n operates thereafter.

现在,既然我已赢得所有参数,我就具有“=”等特性,在服务器A和服务器B处理之前,由国际地理信息学组织的每个参数加上“=”。

然而,这未能达到能够有空间的参数。为了纠正这种情况,我可以附上在////......范围内的每一参数(主要是为了逃避“,然后是为了逃避其他冲突”的斜线),然后在我对“=”(如果我附上每条通道,可能会被抛弃),但这是我想要达到的最佳办法吗?

Answer 1

我建议使用或视可能 ,并利用你的B加工作为过滤器:书写,宣读。此时此刻,你完全消除了伤口。而且,根据我的经验,消除伤口总是一件好事。

因此,为了真正简单起见,你通过国际太平洋共同体秘书处管理指挥系统:Open[23],向它(通过JSON或Storable)撰写序列化数据,关闭书写管道(以便另一方获得电子数据),并等待数据。另一端是,改观,使用它,并重新编订你的返回数据。在农研组服务器上,将所收到的数据进行编辑,并删除。如果你需要双倍或三倍的放弃(通过一台机器冲向另一台)。

能够提出足够的引言,使你们能够努力。它令人痛苦。然而,在这方面有一些方面。第一,在上找到一些东西,在开张的管道,而是使用“ssh$server$cmd > <>,使用开放我的管道、---------------ssh 、$-server、$cmd。这将避免当地人伤亡。从而减少了你不得不对引用任何东西感到担忧的次数。但是,每当你做另一场事时,你必须重新援引一切,因为每台遥远的机器仍然使用边远壳。

Answer 2

http://search.cpan.org/perldoc?Net%3a%3aOpenSSH”rel=“nofollow”Net:OpenSSH,它将照顾以下引文:

use Net::OpenSSH;

my $ssh = Net::OpenSSH->new($host);
my ($out, $err) = $ssh->capture2($cmd, @args);

Answer 3

我使用守则

sub text_to_shell_lit(_) {
   return $_[0] if $_[0] =~ /^[a-zA-Z0-9_-]+z/;  # Optional
   for (my $s = $_[0]) {
      utf8::downgrade($_);  # Check for non-bytes
      die if //;          # Check for NUL
      s/ / \  /g;
      return " $_ ";
   }
}

my $remote_cmd = join    , map text_to_shell_lit,
   perl => (  -e  => $perl_code,  -- , @args );

my @ssh_cmd = (ssh => (  -- , $remote_target, $remote_cmd ));
   -or-
my $ssh_cmd = join    , map text_to_shell_lit,
   ssh => (  -- , $remote_target, $remote_cmd );

但是,你可以使用。 String:Shell Quote s shell_quote und text_to_shell_lit。

use String::ShellQuote qw( shell_quote );

my $remote_cmd = shell_quote
   perl => (  -e  => $perl_code,  -- , @args );

my @ssh_cmd = (ssh => (  -- , $remote_target, $remote_cmd ));
   -or-
my $ssh_cmd = shell_quote
   ssh => (  -- , $remote_target, $remote_cmd );

友情链接