perl einzeiler (Allgemeines zu Perl)

[thread]16874[/thread]

perl einzeiler

Tags: perl5 regex Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+13 replies
micneu

2011-11-02 13:57
User since
2008-11-27
13 Artikel
BenutzerIn
Hallo Leute,
ich habe ein Problem.

ich lese daten aus einem ldap aus und möchte die sortieren, bestimmten text entfernen und die email adresse in 3. segmente aufteilen.

die unbearbeitetn daten sehen so aus:
mail: vorname.name@domain.de

mein jetziger einzeiler sieht so aus:
Code: (dl )

ldapsearch -x "(mail=*)" mail | grep "mail.*@" | perl -n -l -F. -e 's/mail:\s//g; {print lc($_) if $_ =~ /.*\..*@/}' | less
mit dem bekomme ich das:
vorname.nachname@domain.de

mein ziel ist das ich ein array bekomme (vorname, nachname, domain)
mit dem arry möchte ich dann weiter arbeiten nur so bekomme ich es noch nicht hin.
übrigens domain sind verschiedene doamins.

hoffe ihr könnt mir helfen.

gruß michael
- +10 replies
- GwenDragon
  
  2011-11-02 14:19
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Wie wäre es mit so einem Beispiel des Schleifenkörperls im Perl.
  Zeigt nur die Domäne.
  
  Code: (dl )
  
  my (@arr) = $_ =~ /(.+)\.(.+)\@(.+)/; if (@arr) { print $arr[-3] }
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +9 replies
  - micneu
    
    2011-11-02 14:22
    
    User since
    2008-11-27
    13 Artikel
    BenutzerIn
    
    danke, nur wo setze ich das bei meinem einzeiler ein?
    - +8 replies
    - GwenDragon
      
      2011-11-02 14:41
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Im Schleifenkörper {} ;)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +7 replies
      - micneu
        
        2011-11-03 11:45
        
        User since
        2008-11-27
        13 Artikel
        BenutzerIn
        
        als danke erstmal, ich habe deinen code in meinen integriert:
        
        Code: (dl )
        
        ldapsearch -x "(mail=*)" mail | grep "mail.*@" | perl -n -l -F. -e 's/mail:\s//g; {my (@arr) = $_ =~ /(.+)\.(.+)\@(.+)/; if (@arr) { print $arr[-3] } if $_ =~ /.*\..*@/}' | less
        
        nur bekomme ich jetzt eine fehler meldung:
        
        syntax error at -e line 1, near "if $_ "
        Execution of -e aborted due to compilation errors.
        
        an welcher position muss dein code schnippsel eingefügt werden?
        
        pq
        
        2011-11-03 12:09
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wenn ein einzeiler zu unübersichtlich wird, kann man ihn auch gerne in mehrere zeilen aufteilen und den code einrücken, dann fällt einem der fehler eher auf =)
        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
        
        GwenDragon
        
        2011-11-03 12:39
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Einen Einzeiler kannst du auf mehrere Zeilen schreiben, in dem du ein \ am Ende jeder Zeile einfügst.
        
        Beispielsweise bedeutet das in der Shell, dass:
        
        Code: (dl )
        
        1 2 3
        
        ls | \ grep "test" | \ sort
        
        dieser Zeile entspricht:
        
        Code: (dl )
        
        ls | grep "test" | sort
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        pq
        
        2011-11-03 12:44
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        man kann im perl-code auch einfach so umbrechen. ich mach das mal am beispielcode:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        ldapsearch -x "(mail=*)" mail | grep "mail.*@" | perl -n -l -F. -e ' s/mail:\s//g; { my (@arr) = $_ =~ /(.+)\.(.+)\@(.+)/; if (@arr) { print $arr[-3] } if $_ =~ /.*\..*@/ } ' | less
        
        und schon sieht man, wo der hund begraben liegt.
        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
        
        micneu
        
        2011-11-03 13:00
        
        User since
        2008-11-27
        13 Artikel
        BenutzerIn
        
        OK! und wo ist der fehler, ich sehe ihn nicht
        
        pq
        
        2011-11-03 13:13
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Code: (dl )
        
        1 2 3
        
        if (@arr) { print $arr[-3] } if $_ =~ /.*\..*@/
        
        Code: (dl )
        
        1 2 3
        
        if ($x) { ... } if $y;
        
        das geht so nicht.
        
        wenn du zwei if-bedingungen hast, musst du sie schon zusammenpacken.
        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
        
        GwenDragon
        
        2011-11-03 12:52
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Warum verwendest du ein Trennzeichen mit dem Parameter -F für das automatische splitten? Du verwendest das Array @F doch nirgendwo!?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- hlubenow
  
  2011-11-02 23:13
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Vielleicht auch was mit split()?
  - GwenDragon
    
    2011-11-03 09:21
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Das wäre dann z. B. sowas als Schnippsel:
    
    Code (perl): (dl )
    
    @arr = split /\@/; unshift @arr,$_ for reverse split /\./,shift @arr;
    
    Aber nicht so praktisch.
    Last edited: 2011-11-03 09:34:50 +0100 (CET)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-11-02 13:57.