Object / Arrays

[Struppi]

Ich suche nache einer Lösung die "so aussieht":

sub addName
{
  $this = shift;
  push( @{ $this -> { array } }, shift );
}

sub getName
{
  $this = shift;
  return pop( @{ $this -> {array } } );
}

denke ich irgendwie umständlich oder so...?!?

Nein, das entspricht einem üblichen Objekt in Perl, nur must du noch eine "geblesste" Referenz erzeugen, so wie auf der gezeigten Seite beschrieben.

Struppi.