如何往对象中的匿名函数中传参??

hu145165

我有一个类
package Autoload;
use strict;
use warnings;
sub{
       my $self = shift;
       my $str = shift;
       eval $str."()";
}
1;

=====================
请问，如果我要使用这个匿名方法的话，应该怎样做到，
我主要的目的是为了实现在.pl使用这个对象时可以通过Autoload对象 ->任意字符串 来实现一些Gtk2中的widget中的方法.

flw

sub AUTOLOAD {
    ...............
}

看看大骆驼有关 AUTOLOAD 的章节吧

兰花仙子

er....anonymous~~
没有符号，外部怎可访问？

hu145165

原帖由 flw 于 2009-12-2 16:00 发表
sub AUTOLOAD {
    ...............
}

看看大骆驼有关 AUTOLOAD 的章节吧

谢谢你的提醒

1. package Autoload;
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub new
   
6. {
   
7.         my $class = shift;
   
8.         my $self  ={};
   
9.         bless $self,$class;
   
10.         return $self;
    
11. }
    
12. sub AUTOLOAD
    
13. {
    
14.         my $selft=shift;
    
15.         our $AUTOLOAD;
    
16.         print $AUTOLOAD,"\n";
    
17.         print @_,"\n";
    
18. }
    
19. 1;
    
20. 
    
21. my $test = Autoload->new;
    
22. $test->aa(2);

复制代码

1. 输出是:
   
2. Autoload::aa
   
3. 2
   
4. Autoload::DESTROY

复制代码

这样已经能够比较智能的生成我需要的代码，来运行程序了