perlquestion
gideondsouza
<p>So I have a little 'executor.pl' script that looks like this:</p>
<code>
## executor.pl
use Safe;
if($ARGV[0]) {
my $code = $ARGV[0];
my $compartment = new Safe;
$compartment->deny(qw(:base_io... MANY OP CODES....));
$compartment->permit(qw(print say pack unpack require caller));
##I want to pass something into the STDIN for the $code reval-ed
my $result = $compartment->reval($code);
if ($@) {
print "Unsafe code detected: $@";
}
}
</code>
<p>
And I do this to invoke executor.pl :</p>
<code>
open(FILE,"perl executor.pl '$code' 2>&1 |")
my @output=<FILE>;
my $resp = join('',@output);
</code>
<p><strong>Question: </strong>Is there a way I can pass some argument into the <u>code being reval-ed</u> as STDIN ?. So essentially I can reval some code and then pass it some known arg to its STDIN</p>
<p>Please don't worry, this isn't any production code. I'm just doing this as a learning/curiosity exercise</p>