array nach beliebigen element sortieren (solved) (Allgemeines zu Perl)

[thread]17353[/thread]

array nach beliebigen element sortieren [solved]

Tags: perl5 Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+8 replies
Alexander

2012-04-23 18:24

User since
2012-02-21
25 articles
BenutzerIn

Status: Anfänger

Ich habe immer zwei Werte pro Loop in einen array geschrieben, da die Ausgabe so erfolgen soll. Könnte auch die Reihenfolge beim Befüllen des arrays ändern, müsste jedoch nach dem Sortieren die Reihenfolge wieder umstellen, so wie es die Ausgabe es verlangt

Ich soll bei diesem array nach dem 2. Element sortieren wobei in dem array einmal zwei Zahlen als Daten enthalten und einmal Wörter und Zahlen sind

Meine Lösung derzeit ist die Elemente in einem anderen array (in umgedrehter Reihenfolge) zu schreiben, danach sortieren und dann wiederrum in einen anderen array in der richtigen Reihenfolge zu schreiben. Da der Befehl sort immer nur das erste Zeichen nimmt.

Hoffe, dass jemand eine einfachere Löung für mich hat

@array1 = (Zahl:ZahlZahl:ZahlZahl:Zahl) usw
@array2 = (Wort:ZahlWort:ZahlWort:Zahl) usw

Danke

Alexander
- +7 replies
- pq
  
  2012-04-23 18:54
  
  User since
  2003-08-04
  12209 articles
  Admin1
  
  ich weiss nicht, wie es den anderen geht, aber ich habe noch nicht so ganz verstanden, wie dein input aussieht und was du als ergebnis haben willst.
  kannst du ein kurzes beispiel geben?
  mit sort() kannst du so ziemlich alles sortieren, da du in der sort-routine selbst auch code ausführen kannst. (wenn der code zu viel zeit beansprucht, kann man das ganze dann später in eine schwartzsche transformation umschreiben)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +6 replies
  - topeg
    
    2012-04-23 19:13
    User since
    2006-07-10
    2611 articles
    BenutzerIn
    
    Soweit ich es verstanden habe, packt er ein Wertepaare hintereinander in ein Array.
    
    ungefähr so:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    for(0..5) { push(@array1,"Wert1","Wert2"); }
    
    Nun will er nach einem wert aus den Wertepaaren sortieren. Was natürlich scheitert.
    
    Mein Vorschlag wäre eine AoA zu erzeugen:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    for(0..5) { push(@array1,["Wert1","Wert2"]); }
    
    und das zu sortieren:
    
    Code (perl): (dl )
    
    my @array1_sort=sort{$a->[0] cmp $b->[0]}@array1;
    - pq
      
      2012-04-23 19:18
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      achso, dann habe ich mich davon verwirren lassen, dass er @array1, @array2 schrieb und "Wort:ZahlWort:ZahlWort:Zahl", was für mich nicht nach einem array mit wertepaaren aussieht, sondern ein string. zuerst kommt ein wert, dann ein doppelpunkt, dann eine zahl und ein wort ohne trennung usw.
      mir ist gar nicht klar, was da für elemente drin sein sollen.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +4 replies
    - Alexander
      
      2012-04-23 19:52
      
      User since
      2012-02-21
      25 articles
      BenutzerIn
      
      Topeg hat recht, leider funktioniert seine Methode nicht
      
      so sieht mein code aus, wobei GET usw das Wort bilden und die Scalare eine Zahl beinhalten
      
      Code: (dl )
      
      1 2 3 4 5 6
      
      push (@request_unsorted,"GET: $get"); push (@request_unsorted,"POST: $post"); push (@request_unsorted,"HEAD: $head"); push (@request_unsorted,"OPTIONS: $option"); print FHR join("\n",@request_unsorted,"\n");
      
      der Ausdruck ist dann so:
      GET: 994
      POST: 0
      HEAD: 5
      OPTIONS: 1
      
      Ich würde gerne durch sortieren HEAD an zweite Stelle kriegen und dann OPTIONS usw.
      
      Wenn ich das von Topeg probiere kommt folgendes raus:
      
      Code: (dl )
      
      1 2 3 4 5 6
      
      push (@request_unsorted,["GET:","$get"]); push (@request_unsorted,["POST:","$post"]); push (@request_unsorted,["HEAD:","$head"]); push (@request_unsorted,["OPTIONS:","$option"]); my @request_sorted = sort{$a->[0] cmp $b->[0]}@request_unsorted; print FHR join("\n",@request_sorted,"\n");
      
      Und das Ergebnis sieht dann so aus:
      ARRAY(0x20db18c)
      ARRAY(0x20db1fc)
      ARRAY(0x20db23c)
      ARRAY(0x20db1bc)
      
      Das zweite array sieht so aus
      
      Code: (dl )
      
      push (@ip_und_counter, "$_: $counter_gesammt");
      
      wobei hier $_ eine Zahl darstellt und $counter_gesammt");
      
      128.101.35.183: 13
      129.133.198.105: 24
      129.42.184.35: 2
      130.191.179.33: 3
      130.208.136.10: 1
      143.183.121.3: 3
      159.134.136.104: 16
      165.21.154.103: 1
      165.21.154.93: 1
      
      Hier möchte ich gerne die ip nach den Treffern absteigend sortieren
      - +2 replies
      - topeg
        
        2012-04-23 20:01
        
        User since
        2006-07-10
        2611 articles
        BenutzerIn
        
        Es ist ein Array of Arrays. Da muss man die Ausgabe anpassen:
        
        Code (perl): (dl )
        
        print FHR join("\n",map{join('',@$_)}@request_sorted,"\n");
        
        oder:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        for my $val (@request_sorted) { print FHR $val->[0].$val->[1]."\n"; }
        
        Informiere dich am besten über Referenzen und wie man diese nutzt.
        
        Alexander
        
        2012-04-23 20:19
        
        User since
        2012-02-21
        25 articles
        BenutzerIn
        
        Vielen Dank für die Hilfe
        
        Zu meiner Entschuldigung muss ich sagen; ich bin noch Anfänger, aber ihr habt mir ganz toll geholfen
        
        Danke
        
        Alexander
      - pq
        
        2012-04-23 20:02
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        naja, bei der ausgabe musst du die arrayreferenzen natürlich wieder auseinandernehmen. "funktionieren" tut das schon.
        
        Code (perl): (dl )
        
        1 2 3
        
        for (@request_sorted) { print "$_->[0]$_->[1]\n"; }
        
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2012-04-23 18:24.