ainame · May 6, 2012 03:23
diff --git a/re.pl b/re.pl
 #!/usr/bin/env perl
 use warnings;
 use Term::ReadLine;
 use 5.10.0;
 use Data::Printer;

 my $term = Term::ReadLine->new('REPL');
 my $prompt = '$ ';
 while(defined ($_ = $term->readline($prompt))){
    chomp;
    say eval($_);
 }
	#!/usr/bin/env perl
	use warnings;
	use Term::ReadLine;
	use 5.10.0;
	use Data::Printer;

	my $term = Term::ReadLine->new('REPL');
	my $prompt = '$ ';
	while(defined ($_ = $term->readline($prompt))){
	chomp;
	say eval($_);
	}