Inhalte eines Arrays tauschen (Allgemeines zu Perl)

[thread]14647[/thread]

Inhalte eines Arrays tauschen

Leser: 26

Articles: hide open all | hide show old branches

+10 replies
Gast User100

2010-02-12 11:56
Hallo zusammen,

Ich möchste gerne die Elemente(Index) in einem Array tauschen. Das Array geht von 1-100.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

my @a=(1..100); my $i=0; my $end=@a; my $tauschA; my $tauschB; print "Gehordnet: $end \n"; foreach(@a){ ($a[$i],$a[$i+1]) = ($a[$i+1],$a[$i]); #print "@a \n"; $i++; print "Anzahl pro Zeile: $i \n"; last if($i==$end) } print "Ganzes Array: @a \n"; print $i;
Leider funktionieren nur die ersten beiden? Aber warum? Die Schleife wird 100 Mal durchlaufen.
- +5 replies
- betterworld
  
  2010-02-12 12:05
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  Du bringst da ein paar Sachen durcheinander, habe ich das Gefuehl.
  
  foreach(@a) iteriert über das Array und setzt $_ jeweils auf das aktuelle Element. Jedoch benutzt Du $_ gar nicht. Du musst so eine Schleife auch nicht manuell mit last if ($i == $end) abbrechen. ~~Ausserdem ist $end = @a nicht der letzte Index, sondern die Laenge des Arrays (der Unterschied ist 1).~~ (Update: Na gut, der Unterschied von 1 ist hier schon ok, da davor ja noch $i inkrementiert wird, sorry. Trotzdem ist das last ueberfluessig.)
  
  Was bedeutet "funktionieren nur die ersten beiden"? Schreib bitte mal hin, was die Ausgabe ist und was Du erwartest. Die Variablen $tauschA und $tauschB verwendest Du auch ueberhaupt nicht, was sollen die?
  
  Wenn Du das Array insgesamt umdrehen moechtest, mach einfach @a = reverse @a;.
  Last edited: 2010-02-12 12:08:06 +0100 (CET)
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +4 replies
  - Gast User100
    
    2010-02-12 12:31
    
    Vielen Dank für die schnelle Antwort.
    Also die Variablen tascheA und tascheA werden in dem Programm nicht verwendet, sry!
    
    Ich meine das Ergebnis ist:
    2 1 3 4 5 6 7 8 9 10 11 12 13 14 15 ...
    
    Er tauscht die ersten beiden (Index 0 und 1), aber danach nichts mehr. Richtig wäre
    2 1 4 3 6 5 etc.
    - bianca
      
      2010-02-12 13:00
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Guest User100
      Richtig wäre
      2 1 4 3 6 5 etc.
      
      Genau das macht mein Vorschlag, siehe drunter.
      10 print "Hallo"
      20 goto 10
    - betterworld
      
      2010-02-12 13:53
      
      User since
      2003-08-21
      2614 Artikel
      ModeratorIn
      
      Ok, das koennte man auch so loesen:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      my @leute = qw(donald daisy mickey minnie clyde bonnie); my @ungerade = grep $_ % 2 == 1, 0..$#leute; my @gerade = grep $_ % 2 == 0, 0..$#leute-1; @leute[@ungerade, @gerade] = @leute[@gerade, @ungerade]; print "Ladies first: @leute";
      
      ~~Klappt so nur dann, wenn das Array eine gerade Zahl von Elementen hat.~~
      
      Edit: typo im text
      Edit: Durch das "-1" klappt es nun auch mit Arrays, die eine ungerade Zahl von Elementen haben (das letzte Element wird dann einfach da gelassen, wo es ist)
      Last edited: 2010-02-21 16:28:20 +0100 (CET)
      Lieblingsmodule: IPC::System::Simple, Path::Class
    - Dubu
      
      2010-02-12 19:20
      
      User since
      2003-08-04
      2145 Artikel
      ModeratorIn + EditorIn
      
      Guest User100
      Ich meine das Ergebnis ist:
      2 1 3 4 5 6 7 8 9 10 11 12 13 14 15 ...
      
      Also bei mir ist das Ergebnis
      
      Code: (dl )
      
      2 3 4 5 6 7 .... 99 100 1
      
      wie zu erwarten. Du tauschst "1" mit "2", dann "1" mit "3" (die "1" ist ja nach dem ersten Schritt an zweiter Stelle) und so weiter, bis die "1" ganz hinten ist. Wenn man sich das Array nach jedem Schritt anschaut, sieht das so aus:
      
      Code: (dl )
      
      1 2 3 4 5
      
      1 2 3 4 5 6 7 .. 99 100 2 1 3 4 5 6 7 .. 99 100 2 3 1 4 5 6 7 .. 99 100 ... 2 3 4 5 6 7 .. 99 100 1
      
      Eigentlich sollte es jetzt zu Ende sein, aber deine Schleife geht noch einen Schritt weiter. Leider ist das 101. Element der Schleife nicht gefüllt, also undef, und das wird jetzt mit dem 100. Element getauscht. Daher sieht das Array nach dem letzten Schritt so aus:
      
      Code: (dl )
      
      2 3 4 5 6 7 .. 99 100 undef 0
      
      Das undef erscheint bei der Ausgabe einfach nur als leerer String (oben sieht man auch, dass zwischen der "100" und der "1" zwei Leerzeichen sind!), aber wenn du in deinem Programm use warnings aktiviert hättest, würdest du eine Warnung bekommen, dass $a[99], also das 100. Element, nicht (mehr) initialisiert ist.
      
      Vorschläge, wie man das erreichen kann, was du wahrscheinlich haben wolltest, gab es ja schon ein paar. :-)
- bianca
  
  2010-02-12 12:09
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Wenn Du nur rumdrehen willst, verwende reverse @a
  
  Ansonsten überspringe nicht nur einen, sonst stellst Du ja jeweils die Reihe wieder her.
  
  Das hier läuft bei mir:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  #!/usr/bin/perl -w use strict; use warnings; my @a=(1..100); print "Geordnet: @a \n"; for (my $i = 0; $i < (scalar @a)-1; $i += 2){ my $temp = $a[$i]; $a[$i] = $a[$i+1]; $a[$i+1] = $temp; } print "Ganzes Array: @a \n";
  
  Edit: Und statt meiner drei zeilen geht natürlich auch diese eine: ($a[$i],$a[$i+1]) = ($a[$i+1],$a[$i]);
  Last edited: 2010-02-12 12:11:24 +0100 (CET)
  10 print "Hallo"
  20 goto 10
- +3 replies
- gelöscht 2010-02-12 14:41
  - +2 replies
  - gelöscht 2010-02-12 15:14
    
    gelöscht 2010-02-12 18:13

View all threads created 2010-02-12 11:56.