linux - SSH 使用 Perl 脚本在远程站点创建目录

Question

之前我问过question这里介绍如何使用 SSH 确定远程站点中的路径是否为目录。如果路径不是目录，我希望创建目录。我试过用两种方法跟踪代码，但它似乎不起作用。感谢所有在这里提供帮助的人。

use File::Path;

my $destination_path = "<path>";
my $ssh = "usr/bin/ssh";
my $user_id = getpwuid( $< );
my $site = "<site_name>";
my $host = "rsync.$site.com";

if (system("$ssh $user_id\@$host [ -d $destination_path ]") == 0) {
    print "It is a directory.\n";   

} else {
    print "It is not a directory.\n";

    #First Way
    if(system("$ssh $user_id\@$host [ make_path ($d_path_full) ]") == 0{

    #Second Way
    if(system("$ssh $user_id\@$host [ mkdir -p $d_path_full ]") == 0{
       print "Create directory successfully.\n";

    } else {
       print "Create directory fail.\n";
    }
}

Answer 1

方括号，单个 [ 或一对 [ ]，是 bash 中的一个内置函数，它是一个测试运算符(请参阅man test), 上次使用不正确。但是你不需要它来制作目录

use warnings;
use strict;
use feature 'say';

my $ssh = '/usr/bin/ssh';

my $user_id = ...
my $host    = ...

my $to = quotemeta $user_id.'@'.$host;

my $cmd = 'mkdir -p TEST_MKDIR_OVER_SSH';

system("$ssh $to $cmd") == 0  or die "Can't mkdir: $!";

如果目录已经存在，mkdir 会用 -p 安静，它返回成功，这也违背了 [ ] 的目的(如果那是意图)。但是一个实际的错误——存在一个具有该名称的文件，路径上没有权限等——确实会返回到脚本，如你所愿，以及一个带有错误的字符串消息在 $! 中，所以请对此进行测试。

如果您只是想知道该目录是否存在，请放回您的测试分支，或者只是省略 -p 并分析 $! 以了解该消息的内容你的系统。

至于第二次尝试:要执行的命令在远程系统上运行并且与此脚本不再有任何关系(除了插值变量)。因此，此脚本中的 Perl 函数或库在该命令中没有任何意义。

对于下一步，我建议研究用于(准备和)运行外部命令的模块，这比裸露的系统更有帮助。

一些，从简单到更强大:IPC::System::Simple , Capture::Tiny , IPC::Run3 , IPC::Run .另见 String::ShellQuote , 准备命令并避免引用问题、shell 注入(inject)错误和其他问题。这个最近post是一个很好的例子，还有很多。