Eine vorgegeben Zeile auslesen und After und Before Context (Allgemeines zu Perl)

[thread]14981[/thread]

Eine vorgegeben Zeile auslesen und After und Before Context

Leser: 18

Articles: hide open all | hide show old branches

+10 replies
alla

2010-04-29 23:26
User since
2009-10-19
21 Artikel
BenutzerIn
Hallo zusammen,

ich habe ein Problem mit meinem kleinen Script. Es muss folgendes machen:
in einem Text eine bestimmte Stelle suchen und zwei Zeilen davor und 2 Zeilen danach extrahieren und das ganze ausgeben etwa im Format:
Before --> Fundstelle <-- After

Das Script soll so was wie grep -A -B machen. Die Zeile, in der die Fundstelle auftritt, ist vorgegeben.

Mein Problem ist, dass ich zwar zu einer Zeile springen kann und sie auslesen, aber sobald ich einen neuen Zähler aufsetze, bekomme ich den alten nicht los und es springt nicht zu der gewünschten Zeile ($zeile+2 oder $zeile-2), sondern ausgehend von der vorgegeben zeile +2... hier ist mein code:
Code: (dl )

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

$zeile = $linenr; #die vorgegebene zeile, z.B. 7 # print "$zeileplus\n"; for ($i=1; $i < $zeile; $i++) { $text = (<FILE3>); } $diezeiledieichwill = <FILE3>; $pluszwei = $zeile+2; #2. zeile danach also 9. for ($i=1; $i < $pluszwei; $i++) { $text = (<FILE3>); } $diezeiledieichwill2 = <FILE3>; print $diezeiledieichwill; #7.zeile print $diezeiledieichwill2; #9.zeile
wie kann ich $i zurücksetzen, dass es neu anfängt? das Ganze verläuft innerhalb einer großen while-Schleife, wo noch die Datei bestimmt wird, welche ausgelesen werden muss.

Danke für Eure Tipps.

Gruß
Alla
- +9 replies
- FIFO
  
  2010-04-30 00:28
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Das zeilenweise Einlesen über das Filehandle (<FILE3>) macht da weiter, wo Du zuletzt aufgehört hast. Zurücksetzen des Filehandles am besten durch
  
  Code: (dl )
  
  1 2
  
  close(FILE3); open(FILE3, '>', $DeinDateiname);
  
  zwischen Zeile 7 und 9 in Deinem Code.
  Noch besser: Lexikalische Filehandles, use strict; und use warnings;.
  However: TMTOWTDI :-)
  
  FIFO
  Last edited: 2010-04-30 00:33:12 +0200 (CEST)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - +7 replies
  - topeg
    
    2010-04-30 02:04
    
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    seek(FILE3,0,0); funktioniert auch.
    - +5 replies
    - FIFO
      
      2010-04-30 08:48
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      2010-04-30T00:04:35 topeg
      seek(FILE3,0,0); funktioniert auch.
      
      Klar. Gerade am Anfang muss man sich aber immer wieder klar machen, dass seek(), tell() etc. byte- und nicht zeilenorientiert sind.
      Daher der umständlichere Vorschlag. Ein (mögliches) Setzen des Zeilenzählers $. auf 0 setzt das Filehandle btw auch nicht zurück.
      
      P.S. 2.04 Uhr? ist ja bitter :-)
      [Edit] ... und dann 6.44 im #14980, ist ja noch bitterer! [/Edit]
      
      Gruß FIFO
      Last edited: 2010-04-30 08:59:45 +0200 (CEST)
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - +4 replies
      - pq
        
        2010-04-30 09:34
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        2010-04-30T06:48:40 FIFO
        Klar. Gerade am Anfang muss man sich aber immer wieder klar machen, dass seek(), tell() etc. byte- und nicht zeilenorientiert sind.
        
        ja, na und? weswegen sollte dann ein schliessen und wieder öffnen für den anfänger ein besserer vorschlag sein?
        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
        
        +3 replies
        
        FIFO
        
        2010-04-30 10:00
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        2010-04-30T07:34:59 pq
        ja, na und? weswegen sollte dann ein schliessen und wieder öffnen für den anfänger ein besserer vorschlag sein?
        
        Weil es nicht dazu verleitet, seek() auch mal zum Suchen nach Zeilen zu verwenden. Ansichtssache. Beim Dateianfang ist es natürlich egal.
        Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
        
        +2 replies
        
        pq
        
        2010-04-30 10:21
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        warum sollte es dazu verleiten, seek zum suchen nach zeilen zu verwenden?
        IMHO sollte man immer das tool verwenden, was am besten passt.
        eine datei zu schliessen und wieder zu öffnen, nur um zum anfang zurückzuspringen, geht natürlich, aber ist IMHO einfach sinnlos. und wenn man evtl. auch noch locking verwendet, muss man dann auch noch bedenken, dass der lock zwischendrin verlorengeht.
        ich verstehe nicht, warum du so gegen seek propaganda machst.
        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
        
        FIFO
        
        2010-04-30 10:45
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        2010-04-30T08:21:09 pq
        warum sollte es dazu verleiten, seek zum suchen nach zeilen zu verwenden?
        ...
        ich verstehe nicht, warum du so gegen seek propaganda machst.
        
        Hoppla, Propaganda liegt mir fern. Als ich den Code des OP sah, keimten Erinnerungen an die ersten Perl-Schritte bei denen ich solche Dinge wie seek-Missbrauch jedenfalls gerne "angetestet" habe. Vielleicht bin ich auch besonders dumm ... Wie alla ja geschrieben hat, wird er/sie sich mit seek befassen, voilà. Und wenn man mal etwas routinierter ist, macht man sich Gedanken über Locking, Fcntl etc.
        
        Schönen Tag noch,
        FIFO
        Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
    - pq
      
      2010-04-30 09:33
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      bitte mit Fcntl arbeiten!
      
      Code (perl): (dl )
      
      1 2
      
      use Fcntl qw/ :seek /; seek FH, 0, SEEK_SET;
      
      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
  - alla
    
    2010-04-30 09:58
    
    User since
    2009-10-19
    21 Artikel
    BenutzerIn
    
    hey FIFO,
    
    vielen Dank... Es funzt!
    
    Gruß
    Alla
    
    P.S. Die Lösung mit seek muss ich mir noch genauer anschauen!

View all threads created 2010-04-29 23:26.