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

yakczh_cu

1. 
   
2. sub call(&$)
   
3.   {
   
4.                 my ($code, $para, $file, $re) = @_;
   
5.              $processResult= $code->($para);
   
6.                 print $processResult;
   
7.                
   
8.   }
   
9.   
   
10. 
    
11. my $para= "http://bbs.chinaunix.net";
    
12. 
    
13. call  {
    
14.       my $para=shift;
    
15.           print "\npara is ".$para;
    
16.           
    
17.           return "\n$para  changed to -> ".uc($para)." ";
    
18.           
    
19.       
    
20.    } $para;
    

复制代码

这相当于把一段代码当成参数传进去执行，但只能这样硬编码，有没有办法，可以从单独的文件读进来　然后再插入进去

picbhan

eval不行吗？或者读进来存为一个字符串传进去？

yakczh_cu

这是个结构，不是变量

rubyish

picbhan 发表于 2013-05-26 14:30
eval不行吗？或者读进来存为一个字符串传进去？

学习~ 3Q~

laputa73

perl是脚本语言,动态支持是天然的
变量\结构\甚至函数都可以动态生成和加载
而且,结构和函数本身也是一种变量

grshrd49

1. &$

复制代码

这个是啥意思啊

brantc

回复 6# grshrd49

perldoc perlvar
......
$&      The string matched by the last successful pattern match (not
            counting any matches hidden within a BLOCK or "eval()" enclosed
            by the current BLOCK).

            The use of this variable anywhere in a program imposes a
            considerable performance penalty on all regular expression
            matches. To avoid this penalty, you can extract the same
            substring by using "@-". Starting with Perl 5.10, you can use
            the "/p" match flag and the "${^MATCH}" variable to do the same
            thing for particular match operations.

            This variable is read-only and dynamically-scoped.

            Mnemonic: like "&" in some editors.

grshrd49

回复 7# brantc


    反了啊 ，
我知道$&是获取正则中最后一次匹配的字符串
但是楼主那个函数中传的参数是 &$  诶
费解啊 手误？还是什么奇怪的特殊标量呢

iakuf

回复 8# grshrd49

brantc 的答案是错的，在函数中的这个叫函数原型。
   

yakczh_cu

回复 5# laputa73

1. sub call(&$)
   
2.   {
   
3.                 my ($code, $para, $file, $re) = @_;
   
4.              $processResult= $code->($para);
   
5.                 print $processResult;
   
6.                
   
7.   }
   
8.   
   
9. my $code;
   
10. open FH,'test.pl';
    
11. do {local $/;$code=<FH>;};
    
12. print $code;
    
13. my $para= "http://bbs.chinaunix.net";
    
14. 
    
15. call eval($code)   $para;

复制代码

Type of arg 1 to main::call must be block or sub {} (not eval "string")