Perl的等價於python exec？

Question

Python的法人代碼：

exec("def f():print 123"); f(); 

什麼是一個Perl相當於建設或如何綁定的符號從EVAL電流範圍從Perl中的eval？

eval("sub f(){ print 123;}"); f(); 
    "Undefined subroutine &main::f" 

問題是不現實的，因爲它有印錯在它第一個定義。

Answer 1

我不知道你想實現什麼，但字符串的eval會把功能包的命名空間（如果已經有一個將重新定義按該名稱的功能）。如果你只需要這在一個地方：

my $f = sub { my $v = shift; sub { print $v } }->(123); 
... 
$f->(); 

例子：

#!/usr/bin/env perl -l 

use strict; 
use warnings; 

sub f() { print 456 }; 

eval "sub f() { print 123 }"; 

f(); 

my $f = sub { my $v = shift; sub { print $v } }->(123); 

$f->(); 

輸出：

Subroutine f redefined at (eval 1) line 1. 
123 
123

Answer 2

你有一個錯誤的子程序聲明。嘗試：

eval("sub f { print 123 }"); f(); 

參見：http://perldoc.perl.org/perlsub.html