怎么样动态注入一段代码来运行

rubyish

2 example:

办法 1:

1. sub hello {
   
2.     my ( $c, $p ) = @_;
   
3.     my $C = eval 'sub {' . $c . '}';
   
4.     print $C->($p);
   
5. }
   
6. my $code = do { local $/; <DATA> };
   
7. hello $code, 'world';
   
8. __DATA__
   
9. my $p = shift;
   
10. uc $p

复制代码

1. WORLD

复制代码

rubyish

办法 2:

1. sub hello(&$) {
   
2.     my ( $c, $p ) = @_;
   
3.     print $c->($p);
   
4. }
   
5. my $code = do { local $/; <DATA> };
   
6. my $sub = eval 'sub { ' . $code . '}';
   
7. hello { &$sub } 'world';
   
8. __DATA__
   
9. my $p = shift;
   
10. uc $p

复制代码

1. WORLD

复制代码

brantc

回复 9# iakuf


    哦？perldoc文档呀，在这里不适用吗？