Master:

my $path = '/a/b/c';
system 'perl', 'slave.pl', $path;
[download]

Slave:

my $path = shift;
print "Path received from master: $path\n";
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Nice, another little trick I didn't know. That shift defaults to working on @ARGV in certain cases, I always would have assumed @_ had I not been confused at first seeing you do this choroba.

shift

Shifts the first value of the array off and returns it, shortening the array by 1 and moving everything down. If there are no elements in the array, returns the undefined value. If ARRAY is omitted, shifts the @_ array within the lexical scope of subroutines and formats, and the @ARGV array outside a subroutine and also within the lexical scopes established by the eval STRING , BEGIN {} , INIT {} , CHECK {} , UNITCHECK {} , and END {} constructs.

I love it when things get difficult; after all, difficult pays the mortgage. - Dr. Keith Whites
I hate it when things get difficult, so I'll just sell my house and rent cheap instead. - perldigious

Thanks a lot for the help! appreciate it but If there are 10-20 number of paths which I need to pass on to some 50's of files through the master script. shift can't be used effectively then I guess, any other efficient solutions for that??

Consider using a config file and read the values within the child scripts, depending on whatever criteria you have to work with. If you have that many path variables it's worth thinking about this rather than managing then all within a series of scripts.

If the provided filenames differ between separate child scripts:

You can pass the filenames via command line and simply iterate over @ARGV to process them. If the length of the command is getting too long then you could provide the filenames by piping them into the childprocess via STDIN. Or you can write a temp file in the parent script and provide the child scripts with the filename to read from.

2 possibilities come to my mind at the moment:

If the file paths are not too long, you can pass them as additional parameters to system:

# master

my @files = qw[ path/to/file0 path/to/file1 path/to/file2 ];
system 'perl', 'slave.pl', @files;
[download]

# slave

print "List of files to process:\n";
print "    $_\n" for (@ARGV);
[download]

If the paths are too long to pass them all as parameters, write them to a file, 1 per line:

# master

my @files = qw[ path/to/file0 path/to/file1 path/to/file2 ];
open my $fh, '>', 'filelist';
print $fh, "$_\n" for (@files);
close $fh;
system 'perl', 'slave.pl'
[download]

# slave

open my $fh, '<', 'filelist';
print "List of files to process:\n";
print while <$fh>;
close $fh;
[download]

Again, you didn't post the error message:

Global symbol "$cmd1" requires explicit package name at d:/pm/gui_calc
+i.pl line 3.
[download]

You have use strict; but don't define $cmd1. strict, system.

Hi marto, Yes I Know that and that exactly is my doubt. I've defined $cmd1 in my Master script as u can see above in my code and I am trying to run my gui_calci script through master script. If I have 50 Scripts I need to run through a master script and each of those scripts contain a filepath, I want to pass all those file paths from master script or someway or another from outside because it is very difficuilt to modify filepaths in 50 scripts everytime . Any suggestions would help? P.S. Apologies for not posting the error message

It doesn't work this way. In the master script you define your variables, however you run another perl script via system. It knows nothing about the variables in the master script. Consider the following example: master.pl

#!/usr/bin/perl

use strict;
use warnings;

my $secret = 'BruceWayneisBatman';

my @cmd = ('perl', 'child.pl', $secret);
system(@cmd) == 0 or die "system @cmd failed: $?";
[download]

child.pl

#!/usr/bin/perl

use strict;
use warnings;

my $message = $ARGV[0];

print "The master script passed: $message\n";
[download]

Again see system.