Array als Objektvariable - #57504 (Allgemeines zu Perl)

Strat

2005-08-29 19:39

User since
2003-08-04
5246 Artikel
ModeratorIn

Code: (dl )

1
2
3

 return $self->{"testarray"}; # gibt eine arrayreferenz zurueck

my @testarray = $self->testarray(); # weist die arrayreferenz $testarray[0] zu

entweder als liste zurueckgeben:

Code: (dl )

1
2
3

return @{  $self->{"testarray"} };

my @testarray = $self->testarray();

oder gleich mit der referenz arbeiten (braucht weniger ram, ist aber etwas komplizierter):

Code: (dl )

return $self->{"testarray"};

my $testarrayRef = $self->testarray();
push(@$testarrayRef, $var);

# wenn du mit referenz arbeitest, brauchst du das nicht mehr,
# weil du die daten direkt veraenderst, wenn du mit der ref arbeitest
# $self->testarray(@$testarrayRef); 

for my $i (0 .. $#$testarrayRef) {
  warn $i . "=" . $testarrayRef->[$i];
}

oder so aehnlich

nebenbei: du kannst auch anstelle des hashes eine arrayreferenz blessen und so als objekt verwenden:

Code: (dl )

my $self = bless([], $class);

manchmal reicht auch das\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/