Thread keine Klassen in perl?! *heul* (13 answers)
Opened by Noisebreath at 2006-04-14 17:36

Noisebreath
 2006-04-14 19:00
#64984 #64984
User since
2006-04-14
72 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
package document;

use strict;


sub new {
my ( $class ) = @_;
my $self = {
parent => undef,
child  => undef,
doc_kind     => undef,
name  => undef
spalteninfo  => undef
};
bless( $self, $class );
return $self;
}

sub parent {
my ( $self, $parent ) = @_;
$self->{parent} = $parent if defined($parent);
return $self->{parent};
}


das ist zb so ein package. hab jetzt ein wenig rumgelesen und komme der sache näher. verstehe aber ehrlich gesagt nicht so ganz sinn und zweck der sub parent. wenn ich ein neues objekt dieser klasse erstelle (my $document = new document;)
und dann die einzelnen attribute anspreche mit (ich weiss nicht ob das syntaktisch richtig ist da ich noch nicht nachgeschaut habe ) $document->parent("Vater"); fülle ich doch die attribute auch so. ich verstehe nicht so ganz was die sub parent macht.wozu brauch ich die sub noch?

edit pq: code-tags hinzugefügt\n\n

<!--EDIT|pq|1145030349-->

View full thread keine Klassen in perl?! *heul*