Как передать аргументы скрипту оболочки при удаленном выполнении с использованием perl Net :: SSH :: Perl

Question

У меня есть сценарий оболочки с 2 аргументами, который должен быть вызван из моего сценария perl. У меня нет проблем при удаленном запуске сценария оболочки, который не требует никаких входных аргументов.

Мне нужна помощь по удаленной передаче аргументов в сценарий оболочки.

фрагмент кода:

использование сценария удаленной оболочки

. / Set_fuse_row.sh arg1 arg2

---

код Perl:

my $ set_fuse_row_cmd = "cd SLT / TestGUI_9.0.0 / scripts / cmdcenter / UI / openocd / && ./set_fuse_row.sh"; my $ itx_username = 'xxxx'; my $ itx_password = 'xxxxx';

#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]);

Это не сработало.

Ценю любую помощь по этому вопросу.