Passing parameters to .sh file from a perl file

[jayakumarrt]

Dear Friends,

I have a perl script abc.pl.I will be running this script with an parameter .The same parameter value i would like to pass to the shell script (The shell script is inside perl script ).Is it possible.Can any body throw light on this ?.

Example :perl abc.pl arg1

content of abc.pl
--------------------
{
sh hello.sh arg1
}

Thanks in advance
Jayakumar

[KevinADC]

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

perl myprogram.pl arg1

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

my $argv1 = $ARGV[0];

now use $argv1 however needed in your script.

[jayakumarrt]

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

[KevinADC]

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);
my $cmd = "sh user.sh $empno1";
print $telnet->cmd($cmd); ##Connected to another UNIX m/c B.

[jayakumarrt]

Kevin !

Thanks for you timely help.

By
jayakumar

[scanner248]

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");

[KevinADC]

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;

[scanner248]

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;

[KevinADC]

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