Passing parameters to .sh file from a perl file

The @ARGV array holds the arguments you send a perl program from the command line. So if you do this:

in the myprogram.pl script you can get the argument like so:

now use $argv1 however needed in your script.

Hi,

I tried this ...I am in unix machine A
(Here arg is 888).
#perl abc.pl 888

my $empno1 = $ARGV[0];
print "$empno1\n";
use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10,Errmode=>'die',Prompt => '/\$ $/i');
$telnet->open($host);
$telnet->login($username,$passwd);
print $telnet->cmd('sh user.sh $empno1'); ##Connected to another UNIX m/c B.

I can assign parameter to perl and inside perl i can able to get the value.But how to pass the parameter value to another shell script.Script is in another unix machine.Can anybody help in this ?

thanks
Jayakumar

Kevin !

Thanks for you timely help.

By
jayakumar

Question.

I've read the thread but not sure I understand. I've got a similar problem and very much amature to PERL. (less than a week).

I've got 3 different parameter values that I've defined in the perl script and need to pass them to a shell script for use. (Need to do a diff on 2 files and all the perl stuff I've found on that topic is way above me) I've got a few perl programming books at work here but none of them really explain the @argv use very well.

Do I need to specify a different ARGV for each parameter? and how do I specify it in the line for the shell script?

3 variables to pass into it: $today, $yesterday, $nsrnum
The line calling the shell script: system("diffcheck");

You can try this:

system("diffcheck @ARGV");

that will pass the arguments you passed into your perl script to the shell command. Assumes you have not done anything destructive to @ARGV previously, like:

$argv = shift @ARGV;

I haven't used the ARGV anywhere else, so that should be ok.

I modified that line as suggested. It errors with diff: input file log_err_nsr11.: No such file or directory

The line in my shell script is
diff log_err_nsr11.$yesterday log_err_nsr11.$today > nsr11.diffnew
The variables I defined back in the perl script are the $yesterday and $today. It doesn't look like either the variables are getting passed into it or that I'm using them correctly in the diff command.

You can try this:

system("diffcheck @ARGV");

that will pass the arguments you passed into your perl script to the shell command. Assumes you have not done anything destructive to @ARGV previously, like:

$argv = shift @ARGV;

going to have to see some code. It looks like you are passing literal strings instead of scalar variables.