Opened by Gast at 2005-10-25 20:16
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
[quote=Taulmarill,26.10.2005, 10:21]was spricht dagegen, einen weiteren hash unter $self anzulegen. das währe auf jeden fall wesendlich weniger arbeit, und man könnte den hash wie einen hash benutzen, ohne hashes noch einmal neu implementieren zu müssen.[/quote]
Wenn man den Zugriff NICHT über Methoden haben will, ist das eine weitere Möglichkeit (auch wenn es dem Kapselungsgedanken widerspricht).
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
24
25
26
27
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
package Class;
my %class_hash;
sub new {
my $class = shift;
my $value = shift || 'default';
my $self = { value => $value , class_wide => \%class_hash, };
bless $self, $class;
return $self;
}
package main;
my $obj1 = new Class('one');
$obj1->{class_wide}->{color} = 'red';
print Dumper $obj1;
my $obj2 = new Class('two');
print Dumper $obj2;
Wenn man den Zugriff NICHT über Methoden haben will, ist das eine weitere Möglichkeit (auch wenn es dem Kapselungsgedanken widerspricht).