Question

我正在开发一个脚本来转到服务器并使用perl通过ssh复制服务器内的文件。我登录到远程服务器而不是执行：

* my（$ stdout，$ stderr，$ exit）= $ ssh-＆gt; cmd（“mkdir $ destFolder”＆amp;＆amp;＆amp;“exit”）; *

但是mkdir只有在它之后没有命令的情况下才有效。（我在尝试使用＆amp;＆amp;＆amp;＆amp;＆amp;＆amp;＆amp;＆amp;＆amp;＆amp;＆amp; amp;＆amp;＆amp;＆amp ;;

谢谢。这是我的代码。

#######################################################################
# Perl Module Included 
#######################################################################
$|=1;

use warnings;
use Net::SSH::Perl;
use Net::SSH::Expect;

#######################################################################
# quit unless we have the correct number of command-line args
#######################################################################

$num_args = $#ARGV + 1;
if ($num_args != 4) {
  print "\nNOT ENOUGH ARGUEMENTS!\n";
  print "\nUSAGE:\nperl perl.pl yearMonthDay startTime endTime enodeB\n";
  print "\nFOR EXAMPLE:\nperl perl.pl 20130806 1530 1545 001007_eNB \n";
  exit;
}

#######################################################################
# saving the arguments for future use .
#######################################################################

$date=$ARGV[0];
$startTime=$ARGV[1];
$endTime =$ARGV[2];
$enb =$ARGV[3];

#######################################################################
# Intializing username , password and IP
#######################################################################

my $user = 'ejadeln';
my $pass = 'ejadeln2@';
my $ip = '10.118.124.21';


#######################################################################
# Intializing logPath , fileName and hostPath
#######################################################################

my $path = "/var/opt/ericsson/nms_umts_pms_seg/segment1/XML/SubNetwork=ONRM_ROOT_MO_R/MeContext="."$enb/";
my $endTime_t = $endTime;
my $host = "/home/$user";
my $destId = "$enb.$date.$startTime";
my $destFolder = "/home/$user/"."$destId";
print "$destFolder\n";


for ($i = 0 ; $startTime < $endTime_t ; $i++)
{
    $endTime = $startTime + 15;
    $ofEndTime = substr($endTime, -2);

        if ($ofEndTime >= 60) {
            $endTime = $endTime - $ofEndTime + 100; 
        }

    our $file = "A"."$date."."$startTime"."-0400-$endTime-0400_SubNetwork=ONRM_ROOT_M'O,MeContext="."$enb"."_eNB_statsfile.xml";

    $startTime = $startTime + 15;
    $ofStartTime = substr($startTime, -2);
        if ($ofStartTime >= 60) {
            $startTime = $startTime - $ofStartTime + 100; 
        }

}
#######################################################################
# using ssh commands to log in into remote server 
#######################################################################

my $ssh = Net::SSH::Perl->new($ip);

$ssh->login("$user","$pass");

#######################################################################
# Implementing copy commands on remote server using SSH 
#######################################################################

my ($stdout,$stderr,$exit) = $ssh->cmd("mkdir $destFolder" && "exit");


$fileNum = $i+1;
print "$fileNum file copied\n";

Answer 1

我相信你的意思

$ssh->cmd("mkdir $destFolder && exit");

"mkdir $destFolder && exit"返回字符串mkdir /foo/bar && exit

"mkdir $destFolder" && "exit"返回字符串exit（因为&&的LHS始终为真）。

但那个小车也是。考虑如果$destFolder包含空格或&会发生什么。它应该是：

use String::ShellQuote qw( shell_quote );
$ssh->cmd('mkdir '.shell_quote($destFolder).' && exit');

Answer 2

如果您唯一的要求是访问文件系统，则可以使用SFTP：

use Net::SFTP::Foreign;

my $sftp = Net::SFTP::Foreign->new($ip,
                                   user => $user,
                                   password => $pass,
                                   autodie => 1);
$sftp->mkdir($destFolder);

mkdir没有在ssh上工作

2 个答案: