Array als Membervariable

[hotti]

hi,

Also, entweder die Welt ist durchgeknallt, oder ich. Scheinbar habe ich hier wohl etwas ganz elementares nicht verstanden. Es muss doch möglich sein, ein Array in einem Objekt zu speichern?

Natürlich geht das. Als Referenz ;)

  
sub new{  
  my $class = shift;  
  return bless {ARRAY => []}, $class;  
}  
  
sub load{  
  my $self = shift;  
  $self->{ARRAY} = \@_;  
}  
  
sub print{  
  my $self = shift;  
  print join "\n", @{$self->{ARRAY}};  
}  
  
my $aol = main->new;  
$aol->load(1,2,3,4,5);  
$aol->print;  
  

Hotti