perl繼承學(xué)習(xí)的兩點(diǎn)疑問

815138698

1.new函數(shù)支持繼承的定義方式：

package：Father：

sub new
{
        my $class = shift;------------------這邊具體是什么含義，我發(fā)現(xiàn)沒有這一行的時(shí)候，在子類Sun 的new中也是可以使用$this= Father::new，為什么呢？還屬于繼承嗎？       
            my $this = {};
        bless $this,$class;
        return $this;
}


2.在沒有繼承的時(shí)候，子類怎么找到父類的變量的？
自己的操作：

Package：Father

sub new
{
        my $this = {};
        $this->{'father'}='father';
        bless $this;
        return $this;
}

sub setfathertype
{
        my ($class,$name)=@_;
        $class->{father}=$name;
        print "Set father Type  $name: \n";
}

子類sun調(diào)用：
sub new
{
        # my $type=shift;
        my $this= {} ;   ----------這邊沒有繼承
        $this->{'sun'}='Gaoyou';
        bless $this;
        return $this;
}

my $m= new sun;
print "father type is $m->{father} \n";-----------這邊是會(huì)報(bào)錯(cuò)的。

如果是先調(diào)用了父類的子函數(shù)setfathertype ，再使用$m->{father} 是可以的，是什么原因呢？是因?yàn)樵谧雍瘮?shù)中使用了變量，加入了hash里面了？那這邊應(yīng)該跟繼承是沒有關(guān)系的吧？
$m->setfathertype(father_nanjing');
print "Now the fathertype is $m->{'father'} \n";


請(qǐng)幫忙解惑下，祝各位新年快樂~~~

minirain

包名或類名。

815138698

回復(fù) 2# minirain


很感謝你的解答   
能幫忙針對(duì)兩個(gè)問題給個(gè)更詳細(xì)的解答嗎   

MMMIX

回復(fù) 1# 815138698


    把你的完整出錯(cuò)代碼貼上來。

815138698

回復(fù) 4# MMMIX


    可能描述的不清楚，我再重新帶上代碼說明下我的疑問：

1.  
父類的函數(shù)：

package：Father;

sub new
{
        # my $class = shift;
        my $this = {};
        $this->{'Father'}='Father';
        bless $this;
        # bless $this,$class;
        return $this;
}

sub setFathertype
{
        my ($class,$name)=@_;
        $class->{'Father'}=$name;
        print "Set Father Type  $name: \n";
}

子類的函數(shù)：
package Sun;
sub new
{
        my $this= {};
        my $this= Father->new;#############繼承
        $this->{'Sun'}='Sun';
        bless $this;
        return $this;
}

my $m= new Sun;
print " Father type is $m->{'Father'} \n";

疑問：父類的new函數(shù)中這行 my $class = shift;代表是可以被繼承的，但是如果沒有這一行的時(shí)候，子類sun的new() 也寫成my $this= Father->new，發(fā)現(xiàn)是可行的，而且最后也能通過$m->{Father}訪問父類的變量，想知道m(xù)y $class = shift 這一行有和沒有有什么區(qū)別嗎？  沒有的話能不能被繼承？



2.子類sun中沒有繼承Father
sub new
{
        my $this= {};
        $this->{'Sun'}='Sun';
        bless $this;
        return $this;
}


如果我在sun里面直接使用

print "father type is $m->{father} \n";-----------是會(huì)報(bào)錯(cuò)的，找不到$m->{father}。找不到$m->{father}。

但是如果先調(diào)用了父類的子函數(shù)setfathertype ，再使用$m->{father} 是可以的，是什么原因呢？是因?yàn)樵谧雍瘮?shù)中使用了變量，加入了hash里面了？那這邊應(yīng)該跟繼承是沒有關(guān)系的吧？


$m->setFathertype('Father_nanjing');
print "Now the Father type is $m->{'Father'} \n";----OK

MMMIX

回復(fù) 5# 815138698


   

疑問：父類的new函數(shù)中這行 my $class = shift;代表是可以被繼承的，

誰說的？

Perl OO 的繼承（Inheritance) 參見：http://perldoc.perl.org/perlobj.html#Inheritance

RZL_01

雖然我不知道你想說什么，先了解下shift是個(gè)什么東西，還有就是bless又起了什么作用，了解了，或者一切都會(huì)迎刃而解。