Suchmuster finden, Zeile und Folgezeile mit ausgeben (solved) (Allgemeines zu Perl)

[thread]18428[/thread]

Suchmuster finden, Zeile und Folgezeile mit ausgeben [solved]

Tags: perl5 Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+13 replies
korkak

2013-07-10 13:43
User since
2013-07-06
16 articles
BenutzerIn
Hallo zusammen,

ich habe einen tollen Perl Einzeiler gefunden, den ich in UNIX und Windows nutzen könnte. Ich frage mich ob man den noch aufpimpen könnte, so dass nicht nur die Zeile mit dem Suchmuster ausgegeben wird, sondern auch noch eine oder mehrere Folgezeilen. "grep -A" steht mir auf unserer UNIX Maschine leider nicht zur Verfügung.
Code: (dl )

perl -ne "print if /cmd\.exe/" access.log
Grüße
Korkak
- +3 replies
- payx
  
  2013-07-10 13:57
  
  User since
  2006-05-04
  564 articles
  BenutzerIn
  
  Hallo korkak,
  
  hier mein Versuch:
  
  perl -ne "/cmd\.exe/ ? $c=3 : $c--; print if $c>0;" access.log
  
  (Kommt bestimmt noch was schöneres ...)
  
  HTH
  Grüße
  payx
  - Raubtier
    
    2013-07-10 20:47
    User since
    2012-05-04
    1081 articles
    BenutzerIn
    
    Gute Idee! Man kann den ?-:-Operator noch mit dem if verheiraten und vielleicht wie grep noch einen Trenner hinzufügen:
    
    Code (perl): (dl )
    
    perl -nE 'print if /cmd\.exe/ ? $c=2 : --$c > 0; say "--" unless $c' test.txt
  - betterworld
    
    2013-07-10 23:01
    User since
    2003-08-21
    2614 articles
    ModeratorIn
    
    2013-07-10T11:57:40 payx
    (Kommt bestimmt noch was schöneres ...)
    
    Schöner geht nicht, aber ein paar lustige Ansätze fallen mir schon noch ein:
    
    Code: (dl )
    
    1 2
    
    perl -ne 'print if "$t$p$_" =~ /cmd\.exe/; ($p,$t)=($_,$p)' perl -nwe '/cmd\.exe/ and $x = $.; print if $x && ($.-$x) <= 2'
    
    Last edited: 2013-07-10 23:03:51 +0200 (CEST)
    Lieblingsmodule: IPC::System::Simple, Path::Class
- +8 replies
- korkak
  
  2013-07-11 19:24
  User since
  2013-07-06
  16 articles
  BenutzerIn
  Vielen Dank für eure Vorschläge.
  
  Mit den folgenden beiden konnte ich mich anfreunden und habe sie erfolgreich unter Windows getestet, jetzt versuche ich als Perl Anfänger natürlich zu verstehen was hier genau passiert und das fällt mir gar nicht so leicht :-(
  Ich versuchs mal:
  
  Code: (dl )
  
  perl -ne "/Testwort/ ? $c=3 : $c--; print if $c>0;" test.txt
  
  - Es wird nach Testwort gesucht.
  - Durch das ? wird festgelegt, dass das Suchwort 0-1 mal auftreten darf.
  - Variable C wird auf 3 gesetzt.
  - Der Doppelpunkt erschließt sich mir nicht :-(
  - Rückgabe von Variable C und 1 subtrahiert.
  - Zeile ausgeben solange Variable C größer 0.
  
  Code: (dl )
  
  perl -nwe "/Testwort/ and $x = $.; print if $x && ($.-$x) <= 2" test.txt
  
  - Es wird nach Testwort gesucht und Variable X wird auf die aktuelle Zeilennummer gesetzt.
  - Zeile ausgeben wenn Variable X gesetzt ist und die aktuelle Zeile minus Variable X kleiner gleich 2 ist?
  
  Vielleicht kann mir ja jemand Licht ins Dunkel bringen :-)
  
  Viele Grüße
  Korkak
  Last edited: 2013-07-11 19:28:34 +0200 (CEST)
  - +7 replies
  - betterworld
    
    2013-07-11 21:12
    
    User since
    2003-08-21
    2614 articles
    ModeratorIn
    
    2013-07-11T17:24:50 korkak
    - Durch das ? wird festgelegt, dass das Suchwort 0-1 mal auftreten darf.
    
    Nein, denn das "?" gehört nicht mehr zu dem Regexp, der hier durch "/" begrenzt wurde.
    
    "?:" ist der sogenannte "ternary operator", also sowas wie if-then-else. Damit dürfte auch der Doppelpunkt für Dich geklärt sein.
    
    Ansonsten sieht Deine Analyse sehr gut aus.
    Last edited: 2013-07-11 21:18:42 +0200 (CEST)
    Lieblingsmodule: IPC::System::Simple, Path::Class
    - +6 replies
    - Raubtier
      
      2013-07-11 23:49
      
      User since
      2012-05-04
      1081 articles
      BenutzerIn
      
      Genau. Und eigentlich wird der ?:-Operator hier nicht so benutzt, wie es eigentlich gedacht ist - also sowas nicht normal im Programm verwenden.
      
      Eigentlich macht man ja sowas:
      
      Code (perl): (dl )
      
      my $variable = bedingung ? $wenn_wahr : $wenn_falsch;
      
      D.h. eigentlich interessiert man sich für den Rückgabewert des Operators. Der Code entspricht dem längeren:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      my $variable; if (bedingung) { $variable = $wenn_wahr; } else { $variable = $wenn_falsch; }
      
      Nur ignorieren wir das Resultat und führen als $wenn_wahr eben eine Zuweisung durch (die hat auch einen Rückgabewert, nämlich den des zugewiesenen Wertes, aber das ignoriert der Code ja)
      
      Da es normalerweise unschön ist, den ?:-Operator ohne seinen Rückgabewert zu verwenden, habe ich in meinem Code oben einfach den Rückgabewert benutzt - das spart dann eben das Wiederholen des $c.
      Last edited: 2013-07-11 23:50:51 +0200 (CEST)
      - betterworld
        
        2013-07-12 09:14
        
        User since
        2003-08-21
        2614 articles
        ModeratorIn
        
        2013-07-11T21:49:34 Raubtier
        eigentlich wird der ?:-Operator hier nicht so benutzt, wie es eigentlich gedacht ist - also sowas nicht normal im Programm verwenden.
        
        Es ist schön kurz und funktioniert sehr gut – darum ging es payx wohl auch mit dem Code.
        
        Perl ist dazu gedacht, nicht so benutzt zu werden, wie es gedacht ist :-)
        Lieblingsmodule: IPC::System::Simple, Path::Class
      - +4 replies
      - korkak
        
        2013-07-12 09:24
        
        User since
        2013-07-06
        16 articles
        BenutzerIn
        
        Hallo Raubtier,
        
        ich habe Dein Statement jetzt mit Erfolg unter Windows getestet:
        
        Code: (dl )
        
        perl -nE "print if /morgenstund/ ? $c=2 : --$c > 0; print \"--\n\" unless $c;" text.txt
        
        Aber 100% verstehe ich den Ablauf immer noch nicht, nochmal zum Verständnis:
        
        Wenn SUCHWORT gefunden wird:
        - setze C=2.
        - gebe die Zeile aus.
        Wenn SUCHWORT nicht gefunden wird:
        - setze C-1(C ist jetzt 1), C ist > 0 also gebe die Zeile aus.
        Wenn SUCHWORT nicht gefunden wird:
        - setze C-1 (C ist jetzt 0), C ist nicht mehr > 0 also kommt nun der 2te Teil zum tragen:
        - gib -- aus falls $C nicht gesetzt ist.
        
        Habe ich das so richtig verstanden?
        
        Grüße
        Korkak
        Last edited: 2013-07-12 09:58:56 +0200 (CEST)
        
        +3 replies
        
        payx
        
        2013-07-12 11:23
        
        User since
        2006-05-04
        564 articles
        BenutzerIn
        
        Hallo korkak,
        
        das hier:
        
        Code: (dl )
        
        perl -nE "print if /morgenstund/ ? $c=2 : --$c > 0"
        
        macht das, was Du ursprünglich haben wolltest, sehr elegant. (Habe ich doch gesagt, dass noch etwas schöneres kommt ;-)
        
        Was in Deiner Interpretation noch fehlt, ist das erste if, welches die eigentliche Prüfung macht, ob die Zeile ausgegeben werden soll oder nicht. Das besondere an Raubtiers Lösung ist ja gerade die Verschachtelung der beiden konditionalen Operationen.
        
        Also, zuerst die innere Bedingung mit $ ::
        
        Wenn SUCHWORT gefunden wird:
        
        Setze $c=2.
        
        Der Rückgabewert einer erfolgreichen Zuweisung ist true!
        
        Wenn SUCHWORT nicht gefunden wird:
        
        Setze $c=$c-1 und prüfe zugleich, ob das Ergebnis größer als null ist
        
        Wenn ja, ist der Rückgabewert true, wenn nein, ist er false
        
        Dann die äußere Bedingung mit if:
        
        Ist der Rückgabewert des $ :-Ausdrucks true?
        
        Wenn ja, wird die Zeile mit print ausgegeben, sonst nicht.
        
        Und dann würde ich auch noch die letzte Feststellung korrigieren: Der Trenner wird dann ausgegeben, wenn $c genau 0 ist, denn 0 ist in Perl false. In den nächsten Zeilen wird SUCHWORT ja vielleicht auch nicht gefunden, dann wird $c eine (immer weiter wachsende) negative Zahl und somit nicht mehr false sondern true.
        
        HTH
        Grüße
        payx
        
        +2 replies
        
        Raubtier
        
        2013-07-13 10:47
        
        User since
        2012-05-04
        1081 articles
        BenutzerIn
        
        2013-07-12T09:23:58 payx
        Hallo korkak,
        
        * Wenn SUCHWORT gefunden wird:
        
        * Setze $c=2.
        
        * Der Rückgabewert einer erfolgreichen Zuweisung ist true!
        
        Genauer: Der Rückgabewert einer Zuweisung ist der Zuweisungswert selbst! Das heißt, hier wird $c die Zahl 2 zugewiesen und 2 zurückgegeben. Dann wird getestet, ob 2 > 0 ist - und da das true ergibt, wird die Zeile ausgegeben.
        
        korkak
        
        2013-07-13 13:08
        
        User since
        2013-07-06
        16 articles
        BenutzerIn
        
        Danke für eure Mühe und dafür, dass ihr einem Anfänger alles so im Detail erklärt!
- korkak
  
  2013-07-12 11:55
  
  User since
  2013-07-06
  16 articles
  BenutzerIn
  
  Vielen Dank für eure Hilfe!

View all threads created 2013-07-10 13:43.