String suchen und danach löschen (Allgemeines zu Perl)

[thread]16861[/thread]

String suchen und danach löschen

Tags: perl5 Similar Threads

Readers: 20

Articles: hide open all | hide show old branches

+9 replies
cohama

2011-10-28 14:41
User since
2011-08-16
102 articles
BenutzerIn
Hallo zusammen,

ich arbeite mich gerade in die Thematik Regular Expressions.
Zur Zeit versuche ich ein Skript zu schreiben, dass nach einem bestimmten String sucht und alle Zeichen bis hinter diesem String löscht.
Am Beispiel:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

2011/06/03 15:00:22.683 ! Label: +======================================================+ 2011/06/03 15:00:22.683 ! Label: | Coverages Values | 2011/06/03 15:00:22.683 ! Label: | | 2011/06/03 15:00:22.683 ! Label: +------------------------------------------------------+ 2011/06/03 15:00:22.684 ! Label: | ID State Offset RSSI | 2011/06/03 15:00:22.684 ! Label: | 0001 active -184 -74 | 2011/06/03 15:00:22.684 ! Label: | 0002 active -376 -85 | 2011/06/03 15:00:22.684 ! Label: | 0005 active -568 -70 | 2011/06/03 15:00:22.684 ! Label: | 0004 active -88 -68 | 2011/06/03 15:00:22.684 ! Label: | 0028 active -472 -70 | 2011/06/03 15:00:22.684 ! Label: | 0023 active -472 -93 | 2011/06/03 15:00:22.684 ! Label: | 0027 active -472 -93 | 2011/06/03 15:00:22.684 ! Label: | 003A active -472 -96 | 2011/06/03 15:00:22.684 ! Label: +------------------------------------------------------+
In diesem Beispiel möchte ich den Zeileninhalt bis hinter Label: löschen.

Hat jemand einen Ansatz für mich?

modedit Editiert von pq: code-tags
Last edited: 2011-10-28 14:47:48 +0200 (CEST)
- +5 replies
- pq
  
  2011-10-28 14:49
  
  User since
  2003-08-04
  12209 articles
  Admin1
  
  ich habe mal code-tags hinzugefügt.
  hoffe, das b-tag hatte keinen spezifischen grund. so sieht es für mich viel lesbarer aus. ohne code-tags gehen leerzeichen verloren, da HTML mehrere leerzeichen hintereinander nur als eins darstellt.
  
  falls du es wieder unleserlich haben willst, kannst das auch gerne wieder ändern...
  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
  - suresh
    
    2011-10-28 15:03
    User since
    2010-10-12
    109 articles
    BenutzerIn
    
    Lässt nur noch das übrig, was hinter dem Label steht:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    #liest Textfile von der Kommandozeile while (<>) { chomp; if (/Label:(.*?)$/) { print "$1\n"; } }
    
    Output sähe dann so aus:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    +======================================================+ | Coverages Values | | | +------------------------------------------------------+ | ID State Offset RSSI | | 0001 active -184 -74 | | 0002 active -376 -85 | | 0005 active -568 -70 | | 0004 active -88 -68 | | 0028 active -472 -70 | | 0023 active -472 -93 | | 0027 active -472 -93 | | 003A active -472 -96 | +------------------------------------------
    - +3 replies
    - GwenDragon
      
      2011-10-28 15:26
      
      User since
      2005-01-17
      14892 articles
      Admin1
      
      Du hättest nicht auf pqs Beitrag antworten sollen sondern auf den drüber. ;)
      
      Aber wenn die Ausgabe so ist wie du angibst, stimmt irgendwas nicht, so wie das formatiert ist.
      //EDIT: Aber wenn ich mir die Ausgangsdaten ansehe, sind dort Tabulatoren und Leerzeichen gemixt, dann verschiebt sich das wohl.
      Vielleicht hilft es, den Text durch Text::Tabulate zu filtern.
      Last edited: 2011-10-28 15:32:24 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - suresh
        
        2011-10-28 15:32
        
        User since
        2010-10-12
        109 articles
        BenutzerIn
        
        Die Baumstruktur hier im Forum überfordert mich manchmal :)
        
        GwenDragon
        
        2011-10-28 15:32
        
        User since
        2005-01-17
        14892 articles
        Admin1
        
        Nach einiger zeit gibt sich das, das hatte ich auch.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- GwenDragon
  
  2011-10-28 20:11
  User since
  2005-01-17
  14892 articles
  Admin1
  Etwas altmodisch mit index und substr:
  
  Code (perl): (dl )
  
  1 2 3
  
  my $line = q{2011/06/03 15:00:22.684 ! Label: | ID State Offset RSSI |}; $line = substr($line,length("Label:")+index($line,"Label:")); print $line;
  
  Ich schreibe das deswegen, weil ein Regex manchmal langsamer sein kann, das ist wichtig bei langen Logdateien. Aber das musst du testen.
  Last edited: 2011-10-28 20:13:22 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - GUIfreund
    
    2011-10-29 13:53
    User since
    2011-08-08
    559 articles
    BenutzerIn
    
    2011-10-28T18:11:15 GwenDragon
    Etwas altmodisch mit index und substr:
    
    Code (perl): (dl )
    
    1 2 3
    
    my $line = q{2011/06/03 15:00:22.684 ! Label: | ID State Offset RSSI |}; $line = substr($line,length("Label:")+index($line,"Label:")); print $line;
    
    Ich schreibe das deswegen, weil ein Regex manchmal langsamer sein kann, das ist wichtig bei langen Logdateien. Aber das musst du testen.
    
    Wenn es um Geschwindigkeit geht: length("Label:") ist konstant. Ich weiß nicht, ob der Perl-Interpreter das selbst herausoptimiert.
    Gruß
    GUIfreund
    - pq
      
      2011-10-29 14:09
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      2011-10-29T11:53:37 GUIfreund
      Wenn es um Geschwindigkeit geht: length("Label:") ist konstant. Ich weiß nicht, ob der Perl-Interpreter das selbst herausoptimiert.
      
      laut B::Deparse tut er das. kann man nachprüfen:
      
      Code: (dl )
      
      1 2 3 4
      
      $ perl -MO=Deparse -e' print length "Foo"' print 3; -e syntax OK
      
      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

View all threads created 2011-10-28 14:41.