请教大家一个问题哦：使用元编程技术“做”人

DennisRitchie

原帖由 uppet 于 2007-9-13 18:31 发表
加入新方法可以使用AUTOLOAD方法。。
一般元编程的使用者是库作者或者framework作者。。。
一般用户用的不多。。

谢谢。在perl中有没有什么名气比较大的使用元编程技术的模块？

不是很明白元编程的意义，希望有哪位能讲解一下。

uppet

Mark Jason Dominus(《Higher-Order Perl》一书的作者，perl小牛人一个)。
在他的书中讲到很多有用的函数式编程技术，基本有一些要用到元编程。

阁下可以到CPAN下个Memoize模块来研究。
以阁下的水平，其实多问无益。建议你看几本书吧，比在BBS等人回答省事儿
《Programming Perl》——第三版，必看的书。。理由与学C要看TCPL，学Java要看TJPL一样。
《Advaced Perl Programming》——第一版。高手入门经。
《Effective Perl》——轻松一下。
《Perl Best Practices》——打算用perl进行大的Project时最好看看。

很巧上面几本的网上都有E版的了。学习一下搜E书的能力吧。。

在此之后，你要看的是perldoc或者CPAN了。

[ 本帖最后由 uppet 于 2007-9-13 23:52 编辑 ]

pangj

from list,

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $foo = Foo->new(1,2);
   
7. 
   
8. print join(", ", $foo->foo, $foo->bar, $foo->baz), "\n";
   
9. 
   
10. $foo->baz(3);
    
11. 
    
12. print join(", ", $foo->foo, $foo->bar, $foo->baz), "\n";
    
13. 
    
14. package Foo;
    
15. 
    
16. BEGIN {
    
17.        our $AUTOLOAD;
    
18.        our @fields = qw<foo bar baz>;
    
19. }
    
20. 
    
21. sub new {
    
22.        our @fields;
    
23.        my $class = shift;
    
24.        my %self;
    
25.        @{self}{@fields} = (@_, (0) x @fields);
    
26.        return bless \%self, $class;
    
27. }
    
28. 
    
29. sub AUTOLOAD {
    
30.        our ($AUTOLOAD, @fields);
    
31.        my $self = shift;
    
32.        my $sub = (split '::', $AUTOLOAD)[-1];
    
33.        return if $sub eq 'DESTROY';
    
34.        die "$sub not defined" unless grep { $sub eq $_ } @fields;
    
35. 
    
36.        #if there were args, then this is a setter
    
37.        $self->{$sub} = shift if @_;
    
38. 
    
39.        return $self->{$sub};
    
40. }

复制代码

DennisRitchie

原帖由 uppet 于 2007-9-13 23:48 发表
Mark Jason Dominus(《Higher-Order Perl》一书的作者，perl小牛人一个)。
在他的书中讲到很多有用的函数式编程技术，基本有一些要用到元编程。

阁下可以到CPAN下个Memoize模块来研究。
以阁下的水平，其实 ...

《Programming Perl》中文版翻译的不好，我觉得《Advaced Perl Programming》比较好。