einmalige Eintraege in einer Liste filtern (Allgemeines zu Perl)

[thread]13890[/thread]

einmalige Eintraege in einer Liste filtern

Leser: 26

Articles: hide open all | hide show old branches

+10 replies
Gast Gemuese

2009-08-19 13:43
Hallo,
ich habe ein array @list in dem Woerter stehen. Manche Woerter kommen mehrmals vor. Ich will nun gerne alle elemente die mehr als einmal vorkommen komplett aus der Liste entfernen. Dh, das Resultat soll eine Liste lediglich der Elemente sein, die genau einmal vorkommen.

Welches ist dafuer der beste Ansatz? Gibt es dafuer eine fertige Funktion? Geht das besser mit Regular Expressions? Oder muss ich das ueber Schleifen selber implementieren?

Bsp:
Code: (dl )

1 2 3 4 5 6 7

Tomate Kartoffel Kartoffel Tomate rote Paprika Blumenkohl Tomate
sollte danach ergeben:
Code: (dl )

1 2

rote Paprika Blumenkohl
Ich haette nur zu letzterem eine Idee, finde diese aber irgendwie zu umstaendlich fuer Perl: Ich kopiere die Elemente elementweise in eine andere Liste, aber bevor ich sie dort anhaenge suche ich ob sie dort schon drin sind. In diesem Fall wuerde ich delete mit dem gefundenen Index aufrufen.

Aber das erscheint mir irgendwie sehr umstaendlich, hm...
- +2 replies
- renee
  
  2009-08-19 13:53
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  So könnte man es machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  my @list = ( 'Tomate', 'Kartoffel', 'Kartoffel', 'Tomate', 'rote Paprika', 'Blumenkohl', 'Tomate', ); my %seen; $seen{$_}++ for @list; my @single = grep{ $seen{$_} == 1 }keys %seen; print $_,"\n" for @single;
  
  Edit: Das erste "for" kann man noch zum "grep" packen:
  
  Code (perl): (dl )
  
  my @single = grep{ $seen{$_} == 1 }map{ $seen{$_}++; $_ }@list;
  
  Last edited: 2009-08-19 13:56:00 +0200 (CEST)
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - Taulmarill
    
    2009-08-19 14:04
    User since
    2004-02-19
    1750 Artikel
    BenutzerIn
    
    Ich finde den hier schön kompakt:
    
    Code (perl): (dl )
    
    my @seen = keys %{ { map{ $_ => 1 } @list } };
    
    edit: Unsinn, hatte den OP nicht richtig gelesen...
    Last edited: 2009-08-19 14:09:36 +0200 (CEST)
    $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- +7 replies
- sid burn
  
  2009-08-19 17:50
  User since
  2006-03-29
  1520 Artikel
  BenutzerIn
  Du kannst die Funktion "uniq" aus "List::MoreUtils" nutzen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  use List::MoreUtils qw/uniq/; my @list = qw/ Tomate Kartoffel Kartoffel Tomate rote Paprika Blumenkohl Tomate /; my @uniq = uniq @list;
  
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - +6 replies
  - MatthiasW
    
    2009-08-19 18:04
    
    User since
    2008-01-27
    367 Artikel
    BenutzerIn
    
    Das ist aber doch gar nicht was er möchte ;)
    
    MfG
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - +5 replies
    - sid burn
      
      2009-08-19 18:25
      
      User since
      2006-03-29
      1520 Artikel
      BenutzerIn
      
      2009-08-19T16:04:12 MatthiasW
      Das ist aber doch gar nicht was er möchte ;)
      
      Oh stimmt, habe ich wohl zu schnell und unaufmerksam gelesen. Aber um trotzdem eine Lösung mit einem Modul zu zeigen das das schon implementiert was er möchte.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13
      
      use Array::Uniq; my @list = qw/ Tomate Kartoffel Kartoffel Tomate rote Paprika Blumenkohl Tomate /; print join("\n", distinct(sort(@list))), "\n";
      
      Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
      - +4 replies
      - Gast Gemuese
        
        2009-08-20 16:07
        
        Hi,
        
        Danke fuer die Antworten, ich habe es nun ausgetestet:
        
        1. distinct - finde ich eig sehr elegant, weil lib, leider
        habe ich auf meinem System kein
        Array:Uniq zur Verfuegung :(
        
        2. "einzeiler", habe ich folgendermassen uebernommen
        
        Code (perl): (dl )
        
        1 2
        
        my @result = keys %{ { map{ $_ => 1 } @list } }; print $_, "\n" for @result;
        
        leider ist der Output nicht ganz korrect, meine Testsequenz war in etwa folgende:
        
        Code: (dl )
        
        Kirsche Tomate Tomate Kartoffel Paprika Blumenkohl Tomate
        
        und das Ergebnis folgendes:
        
        Code: (dl )
        
        Kirsche Kartoffel Paprika Blumenkohl Tomate
        
        Tomate sollte gar nicht mehr vorkommen
        
        3. die erste Version von Renee "so koennte man es machen" funktioniert und
        braucht keine zusaetzlichen Libraries, danke - ich werde diese nehmen! Super!!!
        
        +3 replies
        
        Gast Gemuese
        
        2009-08-21 11:52
        
        Noch ein Nachtrag, koennte mir einer erklaeren, was in der folgenden
        Zeile, die oben verwendet wurde eigentlich passiert? Oder wie ist es
        moeglich ueber Hashing doppelte bzw. mehrfach vorkommende Elemente
        herauszufiltern? Wenn ich statt '== 1' '>=1' schreibe, bekomme ich
        dann die Funktionalitaet von "unique" (=alle Elemente nur max einmal)?
        
        Code (perl): (dl )
        
        my @single = grep{ $seen{$_} == 1 }keys %seen;
        
        pq
        
        2009-08-21 12:03
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ja, aber dann kannst du das grep auch gleich ganz weglassen.
        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
        
        Linuxer
        
        2009-08-21 12:46
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Ich finde es besser, die Zeile im Kontext zu betrachten:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        my %seen; $seen{$_}++ for @list; my @single = grep{ $seen{$_} == 1 }keys %seen;
        
        Zunächst wird jedes Element aus @list als Schlüssel im Hash %seen eingetragen und der jeweilige Wert um eins erhöht.
        Somit hast Du in %seen nun eine Zuordnung zwischen Elementname und der Anzahl, wie häufig dieser Name in @list vorkommt.
        
        Die letzte Zeile ist von rechts nach links zu lesen:
        - es werden erstmal alle Schlüssel des Hashs %seen ausgelesen
        - dann werden mit grep jene Elemente erfasst, die im Hash mit einem Wert von genau 1 registriert sind
        - die Ergebnisliste des grep wird dann @single zugewiesen
        
        Damit hast Du letzten Endes genau die Elemente aus @list ermittelt, die genau einmal in @list vorkommen.
        
        Wenn Du das "== 1" durch ">= 1" kriegst Du alle Elemente, die mindestens einmal in @list vorkommen (Der Wert von $seen{$_} ist größer oder gleich 1).
        Dieser Vergleich ist dann aber überflüssig, wie pq bereits anmerkte.
        Damit ein Schlüssel im Hash %seen auftauchen kann, muss er wenigstens einmal in @list vorhanden gewesen sein.
        Damit reicht es aus, sich einfach nur die Schlüssel des Hashes ausgeben zu lassen.
        
        HTH,
        Linuxer
        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!

View all threads created 2009-08-19 13:43.