Array in einer Schleife füllen (Allgemeines zu Perl)

[thread]19421[/thread]

Array in einer Schleife füllen

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+3 replies
Kurtosis

2014-12-16 16:48

User since
2014-11-27
7 Artikel
BenutzerIn

Hallo,

ich bin noch relativ neu in der Perl-Programmierung und habe eine Frage bzgl. des Füllens von Arrays innerhalb einer Schleife.
Wie in meinem Eingangssatz schon angedeutet, möchte ich innerhalb einer for-Schleife eine Berechnung durchführen und jedes einzelne Ergebnis in einen zunächst leeren Array füllen. Nach dem Durchlauf der Schleife möchte ich logischerweise mit dem dann gefüllten Array weiterarbeiten.
Mein Problem ist jetzt, dass ich auch schon Google genutzt habe, aber noch keine Lösung für mein Problem gefunden habe. Vielleicht könnt ihr mir ja da weiterhelfen!

--> Nachtrag: Habe gerade den passenden Befehl (push) gefunden, mit dem ich mein Anliegen gelöst habe.
Last edited: 2014-12-16 17:07:04 +0100 (CET)
- GwenDragon
  
  2014-12-16 17:45
  User since
  2005-01-17
  14736 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  my $max = 100; my @results; for my $count (1..$max) { my $result = calculate($count); push @results,$result; } print "Ergebnisse\n"; for my $index (1..$max) { print "Ergebnis ",$index, ": ",$result[$index-1]; }
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- clms
  
  2014-12-16 18:40
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  Wie so oft bei Perl gilt auch hier TIMTOWTDI ("There is more than one way to do it")
  
  Den Ansatz mit perlfunc push hat die GwenDragon schon gezeigt.
  
  Ein anderer Ansatz ist Autovivifikation - d.h. ein Array-Element wird angelegt, wenn Du darauf zugreifst. Das könnte z.B. so aussehen
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my @result; # leeres Array foreach my $i (1..$max) { $result[$i-1] = compute_result($i); # ein Element des Arrays wird überschrieben bzw. das Array erweitert. }
  
  Bitte beachten: Wenn Du stattdessen $result[$i] = ... schreibst, ist die Größe des Arrays int(@result)anschließend $max+1 weil auch das Element $result[0] angelegt wird (als undef). Dafür enthält $result[N] dann auch den Wert compute_result(N).
  
  Oft geht es auch mit perlfunc map oder perlfunc grep, z.B. so
  
  Code (perl): (dl )
  
  my @result = map {compute_result($_)} (1..$max);

View all threads created 2014-12-16 16:48.