perl one liner : Löschen von Zeilen inklusive gefundenen PATTERN (gelöst) (Allgemeines zu Perl)

[thread]20561[/thread]

perl one liner : Löschen von Zeilen inklusive gefundenen PATTERN [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+6 replies
bora99

2019-01-18 16:19
User since
2009-12-05
54 Artikel
BenutzerIn
Hallo,

Ich möchte vom Anfang einer Datei alle Zeilen bis inklusive der Zeile des 1. gefundenen PATTERN alles löschen.

Beispiel einer Datei
1
2
PATTERN
3
4

Nach Löschen
3
4

Hier mein Vorschlag
Code: (dl )

perl -i -ne 'BEGIN { $i = 0; $found = 0; }; if ( !/PATTERN/ && ($i==0) ) { next; } elsif ( /PATTERN/ && ($found==0) ) { $i++; $found++; next } else { print $_ } ' datei
Bg
- payx
  
  2019-01-18 17:02
  
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  
  Vorschlag: perl -i -ne 'print unless 1 .. /PATTERN/' datei
  Last edited: 2019-01-18 17:06:37 +0100 (CET)
- +4 replies
- Raubtier
  
  2019-01-18 17:34
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  Oder so:
  
  Code: (dl )
  
  perl -pi.bak -e 'BEGIN{1 while <> !~ /PATTERN/ and !eof}' filename
  
  Last edited: 2019-01-18 17:37:24 +0100 (CET)
  - +3 replies
  - bora99
    
    2019-01-23 14:50
    User since
    2009-12-05
    54 Artikel
    BenutzerIn
    
    2019-01-18T16:34:08 Raubtier
    Oder so:
    
    Code: (dl )
    
    perl -pi.bak -e 'BEGIN{1 while <> !~ /PATTERN/ and !eof}' filename
    
    Danke für die Info, noch eine Frage :
    
    Bedeutet
    
    Code: (dl )
    
    perl -pi.bak -e 'BEGIN{1 ...
    
    daß die Angabe 1 der Anfang der Datei ist
    - +2 replies
    - Raubtier
      
      2019-01-23 16:04
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      2019-01-23T13:50:59 bora99
      Bedeutet
      
      Code: (dl )
      
      perl -pi.bak -e 'BEGIN{1 ...
      
      daß die Angabe 1 der Anfang der Datei ist
      
      Nein, es ist vielmehr
      
      Code (perl): (dl )
      
      1 while command;
      
      Also eine Endlosschleife, die 1 ausführt (also nichts tut) und als Bedingung das Command prüft. Du kannst da auch was anderes hinschreiben, solange das irgendwie syntaktisch gültig ist und nichts tut.
      
      Man könnte auch sagen
      
      Code (perl): (dl )
      
      1 2 3
      
      while (command) { # nothing }
      
      Last edited: 2019-01-23 16:07:37 +0100 (CET)
      - bora99
        
        2019-01-28 16:55
        
        User since
        2009-12-05
        54 Artikel
        BenutzerIn
        
        Danke sehr .
        Besten Dank für alle Informationen

View all threads created 2019-01-18 16:19.