Regular expresssions (Allgemeines zu Perl)

[thread]16868[/thread]

Regular expresssions

Tags: perl5 regex Similar Threads

Readers: 24

Articles: hide open all | hide show old branches

+9 replies
cohama

2011-11-01 08:36

User since
2011-08-16
102 articles
BenutzerIn

Hallo zusammen,

ich hoffe mir kann jemand hier helfen. Ich suche einen Regular expressions Ausdruck, der in einer Textzeile nach einem String sucht. Wenn dieser String gefunden wurde, soll die gesamte Zeile gelöscht werden.

Vielen Dank

modedit Editiert von pq: tag "Regular expressions" mit "regex" ersetzt
Last edited: 2011-11-01 12:15:53 +0100 (CET)
- moritz
  
  2011-11-01 08:58
  User since
  2007-05-11
  923 articles
  HausmeisterIn
  Das übliche vorgehen für so etwas ist, den String Zeilenweise durchzulaufen, und nur die Zeilen weiterzuverwenden, die einen interessieren.
  
  Z.B.
  
  Code (perl): (dl )
  
  1 2 3
  
  while (<$file_handle>) { print unless /suchwort/; }
  
  Oder
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my $string = join "\n", grep !/suchwort/, split /\n/, $string;
  
  Perl 6 - Perls Zukunft
- +6 replies
- jan
  
  2011-11-01 08:59
  User since
  2003-08-04
  2536 articles
  ModeratorIn
  Code: (dl )
  
  1 2 3 4
  
  my $string = "hier steht etwas\nhier auch\nsteht hier nichts?\naber hier"; print $string . "\n\n"; $string =~ s/[^\r\n]*steht[^\r\n]*\r?\n//gs; print $string;
  
  gibt aus:
  
  Quote
  hier steht etwas
  hier auch
  steht hier nichts?
  aber hier
  
  hier auch
  aber hier
  
  meintest Du sowas?
  - +5 replies
  - cohama
    
    2011-11-01 09:38
    User since
    2011-08-16
    102 articles
    BenutzerIn
    
    Hallo zusammen,
    
    vielen Dank für den Tipp, funktioniert super.
    Eventuell hat jemand noch einen Tipp, wie die folgende Zeile aus einander neben kann.
    
    Code: (dl )
    
    | 0001 active -184 -74 |
    
    Aus dieser Zeile möchte ich die ersten und vier Zeichen auslesen.
    
    Code: (dl )
    
    1 2
    
    $vaulue1=m/"erstes Zeichen"//; $value4=m/"viertes Zeichen"//;
    
    modedit Editiert von pq: code-tags statt b-tags! leerzeichen gehen sonst verloren!
    Last edited: 2011-11-01 12:17:31 +0100 (CET)
    - +4 replies
    - GUIfreund
      
      2011-11-01 11:01
      
      User since
      2011-08-08
      559 articles
      BenutzerIn
      
      2011-11-01T08:38:28 cohama
      Eventuell hat jemand noch einen Tipp, wie die folgende Zeile aus einander neben kann.
      
      Code: (dl )
      
      [b]| 0001 active -184 -74 |[/b]
      
      Aus dieser Zeile möchte ich die ersten und vier Zeichen auslesen.
      
      Code: (dl )
      
      1 2
      
      $vaulue1=m/"erstes Zeichen"//; $value4=m/"viertes Zeichen"//;
      
      Wozu hast du zwei Schrägstriche am Ende deiner Kodezeilen?
      
      Setze deinen Beispielstring in einen Kodebock (wie in dieser Antwort), sonst macht HTML aus mehreren Leerstellen eine.
      
      Hier eine Lösung:
      
      Code (perl): (dl )
      
      1 2 3
      
      my $such = '| 0001 active -184 -74 |'; my ($value1, $value4) = $such =~ m/^\|\s+(\d)\d\d(\d)/; print "gefunden $value1 und $value4\n";
      
      Dein Beispiel ist nicht gut gewählt, du kannst nicht erkennen, welche der 3 Nullen gefunden wurde.
      Gruß
      GUIfreund
      - +3 replies
      - cohama
        
        2011-11-01 11:24
        
        User since
        2011-08-16
        102 articles
        BenutzerIn
        
        Hallo,
        
        leider habe ich mein Vorhaben nicht vollständig erläutert.
        Es geht mir darum, die ID-Werte der ersten Spalte und die Werte der vierten Spalte in separate Variablen zu speichern. Am bessten wäre es wenn ich dieses Wertepaar dauerhaft, sprich in einem Array speichern würde.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        +======================================================+ | Table | +------------------------------------------------------+ | column1 column2 column3 column4 | | 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 | | 000A lost -376 -100 | +------------------------------------------------------+
        
        Leider werden die Leerzeichen zum Darstellen der Tabelle raus gelöscht.
        
        modedit Editiert von GwenDragon: CODE-Tags um Tabelle gesetzt
        Last edited: 2011-11-01 11:45:57 +0100 (CET)
        
        GwenDragon
        
        2011-11-01 11:47
        
        User since
        2005-01-17
        14892 articles
        Admin1
        
        2011-11-01T10:24:01 cohama
        Leider werden die Leerzeichen zum Darstellen der Tabelle raus gelöscht.
        Wenn du deine Tabelle, sollte sie wirklich überall echte Leerzeichen und nicht Tabs enthalten, in Code-Tags setzt, wird nichts bei der Anzeige zerrupft.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        GUIfreund
        
        2011-11-01 16:53
        
        User since
        2011-08-08
        559 articles
        BenutzerIn
        
        2011-11-01T10:24:01 cohama
        Es geht mir darum, die ID-Werte der ersten Spalte und die Werte der vierten Spalte in separate Variablen zu speichern. Am bessten wäre es wenn ich dieses Wertepaar dauerhaft, sprich in einem Array speichern würde.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        +======================================================+ | Table | +------------------------------------------------------+ | column1 column2 column3 column4 | | 0001 active -184 -74 | | 0002 active -376 -85 | ...... | 003A active -472 -96 | | 000A lost -376 -100 | +------------------------------------------------------+
        
        Das geht z. B. so:
        
        Code (perl): (dl )
        
        1 2 3
        
        my $such = '| 0001 active -184 -74 |'; my @cols_1_4 = (split ' ', $such)[1, 4]; print "@cols_1_4\n";
        
        Gruß
        GUIfreund
- pq
  
  2011-11-01 12:21
  
  User since
  2003-08-04
  12209 articles
  Admin1
  
  cohama, wenn du wirklich möchtest, dass leute dir helfen, dann ist es sinnvoll, dass sie deine daten so sehen, wie sie sind. wenn du keine code-tags drumherum packst, gehen leerzeichen verloren und die schrift ist nicht in fester breite, was auch stören kann. du wurdest jetzt in mehreren artikeln und threads darauf hingewiesen, aber du reagierst nicht darauf und benutzt immer wieder b-tags. daher hier nochmal als extra hinweis. wenn du einen grund für die b-tags hast, dann sag es einfach. aber du ignorierst sämtliche hinweise.
  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-11-01 08:36.