Perl 5 マスター Wiki

#!/usr/bin/perl 

use warnings;
use strict;
use Devel::EvalContext;

my $cxt = Devel::EvalContext->new();
my $hoge =$cxt->run(q{my $foo = "hoge";});
$cxt->run(q{print $foo;}); # hoge 

sub run {
    my $self = shift;
    Jifty->new();
    my $term = new Term::ReadLine 'Jifty Console';
    my $OUT = $term->OUT || \*STDOUT;
    my $cxt = Devel::EvalContext->new;
    while (defined($_ = $term->readline("jifty> "))) {
        if (/\S/) {
            my $res = $cxt->run($_);
            warn $@ if $@;
            print $OUT $res, "\n" unless $@ || !defined($res);
            $term->addhistory($_);
        }
    }
}