[RegEx] Domain check und Hash Table Probleme (gelöst) (Allgemeines zu Perl)

[thread]13923[/thread]

[RegEx] Domain check und Hash Table Probleme [gelöst]

Tags: regex Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+7 replies
burnersk

2009-08-25 13:19
User since
2008-03-25
83 Artikel
BenutzerIn
Hi,

ich habe in einer Hash Table einige Domains gespeichert ($domains), welche ich in einer foreach-Schleife durchlaufe.
Dann sind in "$data" E-Mail-Adressen für die Domains drin.
Wenn "ich eine Domain nicht mag" lösche ich diese aus der Hash Table wieder raus.
Nur gibt es jetzt ein Problem:
Wenn "t-online.de" durchläuft bleibt diese korrekterweise drin. Kommt jetzt z. B. "-online.de" wird auch "t-online.de" aus dem "$data" Hash gelöscht. Obwohl ich ein "@" vor dem Domainnamen habe.
Code (perl): (dl )

1 2 3 4 5 6

if(mag_ich_nicht($domain)) { delete($domains->{$domain}); foreach my $email (keys %$data) { if ($email =~ m/\@$domain$/) { delete($data->{$email}); } } }
Sieht jemand den Fehler?
Last edited: 2009-08-25 13:27:14 +0200 (CEST)
- +6 replies
- pq
  
  2009-08-25 13:32
  User since
  2003-08-04
  12208 Artikel
  Admin1
  kann ich nicht nachvollziehen:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  perl -wle' use Data::Dumper; my $data = { q/foo@t-online.example/ => 1, q/foo@-online.example/ => 1, }; my $domain = "-online.example"; foreach my $email (keys %$data) { if ($email =~ m/\@$domain$/) { delete $data->{$email}; } } print Dumper $data;' $VAR1 = { 'foo@t-online.example' => 1 };
  
  am besten, du postest ein lauffähiges skript, was den fehler reproduziert.
  siehe auch unsere FAQ, wie man code postet. minimales skript, daten, ausgabe, erwartete ausgabe.
  
  genereller tip: schreib statt m/\@$domain$/ besser m/\@\Q$domain\E$/,
  denn wenn punkte in der domain vorkommen oder andere spezielle regex-zeichen, dann werden die von m// interpretiert. ist aber in dem fall oben nicht relevant.
  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
  - +5 replies
  - burnersk
    
    2009-08-25 13:40
    
    User since
    2008-03-25
    83 Artikel
    BenutzerIn
    
    Hi,
    
    2009-08-25T11:32:56 pq
    genereller tip: schreib statt m/\@$domain$/ besser m/\@\Q$domain\E$/
    
    Hier lag der Fehler. Ich hatte nur geschätzt, dass es an "-online.de" lag. Es sind einfach zu viele Domains die so "t-online.de" like sind.
    
    Danke
    - +2 replies
    - topeg
      
      2009-08-25 21:26
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Wenn du nicht auf etwas komplexeres testest, dann ist "rindex" in dem Fall schneller:
      
      Code: (dl )
      
      1 2
      
      if ( length($email)-length($domain)>=0 && rindex($email,"\@$domain")==length($email)-length($domain) ) { delete($data->{$email}); }
      
      Selbst wenn der Code Umfangreicher ist, das starten der RegExpEngine kostet noch mehr Zeit.
      - renee
        
        2009-08-25 21:49
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Oder mit substr (ungetestet):
        
        Code: (dl )
        
        1 2 3
        
        if ( substr( $email, - length($domain) - 1 ) eq '@' . $domain ) { delete $data->{$email}; }
        
        Das sind noch ein paar Aufrufe weniger, kürzer und meiner Meinung nach lesbarer...
        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/
    - Linuxer
      
      2009-08-25 21:59
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Mit split() wäre auch noch eine Lösung möglich:
      
      Code (perl): (dl )
      
      1 2 3
      
      if ( ( split /\@/, $mail, 2 )[1] eq $domain ) { # tu was du willst }
      
      Doku:
      http://perldoc.perl.org/functions/split.html
      http://perldoc.perl.org/perldata.html#Slices
      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!
    - burnersk
      
      2009-08-26 08:46
      
      User since
      2008-03-25
      83 Artikel
      BenutzerIn
      
      danke euch allen!

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