Perl system命令返回"mkdir /tmp/test.xxxxx:没有此类文件或目录“

Question

我试图使用Perl system命令将ssh转到另一台服务器并运行mkdir命令，但它总是返回。

mkdir /tmp/test.xxxxx: No such file or directory

尽管我手动执行ssh并运行相同的命令，但它可以正常工作。下面是我写的代码：

my $TEMPDIR = '/tmp/test.xxxxx';
system "$SSH $SSH_USER\@$TESTSVR \"mkdir $TEMPDIR\""  or die " $!\n";

Answer 1

system不会在出错时返回false。$!不一定设置为错误，这取决于您所称的错误。

system(...);
die "Can't launch child: $!\n" if $? == -1;
die "Child killed by signal ".( $? & 0x7F )."\n" if $? & 0x7F;
die "Child exited with error ".( $? >> 8 )."\n" if  $? >> 8;

值得注意的是，您有多个代码注入错误，通过使用以下方法很容易修复：

system($SSH, "$SSH_USER\@$TESTSVR", "mkdir", $TEMPDIR)

Answer 2

考虑使用Net::OpenSSH。

它将为您处理一些小细节(例如，引用或检查远程命令是否以非零值退出)：

use Net::OpenSSH;

my $ssh = Net::OpenSSH->new($TESTSVR, user => $SSH_USER);
$ssh->system(mkdir => $TEMPDIR)
    or die "Can't create remote dir: " . $ssh->error;