Mehrere Einträge aus String auslesen?!? (Allgemeines zu Perl)

[thread]13762[/thread]

Mehrere Einträge aus String auslesen?!?

Leser: 23

Articles: hide open all | hide show old branches

+10 replies
ageissler

2009-07-21 15:31

User since
2009-07-21
4 Artikel
BenutzerIn

Hi,

habe z.B. folgenden String:

"cn=Gruppenname,ou=Mail,ou=b,o=c","cn=abcd,ou=a,ou=b,o=C;cn=efgh,ou=a,ou=b,o=c"

Nun möchte ich die folgenden Ergebnisse erhalten:

abcd
efgh

Ich kann die Einträge zählen und auch den ersten Treffer (abcd) auslesen, mir gelingt es jedoch nicht auch den zweiten (evtl. bis zu hundert weitere)aus zu geben.

Hat jemand einen Tipp für mich in dieser Sache?

THX
André
- +2 replies
- moritz
  
  2009-07-21 15:46
  
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  
  Erst den String in die einzelnen quotes zerlegen (Text::CSV kann sowas), dann die jeweils in key-value-paare Zerlegen, und dann darueber iteratieren, und die Werte herausnehmen die du brauchst.
  
  An welcher Stelle ist dein Problem?
  Perl 6 - Perls Zukunft
  - ageissler
    
    2009-07-21 16:22
    
    User since
    2009-07-21
    4 Artikel
    BenutzerIn
    
    Hi,
    
    danke für die Antwort.
    
    Jetzt habe ich kein Problem mehr, da Du mir ja geschrieben hast, dass ich den String zerlegen muss. :o)
    
    Schade, ich habe gehofft dass es einfacher geht... na ja, dann halt so...
    
    Vielen Dank!
    
    THX
    André
- +7 replies
- neniro
  
  2009-07-21 16:48
  User since
  2008-12-14
  79 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl use strict; use warnings; use Data::Dumper; use Carp; my @txt = ( "cn=Gruppenname,ou=Mail,ou=b,o=c", "cn=abcd,ou=a,ou=b,o=C;cn=efgh,ou=a,ou=b,o=c", ); for my $line (@txt) { my @cn = $line =~ /cn=(\w+),/g; print Dumper \@cn; }
  
  -- yet another amateur perl hacker
  - +6 replies
  - ageissler
    
    2009-07-21 18:21
    User since
    2009-07-21
    4 Artikel
    BenutzerIn
    
    Hi neniro,
    
    danke für die Antwort.
    
    Ich bin nicht sehr bewandert in Perl, aber kann es sein, dass Dein Listing nicht mit importierten Files geht, wo man Zeile für Zeile einliest?
    Wenn ich nämlich das Listing auf meinen Quellcode portieren, bleiben die $VAR leer.
    
    Hier mal das was ich draus gemacht habe (Data::Dumper und Carp befinden sich weiter oben) :
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    while(<D_VERTEILER>){ $in = $_; @txt = chop($in); for my $line (@txt) { my @cn = $line =~ /cn=(\w+),/g; print Dumper \@cn; } }
    
    Kann ja auch ganz falsch sein... wie schon geschrieben, bin kein Perlfreak, deshalb sorry, wenn ich hier was total falsches mache... :o|
    
    THX
    Andre
    - RPerl
      
      2009-07-21 18:27
      
      User since
      2006-11-26
      384 Artikel
      BenutzerIn
      
      2009-07-21T16:21:03 ageissler
      Ich bin nicht sehr bewandert in Perl, aber kann es sein, dass Dein Listing nicht mit importierten Files geht, wo man Zeile für Zeile einliest?
      
      Das geht natuerlich auch mit Dateien, die du eingelesen hast.
    - Linuxer
      
      2009-07-21 18:48
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Hi,
      
      Dein Code tut falsches!
      chop() entfernt das letzte Zeichen und liefert dieses zurück. Diese Rückgabe weist Du dann @txt zu.
      
      Um den Zeilenumbruch einer Zeile zu entfernen, solltest Du chomp() verwenden (und dir die perldoc -f chomp und die perldoc -f chop ansehen).
      
      Du hast vermutlich eine Zeile in $in stehen; die for-Schleife ist hier überflüssig.
      
      Du solltest Dir Gedanken machen, wie der Ablauf sein sollte. Das geht auch ohne Perlkenntnisse. Wenn Du den Ablauf definiert hast, dann kannst Du daran gehen, den Ablauf in Code zu "giessen".
      
      Es hilft jedenfalls nicht, Codebeispiele ahnungslos zusammenzukopieren und hoffen, dass es funktioniert....
      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
    - Linuxer
      
      2009-07-21 22:20
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Hi,
      
      das zeilernweise Auslesen einer Datei scheinst Du ja zu kennen.
      Wenn Du Text::CSV installierst und verwendest, geht das fast analog...
      
      Dein Code korrigiert und aufgeräumt:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      while ( my $in = <D_VERTEILER> ) { chomp $in; my @cn = $in =~ m/cn=(\w+)/g; print Dumper \@cn; }
      
      Aber ich fand moritz' Vorschlag mit Text::CSV gar nicht schlecht. Ich weiss nur noch nicht, wie ich Deine Antwort werten soll ;)
      
      Ich bin mal so frei und poste hier nun ein Schema einer möglichen Lösung:
      
      lade Pragmas: strict, warnings
      lade Module: Text::CSV, Data::Dumper
      übernehme Dateiname aus @ARGV; see: perldoc -f shift
      stirb, wenn Dateiname nicht definiert; see: perldoc -f defined
      oeffne Datei mit lexikalischen Handle: see: perldoc -f open
      open my $handle, '<', $filename or die "open $filename: $!\n";
      erzeuge neues Text::CSV Objekt; see: perldoc Text::CSV
      solange (while) mit getline des Text::CSV-Objekts Zeilen aus dem Dateihandle ermittelt werden können; see: perldoc Text::CSV (getline)
      dereferenziere die Referenz, die von getline() geliefert wurde, um die Felder der Zeile zu erhalten
      Wende neniros Regex auf jedes Feld an und schiebe die Ergebnisse nach @cn
      gebe @cn mit Dumper aus
      Ende der while-Schleife
      Schliesse Dateihandle
      
      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!
      - +2 replies
      - ageissler
        
        2009-07-22 09:36
        
        User since
        2009-07-21
        4 Artikel
        BenutzerIn
        
        Hi Linuxer,
        
        vielen Dank für die Tipps.
        
        Werde diese beachten und auch nochmal genau in die Dokus sehen. ;o)
        Das Gerüst des Codes ist schon fast 10 Jahre alt und ich muss leider immer nur alle 4 Jahre mit Perl was machen. Daher kommt auch mein sehr bescheidenes Halbwissen in dieser coolen Scriptsprache.
        
        Dank an alle, die mir hier geholfen haben.
        Poste es, wenn es geklappt hat.
        
        THX
        André
        
        Linuxer
        
        2009-07-22 10:12
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        2009-07-22T07:36:07 ageissler
        Poste es, wenn es geklappt hat.
        
        Du darfst Dich auch gerne nochmal melden, wenn etwas nicht klappt ;)
        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-07-21 15:31.