Re: [PERL] Array i klasse

[Jan Eggert Kofoed <sslug@sslug>]

Peter Makholm wrote:
> Jan Eggert Kofoed <sslug@sslug> writes:
>
>
> > Må jeg lige igen spørge til, hvordan jeg kan bestemme størrelsen af
> > arrayet $class->{groups}.
>
>
> Ehhh, du mener $self->{groups}, ikke?

Naturligvis, der var jeg for hurtig til at indføre ændringer.
> Du kan opfatte @{$self->{groups}} som et helt almindeligt array. Altså
> kan du enten sige 'scalar @{$self->{groups}}' for at få antallet af
> argumenter eller '$#{$self->{groups}}' for at få det sidste index i
> arrayet.
OK, det var curly brackets, jeg skulle anvende. Nu virker det!

> >     print FH "element zero of groups: "
> >     .$album->{groups}->[0]->name()."\n";
>
>
> ehhh, 'information hiding'. Lav nogle accesor-funktioner
Yes, indtil videre har jeg bare testet classen helt ud i min 
application. Hvordan kan jeg lave information hiding?

> >     print FH "size of rArray: ".scalar(@$rArray)."\n";
> >     print FH "size of groups: ".scalar($album->{groups})."\n";
>
>
> Som sagt ovenfor, så er det 'scalar @{$album->{groups}}' du er
> interesseret i. $album->{groups} er en reference der skal derefereres
> jvf. 'perldoc perlref'.
Jeg kom selv i tanker om at benytte min reference til et array på objektet,
hvorved jeg på kluntet vis fik det ønskede resultat.
Jeg går efter din første løsning.

Mange tak for hjælpen. Nu har jeg værktøjet på plads til det
foreliggende projekt.

mvh
Jan