[PERL] Rod i objekterne.

[Michael Bernhard Sørensen <sslug@sslug>]

Hej derude.

Jeg har lidt bøvl med et objekt. Her er koden:

#!/usr/bin/perl -w

package Universe;
sub new {
    my $type = shift;    # Its own new object name
    my $self = {};       # No super class
    bless $self, $type;  #
}
sub Display {
    print("This is the universe.\n");
}

package StellarObject;
@ISA = Universe;
sub new {
    my $type = shift;         # Its own new object name
    $self = Universe->new; # Setting super class
    $self->{Name} = shift;
    $self->{Xpos} = 0;
    $self->{Ypos} = 0;
    $self->{Zpos} = 0;
    bless $self, $type;       # ???
}
sub PrintPos{
    print("Name: ",  $self->{Name}, "\n");
    print("Xpos = ", $self->{Xpos}, "\n");
    print("Ypos = ", $self->{Ypos}, "\n");
    print("Zpos = ", $self->{Zpos}, "\n");
}
sub SetPos {
    my $self = shift;
    $self->{Xpos} = shift;
    $self->{Ypos} = shift;
    $self->{Zpos} = shift;
}

package main;
$universe = Universe->new();
$universe->Display();
$sun = StellarObject->new("Sun");
$sun->SetPos(0, 0, 0);
$sun->PrintPos();
$earth = StellarObject->new("Earth");
$earth->SetPos(150000000, 0, 0);
$earth->PrintPos();
$sun->PrintPos();

Når jeg i den sidste linie vil skrive positionen på $sun, så får jeg $earth ud 
på skærmen. Hvorfor får jeg det? Jeg troede lige at jeg var begyndt at fatte 
klasser i Perl. :-( Det lugter af noget reference der er gået galt, men jeg 
kan ikke gennemskue det.

Kan nogen komme med en konstruktiv kritik?

Mvh Michael