在perl的Person Object中生成abstract method, 即
sub save{
my($self) = $_[0];
my($flagBoolean) = $self->{"flag"};
if ($flagBoolean eq "1")
{
update();
}else{
insert();
}
}
sub update{
}
sub insert{
}
希望update和insert都是abstract method,调用时自动根据继承的Female.pm中的实际update和insert方法来实现功能.
小弟是java delveloper,不了解如何在Perl中实现abstract method.希望大侠给一段code让我参考.
--------------------------------------------------------------------------------
笨狗 回复于：2005-08-11 07:26:09
abstract不是抽象吗?怎么变成虚了?
--------------------------------------------------------------------------------
笨狗 回复于：2005-08-11 07:27:07
[code:1:d5e402c141]
package Vater;
sub new {
my($proto)=@_;
my $class = ref($proto) || $proto;
my $self = {};
bless($self, $class);
return $self;
}
sub check {
die "Abstract method not defind";
}
1;
[/code:1:d5e402c141]
[code:1:d5e402c141]
package Sohn;
use Vater;
use vars qw(@ISA);
@ISA = ("Vater");
sub {
my ($proto) = @_;
my $class = ref($proto) || $proto;
my $self = $class->SUPER::new();
bless($self, $class);
return $self;
}
sub check {
my ($self) = @_;
# do something
}
1;
[/code:1:d5e402c141]
[code:1:d5e402c141]
use Sohn;
my $s = Sohn->new();
$s->check();
[/code:1:d5e402c141]
--------------------------------------------------------------------------------
guweichen 回复于：2005-08-12 04:21:43
谢谢 苯狗,
可能我问题描述不清楚.
我希望
update和insert都是abstract并且在子类中被override.
子类中不orveride save(), save的用法在父类中已经定义.(所以save不时abstract)
当使用子类的save()时,实际调用的是在子类中的update和insert
这通常在java中很容易实现,java中的OO比较强,但是现在项目是Perl,我没经验,发现Perl的OO很不方便.有没有好的实现方法?我用了Class::Virtually::Abstract,
Attribute::Abstract,都不行,是不是不能实现,还是我用得不对?新手啊!!!请帮忙
--------------------------------------------------------------------------------
guweichen 回复于：2005-08-12 04:49:01
还有,Vater 在new的时候加$self->{'name'} = "1";在Sohn->new();后访问不到'name',所谓的abstract object,它的constructor不一定是abstract,子类应该可以访问父类的被继承的成员变量的. 到了Perl的object中就不一样了. 是不是perl object真是这样啊?
--------------------------------------------------------------------------------
guweichen 回复于：2005-08-12 04:53:36
不好意思,赫赫
说到底,就是想用perl中的OO实现多态(polymorphism)
--------------------------------------------------------------------------------
笨狗 回复于：2005-08-12 06:01:47
建议楼主先看一些文档
比如
http://pleac.sourceforge.net/pleac_perl/classesetc.html
--------------------------------------------------------------------------------
笨狗 回复于：2005-08-12 06:02:51
[quote:1c0eb4d738="guweichen"]不好意思,赫赫
说到底,就是想用perl中的OO实现多态(polymorphism)[/quote:1c0eb4d738]
不好意思,我不懂什么是多态
--------------------------------------------------------------------------------
笨狗 回复于：2005-08-12 06:04:48
[quote:d3fd4495fa="guweichen"]还有,Vater 在new的时候加$self->{'name'} = "1";在Sohn->new();后访问不到'name',所谓的abstract object,它的constructor不一定是abstract,子类应该可以访问父类的被继承的成员变量的. 到了Perl的object中就?.........[/quote:d3fd4495fa]
$self是一个hash的引用,应该这样定义
[code:1:d3fd4495fa]
$self->{NAME => 1};
[/code:1:d3fd4495fa]
--------------------------------------------------------------------------------
笨狗 回复于：2005-08-12 06:08:44
[quote:39db4ef208="guweichen"]谢谢 苯狗,
可能我问题描述不清楚.
我希望
update和insert都是abstract并且在子类中被override.
子类中不orveride save(), save的用法在父类中已经定义.(所以save不时abstract)
当使用子类的save()时,实际调用?.........[/quote:39db4ef208]
难道我写的check()不是一个抽象方法?
perl的OO也不是很麻烦,除了bless()有点奇怪,其他和java大同小异,OO的思想都是一样的
你可以在父类和子类中都定义update和insert方法, 在父类中定义save方法,在子类中不要定义save方法
--------------------------------------------------------------------------------
guweichen 回复于：2005-08-12 21:40:49
[quote:172fe1c17b="笨狗"]
难道我写的check()不是一个抽象方法?
perl的OO也不是很麻烦,除了bless()有点奇怪,其他和java大同小异,OO的思想都是一样的
你可以在父类和子类中都定义update和insert方法, 在父类中定义save方法,在子类中不要定义..........[/quote:172fe1c17b]
我正是这样做的,但是在执行子类save的方法的时候,单步调试显示,实际调用的是父类中的update和insert方法,并不是子类中overriden的update和insert.
--------------------------------------------------------------------------------
笨狗 回复于：2005-08-13 01:22:40
[quote:e98b242908="guweichen"]
我正是这样做的,但是在执行子类save的方法的时候,单步调试显示,实际调用的是父类中的update和insert方法,并不是子类中overriden的update和insert.[/quote:e98b242908]
贴code吧
--------------------------------------------------------------------------------
flw 回复于：2005-08-13 14:51:53
Perl 的 OO 本来就支持多态和继承的，不需要任何额外的技巧，只需要注意 @ISA 这个数组就可以了。
[code:1:82d79c62f2]D:\MoChou>cat ttt.pl
#!/usr/bin/perl
use strict;
use warnings;
package ParentClass;
our @ISA = qw(Exporter);
sub new{
my $class = shift;
return bless {}, $class;
}
sub hello{
print "Hello!\n";
}
sub greet{
&hello();
}
package ChildClass;
our @ISA = qw(Exporter ParentClass);
sub new{
my $class = shift;
return bless {}, $class;
}
sub roar{
print "Kao!\n";
}
sub greet{
&roar();
}
package main;
my $gent = new ParentClass;
my $cur = new ChildClass;
$gent->greet();
$cur->greet();
$cur->hello();
$gent->coar();
D:\MoChou>ttt
Hello!
Kao!
Hello!
Can't locate object method "coar" via package "
arentClass" at D:\MoChou\ttt.pl
line 45.
D:\MoChou>[/code:1:82d79c62f2]
一个斯文的父亲生下了一个粗鲁的儿子，
斯文的父亲在问候别人的时候会说 “hello”，而粗鲁的儿子只会 “Kao”
同样的问候，在父子之间呈现出了多态性。
但是，儿子并不是不会说 hello，他也会说，这里呈现出了继承的概念。
只是这个粗鲁的家伙在问候的时候没有说 hello 的习惯而已，取而代之的是变异出来的嚎叫。可怜的父亲对此一无所知，所以你就算是让父亲嚎叫他也叫不出来。
--------------------------------------------------------------------------------
flw 回复于：2005-08-13 15:29:08
刚才又仔细审了一下题目，
发现我上面给出的并不能解决楼主的问题。
下面再写一个：
[code:1:d53705b7bb]D:\MoChou>cat ttt.pl
#!/usr/bin/perl
use strict;
use warnings;
package ParentClass;
our @ISA = qw(Exporter);
sub new{
my $class = shift;
return bless {}, $class;
}
sub howto_greet{
return "Hello!";
}
sub greet{
my $class = shift;
my $msg = $class->howto_greet();
print "$msg\n";
}
package ChildClass;
our @ISA = qw(Exporter ParentClass);
sub new{
my $class = shift;
return bless {}, $class;
}
sub howto_greet{
return "Kao!";
}
package main;
my $gent = new ParentClass;
my $cur = new ChildClass;
$gent->greet();
$cur->greet();
D:\MoChou>ttt
Hello!
Kao!
D:\MoChou>[/code:1:d53705b7bb]
子类并没有定义 greet，只是简单地继承了父类的 greet，
greet 函数首先思考如何去问候对方，这个通过 howto_greet 来实现，
考虑好问候语之后，print 出来。
很显然，在上面的例子中，子类重写了父类的 howto_greet，因此虽然调用的是父类的 greet，但是父类的 greet 调用的却是子类的 howto_greet。
