>Mehrdimensionales Array<: Entfernen von doppelten Einträgen (Allgemeines zu Perl)

[thread]14773[/thread]

>Mehrdimensionales Array<: Entfernen von doppelten Einträgen

Leser: 26

Articles: hide open all | hide show old branches

+8 replies
Gast jack

2010-03-06 21:32
Hallo!

Ich möchte doppelte/mehrfach-vorhandene Einträge aus meinem mehrdimensionalen Array löschen.

Das Array schaut so aus:

x1,y1,z1
x1,y2,z1
x1,y2,z1
x2,y1,z1
x2,y2,z1
x2,y2,z1

Als Resultat sollte rauskommen:

x1,y1,z1
x1,y2,z1
x2,y1,z1
x2,y2,z1

Ich habe nun schon mehrere Lösungen probiert:
Code (perl): (dl )

1 2

my %seen = (); my @unique = grep { ! $seen{ $_ }++ } @array;
... liefert leider das original-Array... :(

Auch hätte ich sämtliche Lösungsansätze von http://www.hidemail.de/blog/doppelte-eintraege-arr... probiert.

Was mach' ich falsch?

Danke für eure Hilfe!
- +7 replies
- betterworld
  
  2010-03-06 22:11
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  Guest jack
  Hallo!
  
  Das Array schaut so aus:
  
  x1,y1,z1
  x1,y2,z1
  x1,y2,z1
  x2,y1,z1
  x2,y2,z1
  x2,y2,z1
  
  Das sieht nicht nach Perl aus. Wie hast Du das Array in Perl gespeichert?
  
  Üblicherweise werden mehrdimensionale Arrays in Perl als Arrays von Arrayreferenzen gespeichert. Arrayreferenzen können unterschiedlich sein, selbst wenn die referenzierten Arrays denselben Inhalt haben. Daher wird in Deinem %seen-Hash für jede Array-Referenz ein neuer Eintrag erstellt.
  
  Hast Du den Code mit dem %seen-Hash verstanden oder nur abgeschrieben? ;) Wenn ersteres der Fall ist, kannst Du Dir ja mal überlegen, wie Du darin den Inhalt der Arrays statt die Referenzen benutzen kannst. Wenn zweiteres der Fall ist, solltest Du nachfragen, was Du nicht verstanden hast, das ist besser, als wenn wir Dir eine Komplettlösung zusammenhacken und Dir nur Code zeigen.
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +6 replies
  - Gast Jack
    
    2010-03-06 22:24
    Hallo betterworld,
    
    die Darstellung meines Arrays war schematisch gemeint.
    Ich fülle mein Array mit push()
    
    Code (perl): (dl )
    
    1 2
    
    my @daten; push (@daten, [$xWert, $yWert, $zWert]);
    
    Somit habe ich ein 3D-Array, deren Daten sich teilweise (wie oben dargestellt) wiederholen. Die Wiederholungen sollen entfernt werden.
    
    Und ja, du hast recht: Den Trick mit %seen habe ich einfach abgeschrieben ;-)
    
    Ich habe mich in der Zwischenzeit an einer anderen Lösung versucht:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    my @unique; my %seen = (); foreach my $elem (@daten) { next if @$seen {$elem}++; push @unique, $elem; }
    
    Auch das führt leider nicht zum Erfolg? Ich bitte um Hinweise, woran's liegen könnte...
    
    Danke!
    - +5 replies
    - pq
      
      2010-03-06 22:31
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      das problem ist, dass $elem keinen string "x1,y1,z1" enthält, sondern die speicheradresse der array-referenz, und die ist bei jedem element anders, wie betterworld schon schrieb.
      lass dir doch einfach mal $elem ausgeben in der schleife.
      
      im hash %seen willst du dir ja merken, welche arrays schon da waren, dafür musst du dir eine string-räpresentation überlegen, die das array eindeutig wiedergibt. das könnte z.b. sein:
      my $key = join "\0", @$elem;
      (wenn keine nullbytes in den einzelnen werten vorkommen).
      
      dann nimmst du statt $elem als hashkey $key.
      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
      - Gast jack
        
        2010-03-06 23:22
        
        Hi pq,
        
        danke für deinen Beitrag und den Lösungsansatz, ich bekomms aber trotzdem nicht hin :(
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        foreach my $elem (@daten) { $key = join "\0", @$elem; next if $seen {$key}++; push @unique, $key; print "key: $key\n"; }
        
        Resultat ist, dass nun gar nichts mehr angezeigt wird. Ich bitte euch um Unterstützung. Danke.
        
        pq
        
        2010-03-06 23:44
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        na in @unique darfst du $key natürlich nicht pushen, sondern da willst du ja die arrayref drinhaben.
        mir scheint, du hast den ansatz immer noch nicht verstanden.
        du willst in der endgültigen liste wieder eine liste von arrayrefs. der $key zum aussortieren von duplikaten wird aber nur für %seen benutzt.
        
        das hier:
        my @unique = grep { my $key = join "\0", @$_; ! $seen{ $key }++ } @a;
        funktioniert bei mir wunderbar.
        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
        
        +2 replies
        
        betterworld
        
        2010-03-07 00:30
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        Bitte versuch den Algorithmus, den Du verwendest, zu verstehen. Das ist essentiell dafür, dass Du ihn angepassen kannst für Dein Problem.
        
        Hier ist eine Erklärung zu dem Algorithmus, den Du benutzt: http://www.perl-community.de/bat/poard/message/124...
        (Der Code da ist ein kleines bisschen anders, aber im Prinzip funktioniert es genau so wie Deiner.) Wenn Du noch Fragen dazu hast, kannst Du sie gerne stellen. Du wirst sehen, dass es hinterher ganz einfach geht, Dein Problem zu lösen.
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        Gast jack
        
        2010-03-14 21:37
        
        2010-03-06T23:30:39 betterworld
        Hier ist eine Erklärung zu dem Algorithmus, den Du benutzt: http://www.perl-community.de/bat/poard/message/124...
        
        Vielen Dank für den Link!

View all threads created 2010-03-06 21:32.