Opened by Gast at 2007-04-18 15:41
User since
2006-11-29
340 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-11-29
340 Artikel
BenutzerIn
Wenn du zum Beispiel eine id als Objektattribut haben möchtest, kannst du das mit einem weiteren Klassenattribut realisieren:
Oder mit dem Array @objects:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
package TestObjects;
...
my @objects;
my $id;
sub new{
my ($class) = @_;
my $self = {id=>++$id};
bless $self,$class;
push @objects,$self;
return $self;
}
sub first { 1 }
sub last { $id }
...
1;
Oder mit dem Array @objects:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
package TestObjects;
...
my @objects;
sub new{
my ($class) = @_;
my $self = {id=>$#objects+1};
bless $self,$class;
push @objects,$self;
return $self;
}
sub first { 0 }
sub last { $#objects }
...
1;