note
aitap
<p>I think that this will run your Perl code with STDIN fed and STDOUT/STDERR catched properly:
<c>
use IPC::Run 'run';
my ($stdout, $stderr);
run [ qw/perl -e/, $code ], '<', \$args, '>>', \$stdout, '2>>', \$stderr;
</c></p>
<p>Example run:
<c>$ perl
my $code = q[use feature 'say'; say for 1..10; warn 'zzz'; $z = <STDIN>; $z=~y/a-z/A-Z/; say $z];
my $args = q[this is STDIN, why not?];
use IPC::Run 'run';
my ($stdout, $stderr);
run [ qw/perl -e/, $code ], '<', \$args, '>>', \$stdout, '2>>', \$stderr;
print "STDOUT: $stdout\n";
print "STDERR: $stderr\n";
__END__
STDOUT: 1
2
3
4
5
6
7
8
9
10
THIS IS STDIN, WHY NOT?
STDERR: zzz at -e line 1.
</c></p>
<p><c>__DATA__</c> will be broken unless you use real files instead of <c>-e 'code'</c> above. Feeding the code to STDIN (with <c>"\n__END__\n"</c> between the code and actual STDIN) may also work, but can break in strange ways with syntax errors in code.</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-980564">
Sorry if my advice was wrong.
</div></div>
1019107
1019107