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

DennisRitchie

我们看问题：

• 要求使用元编程技术动态的生成一个Person类
• Person类的字段的名称以空格为分隔符存放在attribute.txt中，当然我们并不能预先知道这些字段，比如：
  

  id name age sex

• 为Person类的每一个字段提供一个setter和getter成员方法
• 最后使用Person类生成一个Person实例
  

另外，我想知道在PERL中，元编程技术应用的广泛吗？我不太懂perl的，谢谢大家的回答了。

[ 本帖最后由 flw 于 2007-9-13 14:09 编辑 ]

uppet

一个简单的。。。

package Person; use Data::Dumper; sub _from_file{ &nbsp;&nbsp;&nbsp;&nbsp;my $FF; &nbsp;&nbsp;&nbsp;&nbsp;open $FF ,"<att.txt"; &nbsp;&nbsp;&nbsp;&nbsp;return split /\s/, scalar <$FF>; } sub new{ &nbsp;&nbsp;&nbsp;&nbsp;my %arg_hash = @_; &nbsp;&nbsp;&nbsp;&nbsp;print Dumper(%arg_hash); &nbsp;&nbsp;&nbsp;&nbsp;@fields = _from_file(); &nbsp;&nbsp;&nbsp;&nbsp;print Dumper(@fields); &nbsp;&nbsp;&nbsp;&nbsp;for my $newf (@fields){ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$arg_hash{$newf} = undef unless exists $arg_hash{$newf}; &nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;print Dumper(%arg_hash); &nbsp;&nbsp;&nbsp;&nbsp;return bless \%arg_hash; } sub dump{ &nbsp;&nbsp;&nbsp;&nbsp;$self = shift; &nbsp;&nbsp;&nbsp;&nbsp;print Dumper($self); } package main; $stranger = Person::new(so => 1, far => 2); $stranger->dump();

zjjfeng

初学， 看的有点迷糊，膜拜下楼上的

flw

警告一下楼主：
不要扯上无关话题。
这次先帮你编辑了。

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

perljoker

同上

nkcsx

醉翁之意不在酒，改了就不来了，呵呵

DennisRitchie

原帖由 uppet 于 2007-9-13 13:57 发表
一个简单的。。。



package Person;
use Data:umper;

sub _from_file{
    my $FF;
    open $FF ,"

先谢谢你的回答！你个这个例子演示了perl使用hash来动态的增加成员变量，那么如何动态的增加成员函数？假设我们为Person类增加一个getter用以获取age成员，如下所示：

1. 
   
2. package main;
   
3. 
   
4. $stranger = Person::new(so => 1, far => 2);
   
5. $stranger->dump()
   
6. $stranger->getAge()
   

复制代码

能演示下吗？另外，你能告诉我，PERL的元编程技术在实践中用的多吗？

DennisRitchie

原帖由 flw 于 2007-9-13 14:12 发表
警告一下楼主：
不要扯上无关话题。
这次先帮你编辑了。

好吧，因为你讲的有道理，所以你的警告我接受！那么，其他更严重的违反版规的行为是不是也要警告一下了？引用就不必了，反正大家心里都有数，我也不想再和你发生争执了！

uppet

加入新方法可以使用AUTOLOAD方法。。
一般元编程的使用者是库作者或者framework作者。。。
一般用户用的不多。。

cobrawgl

谢谢