Re: [PERL] Array i klasse

[Jan Eggert Kofoed <sslug@sslug>]

Peter Makholm wrote:
> Jan Eggert Kofoed <sslug@sslug> writes:
>
> Jeg er ikke helt klar over hvad det er du vil. Prøv at læse perlref-
> og perlreftut-manualsiderne. Pointen er at _albumartist-nøglen i din
> hashref skal pege på en arrayref hvori du gemmer dine artister.

Mange tak for hjælpen! Jeg har nu fået arrayet ind i klassen,
og lave en reference til det i hashen. Min nye kode (i uddrag)
tester dette (hvor jeg kun tilgår array i samme rutine, som
jeg udfylder et element, men det virker vel også i en anden
metode).
-------------------------
# $Header$

package Album;
use strict;
use Group;

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
sub albumartist
{
    my $self = shift;
    if (@_)
    {
	$self->{_albumartist} = shift;
	$self->{_groups}->[4] = Group->new();
	my $i;
	for ($i=0; $i<10; $i++)
	{
	    if ( defined($self->{_groups}->[$i]) )
	    {
		print $i." ";
		$self->{_groups}->[$i]->write();
	    }
	    else
	    {
		print $i." undefined\n";
	    }
	} # for i
    } # artist supplied
    return $self->{_albumartist};
} # albumartist
-------------------------
Det var fikst.

> Iøvrigt finder jeg det grimt at du indleder nøglerne i din hash med
> understregninger.
>

Jeg benyttede en notation fra en bog, hvor det anvendes som en 
konvention, der viser, at vi har med private data at gøre.
Men er alle klassens data ikke det?
Andre eksempler i samme bog følger ikke konventionen :-)
Jeg har set eksempler, hvor der anvendes lutter store bogstaver, og der 
er også kommentarer om anvendelse af blanding af store og små bogstaver 
i forhold til konventioner i Perl's egen kode.

Nu er konventioner, politik, og religion jo sprængfarlige emner, men lad 
mig dog lige høre, hvad I gør.

mvh
Jan