Re: [PERL] Array i klasse

[Jan Eggert Kofoed <sslug@sslug>]

Nu har jeg brug for at kende størrelsen af mit array

> sub new
> {
>     my $self = shift;
>
>     my @Groups;
>     my $r_Album =
>     {
>     "name"        => undef,
>     "id"          => undef,
>     "dbname"      => undef,
>     "released"    => undef,
>     "albumartist" => undef,
>     "groups"      => sslug@sslug
>     };
>
>     bless $r_Album, 'Album';
>     return $r_Album;
> } # constructor

Da man anvender referencer, har jeg en lille stump test, som virker 
efter hensigten, men kan ikke 'oversætte' det til object notation:
------------------------------
    my @anArray;
    my $rArray = sslug@sslug;
    $anArray[4] = 3;

    print FH "element four of rArray: ".$$rArray[4]."\n";
    print FH "element zero of groups: " 
.$album->{groups}->[0]->name()."\n";
    print FH "size of rArray: ".scalar(@$rArray)."\n";
    print FH "size of groups: ".scalar(???
------------------------------
Element 4 i $rArray får man jo ved at sætte '$' forrest.
Fra objektet kan jeg tilgå element 0 uden dette '$'.
Størrelsen af rArray får jeg jo ved at erstatte første '$' med '@'.
Det kan jeg ikke for arrayet i objektet.

Hvad kan jeg gøre i stedet for (for at undgå at holde rede på det 
største indeks anvendt i klassen's metoder)?

mvh
Jan