Is it possible to include/source another perl script, or launch it as a "sub"? This works, but looks ugly:
test2.pl:
print "I'm in test2.pl; args: @ARGV\n";
test.pl:
#!/usr/bin/perl
use File::Temp qw/tempdir/;
use File::Copy qw/copy/;
my $tmplib;
use lib ($tmplib = tempdir()) . (
copy("./test2.pl", "$tmplib/test2.pm") ? "" : (die "$!")
);
use test2;
x
$ ./test.pl a b c
I'm in test2.pl; args: a b c
It sounds like you want the do operator, although it also sounds like very bad design.
This is what the documentation says.
do EXPR Uses the value of EXPR as a filename and executes the contents of the file as a Perl script.
do 'stat.pl';
is just like
eval `cat stat.pl`;
use and not with do then it is probably because use is executed at compile time. Just write BEGIN { do 'test2.pl' } instead and it should work fine.You can use do to run another Perl script in the same interpreter:
do 'test2.pl';
This will reuse the command line parameters from the outer script. To pass different parameters, you can override @ARGV locally, like:
{
local @ARGV = qw(par1 par2 par3);
do 'test2.pl';
}
