關(guān)于 偉大的 類

snss1983

package MyPerson;
use strict;
#use warnings;
use vars qw(@ISA);
sub new {
    my ($class, @args) = @_;
    my ($first,$last,$id,$father,$mother) = @args;
    my $self = bless {
        'fname' => $first,
        'lname' => $last,
        'id' => $id,
        'mother' => $mother,
        'father' => $father,
    }, $class;
    return $self;
}
sub father {
    my ($self,$val) = @_;
    return $self->{'father'};
}
sub id { return shift->{'id'} }

1;



#!/usr/bin/perl -w
use strict;
use MyPerson;
my $person = MyPerson->new('jimbo', 'gumbo', 1,2,3);
my @family = (undef,$person); # 0 index needs to be empty
#print "@family\n";
push @family, MyPerson->new('mom', 'gumbo', 3, 0, 0);
print "@family\n","\n";
push @family, MyPerson->new('dad', 'gumbo', 2, 0, 0);
#print "@family\n";
my $dad = $family[$person->father];
print "$dad\n","\n" ;
print "$person\n";
print "father id is ", $person->father, "\n";
print "father obj id is $dad id is ", $dad->id,"\n"


結(jié)果：
MyPerson=HASH(0x289f6c) MyPerson=HASH(0x1829fc4)

MyPerson=HASH(0x1829fc4)

MyPerson=HASH(0x289f6c)
father id is 2
father obj id is MyPerson=HASH(0x1829fc4) id is 3




本來(lái)想通過(guò)程序來(lái)體會(huì)一下類的工作原理的。沒(méi)想到 不體會(huì) 不知道，一體會(huì) 更不知道了。
不明白 怎么出現(xiàn)這么對(duì)內(nèi)存地址。類這部分感覺(jué)超級(jí)暈！還請(qǐng)不吝賜教。

是不是要學(xué)好類 ，引用，模塊是重點(diǎn)。

[ 本帖最后由 snss1983 于 2008-9-17 11:32 編輯 ]

flw

還是按照大駱駝的章節(jié)順序來(lái)學(xué)吧。
別想一口氣吃個(gè)大胖子。
你現(xiàn)在欠缺的不光是引用和模塊，
連一些最基本的語(yǔ)法都沒(méi)搞熟。

khandielas

其實(shí)你知道你push進(jìn)@family 的不是object，而是obj的ref就好了。

cobrawgl

你可以從頂端建造金字塔么

snss1983

my ($class, @args) = @_;
這個(gè)程序的代碼 基本上是讀懂了。但是發(fā)現(xiàn)my ($class, @args) = @_;語(yǔ)言中@_送來(lái)的數(shù)據(jù)都給了@args 沒(méi)有給$class.這是為什么？？？？？？

churchmice

Impossible
不信你自己打印一下$class好了