#!/usr/bin/perl sub paranthesis{ my @paran = @_; system('scp', '/users/myuser/merc/rem_snew.pl', $remoteuser\@$remotese +rver:/users/$remoteuser/tmp/rem_snew2.pl"); my $result = `ssh $remoteuser\@$remoteserver perl /users/$remoteuser/t +mp/rem_snew2.pl`; print "$result\n"; system('ssh', "$remoteuser\@$remoteserver", 'rm', /users/$remoteuser/t +mp/rem_snew2.pl); } paranthesis(@paran);
Backslash found where operator expected at rum_rem_perll.pl line 7, ne +ar "$remoteuser\" (Missing operator before \?) Scalar found where operator expected at rum_rem_perll.pl line 7, near +"/users/$remoteuser" (Missing operator before $remoteuser?) String found where operator expected at rum_rem_perll.pl line 11, near + "print "" (Might be a runaway multi-line "" string starting on line 7) (Missing semicolon on previous line?) Scalar found where operator expected at rum_rem_perll.pl line 11, near + "print "$result" (Do you need to predeclare print?) Backslash found where operator expected at rum_rem_perll.pl line 11, n +ear "$result\" (Missing operator before \?) String found where operator expected at rum_rem_perll.pl line 12, near + "system('ssh', "" (Might be a runaway multi-line "" string starting on line 11) (Missing semicolon on previous line?) Scalar found where operator expected at rum_rem_perll.pl line 12, near + "system('ssh', "$remoteuser" Backslash found where operator expected at rum_rem_perll.pl line 12, n +ear "$remoteuser\" (Missing operator before \?) String found where operator expected at rum_rem_perll.pl line 12, at e +nd of line (Missing semicolon on previous line?) syntax error at rum_rem_perll.pl line 7, near "$remoteuser\" Can't find string terminator '"' anywhere before EOF at rum_rem_perll. +pl line 12.
In reply to Re^2: shell to perl equivalent
by mercuryshipz
in thread shell to perl equivalent
by mercuryshipz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |