Regulärer Ausdruck (Allgemeines zu Perl)

[thread]16675[/thread]

Regulärer Ausdruck

Tags: perl5 regex Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+12 replies
Gast Kruemel

2011-08-31 09:55

Hallo zusammen,
leider habe ich keinerlei Erfahrung mit Regexp in Perl.

Meine Datei beinhaltet folgende Einträge die gelöscht werden sollen

/begin blubber skdjflkdsjf
sdlkfjdsk
lksjflksdj
aajjllja
/end blubber

Keywords sind also /begin blubber und /end blubber. Die Keywords plus die Wörter dazwischen sollen alle gelöscht werden, alle Zeichen/Zahlen sind dazwischen erlauft.
Wie sieht denn dann die Zeile aus, wenn in $text das File als in einem String eingelesen wurde.
$text =~ s/?????//

Vielen Dank für eure Hilfe!
Last edited: 2011-08-31 10:52:04 +0200 (CEST)
- +5 replies
- payx
  
  2011-08-31 11:02
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Kruemel,
  
  das löst man am elegantesten mit dem Flip-Flop-Operator, vgl.
  
  http://reneeb-perlblog.blogspot.com/2010/01/der-fl...
  
  Das dortige Beispielscript an Deinen Fall angepasst:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
  
  #!/usr/bin/perl use strict; use warnings; my $bool = 0; while( my $line = <DATA> ){ if( $line =~ /^\/begin blubber/ ){ $bool = 1; } print $line unless $bool; if( $line =~ /^\/end blubber/ ){ $bool = 0; } } __DATA__ Text am Anfang /begin blubber skdjflkdsjf sdlkfjdsk lksjflksdj aajjllja /end blubber Text am Ende
  
  Du schreibst, dass die Einträge gelöscht werden sollen. Vermutlich wirst Du so vorgehen, dass Du mit zwei Filehandles arbeitest: Das eine liest die Quelldatei ein, das andere schreibt alles, was nicht gelöscht werden soll, in eine Zieldatei. Wenn Du eine vorhandene Datei editieren willst, brauchst Du so etwas wie File::Tasks::Edit (habe ich noch nicht ausprobiert).
  
  HTH
  Grüße
  payx
  - +2 replies
  - pq
    
    2011-08-31 11:32
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    in deinem beispiel nutzt du den flip-flop-operator gar nicht =)
    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
    - payx
      
      2011-08-31 11:39
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Stimmt, sorry. Das ist das Beispielscript aus dem genannten Blog-Eintrag, mit dem gezeigt wird, wie es umständlich auch ohne Flip-Flop-Operator geht.
      
      Richtig wäre gewesen:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
      
      #!/usr/bin/perl use strict; use warnings; while( my $line = <DATA> ){ print $line unless $line =~ /^\/begin blubber/ .. $line =~ /^\/end blubber/; } __DATA__ Text am Anfang /begin blubber skdjflkdsjf sdlkfjdsk lksjflksdj aajjllja /end blubber Text am Ende
  - +2 replies
  - Gast Kruemel
    
    2011-08-31 12:09
    
    Schon mal vielen Dank! Das habe ich soweit verstanden.
    
    Ich lese meine Datei ein mit:
    $/ = undef;
    
    $text = <DATEI>
    und habe eine Kopie vorher abgelegt.
    
    Wenn ich es über den $text =~s/// Befehl machen will, wie sieht der Befehl aus? Interessehalber?
    
    Viele Grüße
    Last edited: 2011-08-31 12:23:28 +0200 (CEST)
    - GwenDragon
      
      2011-08-31 12:31
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Quote
      Wenn ich es über den $text =~s/// Befehl machen will, wie sieht der Befehl aus? Interessehalber?
      Siehe msg #151974
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2011-08-31 11:14
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Ein Fall für den Flip-Flop-Operator in Perl.
  
  Beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
  
  #!/usr/bin/perl while (<DATA>) { # Daten einlesen if (/\/begin / .. /\/end /) { next; # Daten überspringen } print; # sonst Daten ausgeben } __DATA__ /begin blubber skdjflkdsjf sdlkfjdsk lksjflksdj aajjllja /end blubber Zorg Zack Murks Foo Bar Wall Tim Towdy /begin meaaahhh sdlkfjdsk lksjflksdj aajjllja /end meaaahhh Muh Wuff Miau
  
  Beispiel im Perl-Magazin:
  http://www.perl-magazin.de/download.cgi?issue=12
  Last edited: 2011-08-31 11:17:05 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +5 replies
- payx
  
  2011-08-31 11:31
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Nochmals hallo Kruemel,
  
  da Du schreibst:
  Guest Kruemel
  Wie sieht denn dann die Zeile aus, wenn in $text das File als in einem String eingelesen wurde.
  
  In der Tat lässt sich die Aufgabe auch so lösen, wenn die Quelldatei zuverlässig so klein ist, dass sie problemlos komplett in den Arbeitsspeicher geladen werden kann (slurp):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  
  #!/usr/bin/perl use strict; use warnings; my $text = do { local $/; <DATA> }; $text =~ s/\/begin blubber.*\/end blubber\n//s; print $text; __DATA__ Text am Anfang /begin blubber skdjflkdsjf sdlkfjdsk lksjflksdj aajjllja /end blubber Text am Ende
  
  Zwei Tricks dabei: Beim Einlesen wird im do-Block der Zeilentrenner $/ vorübergehend aufgehoben, und bei der Regular Expression wird mit dem Modifier /s der ganze Text als eine Zeile behandelt.
  
  HTH
  Grüße
  payx
  - Gast Kruemel
    
    2011-08-31 12:17
    
    Hallo zusammen,
    vielen Dank für eure Lösungen, ich habs hinbekommen :o)
    
    Bis bald, wird bestimmt nicht meine letzte Frage gewesen sein.
    
    Grüße
    Carmen
    Last edited: 2011-08-31 12:23:29 +0200 (CEST)
  - +3 replies
  - clms
    
    2011-08-31 23:12
    User since
    2010-08-29
    373 Artikel
    BenutzerIn
    
    2011-08-31T09:31:04 payx
    
    Code (perl): (dl )
    
    $text =~ s/\/begin blubber.*\/end blubber\n//s;
    
    Das würde ich sicherheitshalber so schreiben
    
    Code (perl): (dl )
    
    $text =~ s/\/begin blubber.*?\/end blubber\b//sg;
    
    damit das .* nicht "greedy" ist.
    
    So wie ich Krümel verstanden habe, können mehrere /begin blubber .. /end blubber Blöcke vorkommen.
    Dein Code würde alles vom Beginn des ersten Blocks bis zum Ende des letzten löschen.
    
    Zudem habe ich den Zeilenumbruch \n hinter dem abschließenden blubber durch ein Wortende/anfang \b ersetzt. Das erscheint mir ebenfalls robuster.
    Wenn hinter dem abschließenden blubber immer direkt ein Zeilenumbruch kommen muss, der auch entfernt werden soll, ist \n natürlich richtig. Eventuell kommt auch \s*\n in Frage. Dann dürfen zwischen "blubber" und dem Zeilenende noch Leerzeichen vorkommen.
    - +2 replies
    - payx
      
      2011-09-01 09:22
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo clms,
      
      danke für die Hinweise!
      
      Vor allem die minimal match or non-greedy quantifiers mit dem zusätzlichen ? hatte ich nicht recht präsent.
      
      Da Kruemel geschrieben hatte, sie
      Quote
      habe ich keinerlei Erfahrung mit Regexp in Perl
      , wollte ich das Beispiel einfach halten und habe nicht versucht, es so robust zu machen, dass es für eine produktive Anwendung übernommen werden könnte. (Die Problemstellung hört sich nach einer Übungsaufgabe an.). Aber wenn mehrere blubber-Blöcke vorkommen können, dann ist meine Lösung natürlich wirklich unbrauchbar.
      
      Wo wir nun schon dabei sind:
      
      Bei Deiner Lösung bleibt jetzt (bei meinem Beispieltext <DATA> eine Leerzeile zurück. Das ist vermutlich nicht gewollt.
      
      So wird die ganze Zeile gelöscht, wenn sie nur /end blubber, Leerzeichen und einen Zeilenumbruch enthält, wenn aber nach /end blubber mindestens ein Leerzeichen und dann weiterer Text steht, bleibt die Zeile mit diesem Text stehen:
      
      Code (perl): (dl )
      
      $text =~ s/\/begin blubber.*?\/end blubber\s*\n?//sg;
      
      (Also noch ein ?, ansonsten Deine Lösung.)
      
      Grüße
      payx
      - Gast Kruemel
        
        2011-09-01 15:09
        
        Vielen Dank!
        Last edited: 2011-09-01 15:19:53 +0200 (CEST)

View all threads created 2011-08-31 09:55.