Re: Passing arguments


No such thing as a small change
	PerlMonks

Re: Passing arguments

by monktim (Friar)

on Jan 28, 2004 at 21:53 UTC ( [id://324801]=note: print w/replies, xml )

Need Help??

in reply to Passing arguments

#in my calling script
my @array = ('a','b','c');
system(qq(perl C:\\script2.pl @array));
print "system failed.  [$?]: $!" if ($?);

#if args contain spaces
my @array = ('a 1','b 2','c 3');
my $args;
$args .= '"'.$_.'" ' foreach (@array);
system(qq/perl C:\\Backup\\script2.pl $args/);
print "system failed.  [$?]: $!" if ($?);

# Script2.pl
my @RecivedArray = @ARGV;;
print join(',',@RecivedArray);
[download]

Update Added a line of code to check the status of the system call. Also added a block showing arguments that contain spaces.