regulärer Ausdruck (Allgemeines zu Perl)

[thread]14782[/thread]

regulärer Ausdruck

Leser: 17

Articles: hide open all | hide show old branches

+7 replies
Gast Anna

2010-03-08 12:17

Hallo ich suche einen regulären Audruck der leerzeichen, newlines und Zahlen aus einer eingabe entfernt, zb,:
1 qikdllvsss tdldttlvlv naiyfkgmwk tafnaedtre mpfhvtkqes kpvqmmcmnn
61 sfnvatlpae kmkilelpfa sgdlsmlvll pdevsdleri ektinfeklt ewtnpntmek

soll: qikdllvssstdldttlvlvnaiyfkgmwktafnaedtrempfhvtkqeskpvqmmcmnnsfnvatlpaekmkilelpfa.. ergeben.

Ich habe es mit:
(my $input = shift @ARGV ) =~ s/[\s*\n0-9]//;

versucht, aber es erscheint nicht die gewünschte Lösung.
Kann mir bitte jemand helfen?
- Linuxer
  
  2010-03-08 12:42
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Hi,
  
  Du könntest den /g Modifier benutzen: s/[bla]//g;
  
  Siehe: http://perldoc.perl.org/perlretut.html#Global-matc...
  
  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!
- +5 replies
- Linuxer
  
  2010-03-08 13:24
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Hi nochmal,
  
  noch ein Nachtrag zu Deiner Zeichenklasse:
  
  \s enthält bereits alle Whitespacezeichen, darunter auch das \n.
  \d steht für die Ziffern 0-9, könnte also als "Abkürzung" verwendet werden.
  Der * hat hier keine Sonderfunktion und wird nur als normales Zeichen gewertet.
  
  Unter Rücksicht auf Deine Definition, was Du entfernen möchtest, könntest Du
  also folgende Klasse verwenden: [\s\d]
  
  Da die Zeichen auch mehrfach hintereinander stehen können, würde ich noch einen
  sogenannten Quantifier einsetzen; in diesem Fall das +, welches für "ein- oder
  mehrfaches Vorkommen" steht: [\s\d]+
  
  Zusammengefasst wäre es also beispielsweise so zu schreiben:
  ( my $input = shift @ARGV ) =~ s/[\s\d]+//g;
  
  Schauen wir mal (auf der Linux Konsole):
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8
  
  $ perl -wle '$var="ein \t langer\nString\nohne Zahlen!1!11"; print "Vorher:\n$var\n"; $var =~ s/[\d\s]+//g; print "Nachher:\n$var\n"' Vorher: ein langer String ohne Zahlen!1!11 Nachher: einlangerStringohneZahlen!!
  
  edit: * aus zeichenklasse entfernt. Danke pq.
  
  Last edited: 2010-03-08 14:11:37 +0100 (CET)
  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!
  - +4 replies
  - pq
    
    2010-03-08 13:32
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2010-03-08T12:24:43 Linuxer
    
    Code: (dl )
    
    [...]$var =~ s/[\d*\s]+//g;[...]
    
    sternchen sollen auch entfernt werden?
    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
    - +3 replies
    - Linuxer
      
      2010-03-08 13:34
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      hab ich aus dem definierenden Text nicht rausgelesen, dass Sternchen raus sollen:
      
      Quote
      ...ich suche einen regulären Audruck der leerzeichen, newlines und Zahlen aus einer eingabe entfernt
      
      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
      - pq
        
        2010-03-08 13:37
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wozu schreibst du dann das sternchen in die regex?
        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
        
        2010-03-08 14:10
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Ah, jetzt erkenn ich erst, worauf Du hinauswillst. Der Regex-Teil ist bei mir erst durch Scrollen sichtbar.
        Der Stern ist wahrscheinlich Relikt der eiligen Tests...
        
        edit: entsprechenden Beitrag editiert.
        Last edited: 2010-03-08 14:12:03 +0100 (CET)
        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 2010-03-08 12:17.