You may want to look up 'do' (perldoc -f do).
That is, if 'test_two.pl' prints something and you just want to forward that print, you can execute your program with do for that.
If program number two is returning something, you can capture the result from do and print that.
Example code:
## test_one.pl:
#!/usr/bin/perl
use warnings;
use strict;
# $bar will hold "Bar",
# "Foo" gets printed right away.
my $bar = do 'test_two.pl';
print $bar;
## test_two.pl:
print "Foo\n";
return "Bar\n";
This is a somewhat faulty solution in case you want to mangle the output from the second script, but if you don't, this is the simplest way, without executing external programs or reading files and evaling.
You have moved into a dark place.
It is pitch black. You are likely to be eaten by a grue. |