Array-Elemente sortieren und letztes Array-Element löschen (gelöst) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]19881[/thread]

Array-Elemente sortieren und letztes Array-Element löschen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+11 replies
ITobiI

2015-11-10 15:15
User since
2015-09-10
70 Artikel
BenutzerIn
Hi, ich hätte da mal 2 Fragen:

1. Wenn ich die Elemente eines Array`s vertauscht also zum Beispiel in folgende Form gebracht hab:
Code: (dl )

@array = ($array[3],$array[2],$array[0],$array[5],$array[1],$array[4]);
bekomm ich mein Array dann mit:
Code: (dl )

@sort_array = sort(@array);
wieder in folgende Form?
Code: (dl )

@sort_array = ($array[0],$array[1],$array[2],$array[3],$array[4],$array[5]);
2.
Kann ich das letzte Element eines Arrays mit:
Code: (dl )

pop(@Array);
löschen?

Danke für eure Hilfe :)
- Raubtier
  
  2015-11-10 15:35
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  2015-11-10T14:15:14 ITobiI
  Hi, ich hätte da mal 2 Fragen:
  
  bekomm ich mein Array dann mit:
  
  Code: (dl )
  
  @sort_array = sort(@array);
  
  wieder in folgende Form?
  
  Nein, denn sort sortiert dir das Array, wie der Name schon sagt - und zwar von klein nach groß.
  
  Probiere es doch einfach mal aus!
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  use 5.14.0; use warnings; my @array = qw(1 4 3 6 2 5); say "Original: @array"; @array = ($array[3],$array[2],$array[0],$array[5],$array[1],$array[4]); say "Nach Vertauschung: @array"; @array = sort @array; say "Nach Sortierung: @array";
  
  2015-11-10T14:15:14 ITobiI
  Kann ich das letzte Element eines Arrays mit:
  
  Code: (dl )
  
  pop(@Array);
  
  löschen?
  
  Ja.
- +9 replies
- clms
  
  2015-11-10 15:50
  
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  
  Frage 2: Ja.
  
  Frage 1:
  Spitzfindigkeit: @array hat, wenn man es als Liste ausgibt immer die Reihenfolge $array[0],$array[1],$array[2],$array[3],$array[4],$array[5] auch nach Deiner ersten Zuweisung, nur dass jetzt $array[0] den Wert hat, den vorher $array[3] hatte.
  
  Nachdem Du die Elemente im Array einmal vertauscht hast, ist die Information, wie die Reihenfolge der Elemente im Array vor dem Vertauschen war, verloren (sofern sie nicht außerhalb des Arrays noch vorliegt).
  
  sort(@array) sortiert die Elemente im Array nach ihrem Wert. Falls sie vor dem Vertauschen auch so sortiert waren (oder zufällig so vorlagen), hast du wieder die gleiche Reihenfolge. Falls nicht, dann nicht.
  - +8 replies
  - ITobiI
    
    2015-11-10 17:05
    User since
    2015-09-10
    70 Artikel
    BenutzerIn
    
    Danke für die hilfreiche Antworten zu 2. :)
    Nochmal zu 1. Mir gehts um folgendes: ich sende eine bestimmte Anzahl von Datenpaketen vom Client zum Server und diese Datenpakete können in einer anderen Reihenfolge ankommen. Ich habe die Datenpakete bereits mit einem Index versehen um Sie identifizieren zu können jetzt hab ich nur das Problem Sie wieder in die richtige Reihenfolge zu kriegen und ich habe jeweils die Inhalte der einzelnen Datenpakete in einem Array-Element abgelegt und den Index für das jeweilige Array-Element verwendet. In der Form:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    #Empfang der Daten $socket->recv($message,1025) or warn $!; #Extrahiere Datenpaket aus gesendeten Daten $data = ''; $data = substr($message,0,1024); #Extrahiere Index aus gesendeten Daten $a = ''; $a = substr($message,1024,1); #Lege empfangene Daten in Array-Element ab $daten[$a] = ''; $daten[$a] = $data;
    
    Last edited: 2015-11-10 17:20:25 +0100 (CET)
    - +6 replies
    - Gast janus
      
      2015-11-10 17:34
      
      In einem Socket (Handle) bewegst Du Dich besser mit seek() und read(). substr() ist da ebenfalls unangebracht und viel zu umständlich. Und wenn Du ein Array zur Sequenz serialisierst, mach das so, dass die Reihenfolge bleibt. Dann kommt das auch am anderen Ende des sockets in dergleichen Reihenfolge an.
      Last edited: 2015-11-10 18:27:42 +0100 (CET)
      - +3 replies
      - Linuxer
        
        2015-11-10 18:29
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        $message ist hier doch kein Socket mehr?
        
        Das sollte doch der Puffer-Skalar sein, in den die Daten mittels read() oder recv() reinkopiert wurden.
        Da dürfte mit seek() und read() nicht mehr viel zu holen sein.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        Gast janus
        
        2015-11-10 19:24
        
        2015-11-10T17:29:33 Linuxer
        $message ist hier doch kein Socket mehr?
        
        Das sollte doch der Puffer-Skalar sein, in den die Daten mittels read() oder recv() reinkopiert wurden.
        Da dürfte mit seek() und read() nicht mehr viel zu holen sein.
        
        Eben. Anstatt mit substr() am Puffer rumzuschnippeln, kannste doch gleich mit read() die gewünscte Länge aus dem socket lesen.
        Last edited: 2015-11-10 19:29:36 +0100 (CET)
        
        Linuxer
        
        2015-11-10 21:00
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Ok, in die Richtung habe ich vorhin nicht gedacht. Stimmt.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +2 replies
      - murphy
        
        2015-11-10 19:34
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Guest janus
        In einem Socket (Handle) bewegst Du Dich besser mit seek() und read().
        [...]
        
        Vorsicht: seek wird im Allgemeinen bei Sockets überhaupt nicht funktionieren. read mit einer passenden Größe zu versorgen ist sicher sinnvoll, wenn das möglich ist, aber es gibt Situationen wo man die Größe eben nicht von vornherein kennt und mehrmaliges Lesen auch nicht möglich ist, zum Beispiel bei Datagramsockets, die "angelesene" Pakete verwerfen.
        When C++ is your hammer, every problem looks like your thumb.
        
        Gast janus
        
        2015-11-11 07:40
        
        Serialisieren/Deserialisieen ist doch ganz einfach:
        
        1. Lese 4 Byte, das gibt die Länge
        2. Lese die Länge
        
        Für ein Array wäre das der Schleifenkörper (solange machen bis nix mehr kommt). Nun, aus einem Array einen Hash zu machen, ist ja auch kein Thema. Und die Kür besteht darin, beliebige Datenstrukturen in ein Array zu verwandeln. Z.B. ergeben jeweils 3 Werte einen Hash of Hashes ( $dtata->{$entity}{$attribute} = $value ), damit kannste schon ganze Datenbanken übertragen.
        
        Serialisieren: Mit diesem Algorithmus die Daten rein ins HANDLE oder Socket. Das ist so einfach und plattformunabhängig, das macht XML oder JSON absolut überflüssig und hat nichteinmal was mit Perl zu tun.
        
        Aber wir Perler können das besonders gut: In HANDLE Lesen und schreiben ;)
        Last edited: 2015-11-11 08:37:45 +0100 (CET)
    - clms
      
      2015-11-11 11:12
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      2015-11-10T16:05:19 ITobiI
      ich sende eine bestimmte Anzahl von Datenpaketen vom Client zum Server und diese Datenpakete können in einer anderen Reihenfolge ankommen. Ich habe die Datenpakete bereits mit einem Index versehen um Sie identifizieren zu können jetzt hab ich nur das Problem Sie wieder in die richtige Reihenfolge zu kriegen und ich habe jeweils die Inhalte der einzelnen Datenpakete in einem Array-Element abgelegt und den Index für das jeweilige Array-Element verwendet.
      
      Mal abgesehen von dem Socket-Problem, dass die anderen diskutieren -
      wenn Du aus Deiner Message Index und Nutzdaten extrahiert hast und die Nutzdaten in einem Array unter dem Index ablegst, hast Du die Nutzdaten doch in der gewünschten Reihenfolge. Was musst Du sie dann noch sortieren? Das einzige was sein könnte, ist dass die Message für einen bestimmten Index zwischendurch noch fehlt und der Arraywert für diesen Index deshalb undef ist.
      
      Wenn Du deine Daten irgendwann in eine andere Reihenfolge bringst, sie danach aber wieder nach dem Index sortieren möchtest, empfiehlt sich, die Message in eine komplexere Datenstruktur zu verwandeln, die Felder für Index und Nutzdaten (und evtl. noch mehr) hat. Diese komplexe Datenstruktur kann ein Objekt, ein anonymer Hash mit festgelegten Keys oder ein anonymes Array sein. Beispiele:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      # HASH my $msg = {index => $a, data => $data}; # datenstruktur anlegen push @array, $msg; # in liste speichern my $index = $msg->{index}; my $data = $msg->{data}; # Liste von Messages nach Index sortieren my @sorted = sort {$a->{index} <=> $b->{index}} @array;
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      # ARRAY - 0: index, 1: data my $msg = [$a, $data]; # datenstruktur anlegen push @array, $msg; # in liste speichern my $index = $msg->[0]; my $data = $msg->[1]; # Liste von Messages nach Index sortieren my @sorted = sort {$a->[0] <=> $b->[0]} @array;

View all threads created 2015-11-10 15:15.