gideondsouza has asked for the wisdom of the Perl Monks concerning the following question:
I posted a question here about what I am upto with this.
I have $code and $args, $code is perl code in a string and $args is what I want to pass into STDIN.
From my stackoverflow post and @ikegami's help I have this so far:
//time out is from the Time::Out module. my $ret = timeout 5 => sub { my $r = `perl <some_path>/ExecScript.pl '$code' "$arg" &2>1`; return $r; } ; ########### # ExecScript.pl ###### if($ARGV[0]) { my $code = $ARGV[0]; my $arg = $ARGV[1]; open(my $fh,'|-', 'perl', '-', $arg); print $fh $code; close($fh); }
- Problems:
- I can't really pass $arg into STDIN, it just goes in as an argument
- I can't fetch STDERR
I looked into IPC::Run but I can't really figure how to use it? The docs don't really have method signatures and their return types, stuff like that.
Please help me out
Back to
Seekers of Perl Wisdom