Shell Programming and Scripting

hi,
i have 2 perl scrips, a.pl and b.pl.
i want to call b.pl from a.pl and once b.pl is executed, would like to return value from b.pl to a.pl.

######## a.pl ##############
$test = `./b.pl 1`;
print "file a: $test \n";

####### b.pl ##############
print "file b: $ARGV[0] \n";
return 100;

the content of a.pl and b.pl are as shown above.
if i execute a.pl, i get the following output

#######################################################
file b: 1
Can't return outside a subroutine at b.pl line 2.
file a: 7424

can anyone say what is the mistake ??
thanks in advance

hema

Hi, the problem seems to be the presence of the return command in b.pl file: you may use return only in a function. Replace it with exit.

hi franzpizzo,

thank you for your quick response.

when i replaced return statement with exit
Can't return outside a subroutine at b.pl line 2.
this error is solved now.

but i am not getting the value 100 which is returned by b.pl script.
i am getting the following output:

file b: 1
file a: 25600

whereas the value i am expecting is 100.

I've found this:

Code:

cat a.pl

#!/bin/perl
system('./b.pl 1');
$return=$? >> 8 ;
print $return;



cat b.pl

#!/bin/perl
print "file b: $ARGV[0] \n";
exit 100;