Opened by Noisebreath at 2006-04-14 17:36
User since
2006-04-14
72 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-14
72 Artikel
BenutzerIn
Perl-Klassen
Es gibt keine spezielle Syntax für Klassen in Perl. Ein Package kann als Klasse gelten, falls sie Subroutinen zur Verfügung stellt, welche Methoden sind. Ein solches Package kann Methoden von anderen Klassen ableiten, indem sie die Namen dieser Klassen in dem @ISA-Array angibt.
Ich gehe somit davon aus dass es in Perl wohl keine herkömliche Klassenart gibt. Meine Frage an euch:
Kann ich eine class irgendwie simulieren? ich würde gerne am ende ein arry haben in dem ich meine classobjekte speichern kann die attribute haben wie zb. child, parent, name etc
unter anderen programmiersprachen wie php ist das kein problem zb :
Also her mit dem Perlwissen bitte :)
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1145030287-->
Es gibt keine spezielle Syntax für Klassen in Perl. Ein Package kann als Klasse gelten, falls sie Subroutinen zur Verfügung stellt, welche Methoden sind. Ein solches Package kann Methoden von anderen Klassen ableiten, indem sie die Namen dieser Klassen in dem @ISA-Array angibt.
Code: (dl
)
1
2
3
4
5
6
7
package subclass;
@ISA = (baseclass);
sub new {
my $self = {};
bless $self;
return $self;
}
Ich gehe somit davon aus dass es in Perl wohl keine herkömliche Klassenart gibt. Meine Frage an euch:
Kann ich eine class irgendwie simulieren? ich würde gerne am ende ein arry haben in dem ich meine classobjekte speichern kann die attribute haben wie zb. child, parent, name etc
unter anderen programmiersprachen wie php ist das kein problem zb :
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
class tree_node
{
var $parent;
var $child;
var $module;
var $name;
var $titel;
function tree_node($a=NULL, $b=NULL, $c=NULL, $d=NULL,$e=NULL){
$this->parent=$a;
$this->child=$b;
$this->module=$c;
$this->name=$d;
$this->titel=$e;
}
}
Also her mit dem Perlwissen bitte :)
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1145030287-->