Opened by Gast at 2007-01-31 22:41
Hallo,
ich habe in der letzten Zeit angefangen mit Perl zu programmieren und habe ein paar Fragen bzgl. OOP. Mit anderen Sprachen habe ich schon einige Zeit verbracht und ein auch ein Weilchen Erfahrung mit OOP, nur klappt es bei Perl nicht so ganz mit dem Verständnis.
Meine erste Frage ist recht banal: Sollen Package-Namen mit einem Großbuchstaben anfangen oder nicht? Dass beides geht, also Groß- und Kleinschreibung, ist klar; nur was ist "richtig"?
Zweitens: Wie baue ich eine Klasse am besten auf? Dazu habe ich zwei Möglichkeiten gefunden.
Erste Möglichkeit:
Zweite Methode:
Die Frage ist wieder, was ist "richtig" bzw. "besser"? Ich würde die zweite Methode vorziehen, da die Parameter einzeln übergeben werden, wobei es aber bei vielen Werten mit den Variablen etwas unübersichtlich wird. Was meint ihr?
(Noch eine Frage am Rand: Warum wird beim bless in der zweiten Methode eine Referenz von %args genommen und bei $self nicht?)
Danke schon einmal.
ich habe in der letzten Zeit angefangen mit Perl zu programmieren und habe ein paar Fragen bzgl. OOP. Mit anderen Sprachen habe ich schon einige Zeit verbracht und ein auch ein Weilchen Erfahrung mit OOP, nur klappt es bei Perl nicht so ganz mit dem Verständnis.
Meine erste Frage ist recht banal: Sollen Package-Namen mit einem Großbuchstaben anfangen oder nicht? Dass beides geht, also Groß- und Kleinschreibung, ist klar; nur was ist "richtig"?
Zweitens: Wie baue ich eine Klasse am besten auf? Dazu habe ich zwei Möglichkeiten gefunden.
Erste Möglichkeit:
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
28
29
30
31
32
33
34
35
36
### Hauptprogramm ###
#!/usr/bin/perl
use strict;
use lib './classes';
use builder;
my $builder;
$builder = builder->new("Author");
$builder->print();
### Package ###
package builder;
use strict;
sub new {
my ($class, $author) = @_;
my $self = { _author => $author };
return bless($self, $class);
}
sub print {
my ($self) = @_;
print $self->{_author}."\n";
}
1;
Zweite Methode:
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
28
29
30
31
32
33
34
35
36
37
38
### Hauptprogramm ###
#!/usr/bin/perl
use strict;
use lib './classes';
use builder;
my $builder;
$builder = builder->new(author => "Author");
$builder->print();
### Package ###
package builder;
use strict;
my $author;
sub new {
my ($class, %args) = @_;
$author = $args{author};
return bless(\%args, $class);
}
sub print {
my ($self) = @_;
print $author."\n";
}
1;
Die Frage ist wieder, was ist "richtig" bzw. "besser"? Ich würde die zweite Methode vorziehen, da die Parameter einzeln übergeben werden, wobei es aber bei vielen Werten mit den Variablen etwas unübersichtlich wird. Was meint ihr?
(Noch eine Frage am Rand: Warum wird beim bless in der zweiten Methode eine Referenz von %args genommen und bei $self nicht?)
Danke schon einmal.