使用perl Net :: SSH :: Perl

Question

我有一个带有2个参数的shell脚本需要从我的perl脚本中调用。远程运行shell脚本时没有任何输入参数，我没有任何问题。

我需要有关如何远程将参数传递给shell脚本的帮助。

代码段：

远程shell脚本用法

./ set_fuse_row.sh arg1 arg2

perl代码：

我的$ set_fuse_row_cmd =＆＃34; cd SLT / TestGUI_9.0.0 / scripts / cmdcenter / UI / openocd /＆amp;＆amp; ./set_fuse_row.sh" ;;     我的$ itx_username =＆＃39; xxxx＆＃39 ;;     我的$ itx_password =＆＃39; xxxxx＆＃39;;

#Run the script from the JTAG


 my $ssh = Net::SSH::Perl->new($t99_itx_ip, debug => 1);
  #my $ssh = Net::SSH::Perl->new($host);
  print "done", "\n";

  warn "Starting Login:...";
  $ssh->login($itx_username, $itx_password);
  print "login done", "\n";

  warn "Starting command:...";
  my ($jtag_result_buf, $err, $exit) = $ssh->cmd($set_fuse_row_cmd,[arg1,arg2]);

这不起作用。

感谢您的任何帮助。