perl动态代码机制是怎么工作的呀？

Alz

比如如何把一个函数的代码字符串动态的编译并执行？
  我知道JavaScript中如何实现这样的功能：
var funcode = "function(str){alert(str);}";
var fun = eval(funcode);
fun("Hello World!";
  请问谁知道这种机制在perl中如何实现？举个例子可以吗？

apile

eval

perldoc -f eval

please..

置頂的post裡...可以找到例子...

剛剛發現好像不見了...

那好吧..一個很簡單的東西..

$data =eval {
    my $i;
     for( $i=0;$i<100;$i++){
        $i++;
    }
    $i;
};

實際上eval後面的除了是{}外..也可以是
$string ="sub test(){ my (\$data) = \@_; return \$data;}";
$data = eval $string;

deathcult

>;export CMD='print "hello"'
>;perl -e 'print $ENV{"CMD"}'
print "hello"

>;perl -e 'eval $ENV{"CMD"}'
hello