in reply to Re: Executing code block in memory
in thread Executing code block in memory

I tried this but I dont think its everything you were talking about: 
#!/usr/bin/perl -w
use URI::Escape;
use HTML::Entities;
use CGI qw/:standard/;
print "Content-type: text/html\n\n";
my $file;
if(param('test')){
        my $code = param('test');
        $code = uri_unescape($code);
        $code = encode_entities($code);
        open STDERR, '>&STDOUT';
                open my $fh, '>', \$file;
                print $fh $code;
                close $fh;
                open my $pipe, '-|', "perl -w $file";
                close $pipe;
        close STDERR;
}

[download]
The output I get with this is: 
sh: -c: line 0: syntax error near unexpected token `;;'
sh: -c: line 0: `perl -w print "hi";'

[download]
This is what is passed to the script: 
print "hi";
print "hello world\n";

[download]

Replies are listed 'Best First'.
Re^3: Executing code block in memory
by kennethk (Abbot) on Aug 08, 2012 at 22:18 UTC
    A modified version of your sample that does what I mean: 
    #!/usr/bin/perl -w
use strict;

use URI::Escape;
use HTML::Entities;
use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';

print header;

my $file;
if(param('test')){
        my $code = param('test');
        $code = uri_unescape($code);
        $code = encode_entities($code);
        open STDERR, '>&STDOUT';
        eval $code;
        print $@ if $@;
}

    [download]

    No need to create external, temporary files. There are some potential messy issues in there, but this is good enough for rough cut.

    #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

[reply]
[d/l]

In Section Seekers of Perl Wisdom