Opened by Gast at 2007-04-18 15:41
hallo @lle!
ich habe eine frage bezüglich Objektorientierte programmierung in Perl:
ich möchte eine Package erstellen, die alle neue objekte und unterobjekte annimmt und speichern, so dass ich später diese objekte finden kann. Dafür habe ich folgende Code geschrieben.
Als Beispiel, stelle ich mich vor(in haupt programm)
use test;
$ob = test ->new;
$ob->name("Jason");
$ob->Properties("rte","fgh");
....
ob1 = test-> new;
...
wie geht denn es, wenn ich ein Objekt(zb Jason) finden will?(eine sub routine soll geschrieben werden);
wenn das Objekt gefunden ist, wie kann ich den Properties anzeigen lassen?
jedes neue gespeicherte Objekte sollen numeriert werden. wie geht es ?
Vielen Danke in vorraus
ich habe eine frage bezüglich Objektorientierte programmierung in Perl:
ich möchte eine Package erstellen, die alle neue objekte und unterobjekte annimmt und speichern, so dass ich später diese objekte finden kann. Dafür habe ich folgende Code geschrieben.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
package test;
use strict;
sub new{
my $class = shift;
my $self = {};
$self->{NAME}=undef;
$self->{PROPERTIES}=[];
bless($self, $class);
return $self;
}
sub name {
my $self = shift;
if (@_) {$self ->{NAME}=shift};
return $self->{NAME};
}
sub properties {
my $self = shift;
if (@_) {@{$self->{PROPETIES}} = @_}
return @{$self->{PROPERTIES}};
}
1;
Als Beispiel, stelle ich mich vor(in haupt programm)
use test;
$ob = test ->new;
$ob->name("Jason");
$ob->Properties("rte","fgh");
....
ob1 = test-> new;
...
wie geht denn es, wenn ich ein Objekt(zb Jason) finden will?(eine sub routine soll geschrieben werden);
wenn das Objekt gefunden ist, wie kann ich den Properties anzeigen lassen?
jedes neue gespeicherte Objekte sollen numeriert werden. wie geht es ?
Vielen Danke in vorraus