0

我正在开发一个脚本来访问服务器并使用 perl over ssh 在服务器内复制文件。我登录到远程服务器然后执行：

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

但是 mkdir 仅在它之后没有命令时才有效。（我正在尝试使用拉幅代码在同一会话中使用 && 使用一堆命令）

谢谢。这是我的代码。

#######################################################################
# 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";
4

2 回答 2

3

我相信你的意思是

$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');
于 2013-07-09T18:20:00.743 回答
0

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

use Net::SFTP::Foreign;

my $sftp = Net::SFTP::Foreign->new($ip,
                                   user => $user,
                                   password => $pass,
                                   autodie => 1);
$sftp->mkdir($destFolder);
于 2013-07-10T06:23:55.813 回答