Doppelte Einträge finden auch Gross- und Kleinschreibung (Allgemeines zu Perl)

[thread]18489[/thread]

Doppelte Einträge finden auch Gross- und Kleinschreibung

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+6 replies
Gast Mat

2013-08-02 13:38
Hallo zusammen

Mit folgendem Code filtere ich doppelte Einträge:
Code (perl): (dl )

1 2 3

next if( grep{$message eq $_}@messages ); push(@messages,$message); shift @messages if 200 < @messages;
Nun habe ich das Problem, das mir nur exakte Einträge gefiltert werden. Sprich, wenn der Satz "Das ist ein Test" genau (!) doppelt vorkommt in den letzten 200 Nachrichten wird er nur einmal angezeigt.
Ich möchte aber sowohl "Das ist ein Test" als auch "Das IST ein TEST" gefiltert werden. Gleich ob Gross- oder Kleinschreibung. Wie ist das zu realisieren?

Danke
Mat
Last edited: 2013-08-02 13:49:36 +0200 (CEST)
- +4 replies
- Linuxer
  
  2013-08-02 13:51
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Du kannst die zu vergleichenden Strings beim Vergleich konvertieren zu GROSS- oder klein-Buchstaben; mit uc() oder lc().
  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!
  - +3 replies
  - Gast Mat
    
    2013-08-02 15:52
    Du meinst so?
    
    Code (perl): (dl )
    
    next if( grep{lc($message) eq lc($_)}@messages );
    
    Last edited: 2013-08-02 15:55:52 +0200 (CEST)
    - +2 replies
    - Linuxer
      
      2013-08-02 16:30
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Ja, das wäre der Grundgedanke.
      
      Wahrscheinlich wäre es sinnvoller, die Elemente in @messages vorher alle zu konvertieren (dann wäre das einmal getan und muss nicht bei jedem Check neu gemacht werden).
      
      Das gezeigte Fragment ist sehr klein, sodass man wenig Ansatzpunkte zu einer zur Aufgabe passende Optimierung hat.
      
      Wenn @messages nur über dieses gezeigte Fragment befüllt wird und die $message generell modifiziert werden darf, dann reicht es, $message einmal vor der Prüfung zu konvertieren. Es wird dann die konvertierte Version in @messages abgelegt, und man braucht @messages danach nicht mehr anzufassen.
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      $message = lc $message; next if( grep { $message eq $_ } @messages ); push(@messages,$message); shift @messages if 200 < @messages;
      
      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!
      - betterworld
        
        2013-08-02 18:49
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        Da muss man aufpassen, nicht in die verfrühte Optimierung reinzukommen.
        
        Wenn ich der Perl-Optimizer wäre, würde ich bei lc($x) cmp lc($y) auch ein strcasecmp machen.
        Lieblingsmodule: IPC::System::Simple, Path::Class
- GwenDragon
  
  2013-08-02 14:02
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Du kannst einen String auch noch mit dem Spezialzeichen \U auf Großschreibung oder mit \L auf Kleinschreibung konvertieren.
  U:\>perl print "\LUIOP"; ^Z uiop U:\>perl print "\Uiop"; ^Z IOP U:\>
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2013-08-02 13:38.