Einzelne Daten aus Zeilen einer Log Datei auslesen (Allgemeines zu Perl)

[thread]18700[/thread]

Einzelne Daten aus Zeilen einer Log Datei auslesen

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+13 replies
Gast Daniel

2013-10-23 10:03

Hallo,

ich hoffe mir kann jemand etwas helfen. Ich bin auch ein kompletter Neuling in Perl und versuche grad ein Script zu erstellen um einige Daten aus einer recht großen Log Datei auszulesen etwas zu formatieren und dann in einer neuen Datei auszugeben.

Dateien öffnen lesen und schreiben an sich ist kein Problem. Ich kann auch die Log Datei nach Zeilen durchsuchen lassen die ein bestimmtes Wort enthalten und diese Zeilen in eine neue Datei speichern.

Nun möchte ich aber eigentlich nicht diese kompletten Zeilen speichern sondern nur ein paar Daten aus diesen Zeilen sowas wie Datum und einige Nummern aus dieser Zeile. Nur weis ich jetzt nicht so genau wie ich nur die einzelnen Daten rausspeichern kann aus der Datei. Ich habe versucht mit read nur gewisse Sachen auszulesen und mit seek den Datenzeiger zu versetzen an die passende Stelle aber das klappt nicht so wirklich. Gibts da ne andere Möglichkeit die Zeile zu bearbeiten ?

bin dankbar für jede Hilfe :)
Last edited: 2013-10-23 11:20:20 +0200 (CEST)
- Muffi
  
  2013-10-23 11:24
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  seek bei Textdateien ist meist nicht die optimale Lösung.
  Schreib doch mal ein möglichst konkretes Beispiel.
  
  Es ist schwer aus einer unkonkreten Vorgabe eine konkrete Lösung zu zeigen.
  1 + 1 = 10
- kristian
  
  2013-10-23 11:26
  
  User since
  2005-04-14
  684 Artikel
  BenutzerIn
  
  Hallo,
  
  wenn du uns eine Zeile zeigen kannst und dazu sagst welche Werte du haben willst, wird sich eine Lösung finden.
  Man könnte die Zeile an irgendwelchen Zeichen splitten oder den gewünschten Wert raussuchen.
  Es macht aber keinen Sinn Vorschläge zu machen, wenn man die Zeile nicht kennt.
  
  Gruß
  Kristian
- +10 replies
- GwenDragon
  
  2013-10-23 11:38
  User since
  2005-01-17
  14812 Artikel
  Admin1
  Du kannst aus so einer Datenzeile die Inhalte mit einem Regex rausholen.
  
  Beispiel auf die Schnelle:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  # eine Zeile aus einem Apache-Log #37.108.236.196 - - [12/Oct/2013:06:58:20 +0200] "GET /repo/tools/opera/extensions/searchengine-preview/1.2.8.6 HTTP/1.1" 200 575 "-" "Opera/9.80 (Windows NT 5.1; U; pl) Presto/2.10.289 Version/12.02" my $line = <LOGFILE>; my ($ip, $date, $status) = $line =~ m|(\d+\.\d+\.\d+\.\d+).+\[(.+)\].+"\s(\d{3})\s|; print "$ip\t$date\t$status", "\n";
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +9 replies
  - Gast Daniel
    
    2013-10-25 09:08
    
    Danke für die Antworten. habs Mittlerweile selber hinbekommen mit split die richtigen Daten mir zurechtzuschneiden. Jetzt habe ich nur noch ein Problem. Ich hab die Daten in einem Array in diesem Fall Zahlen. Das Array ist nun mit folgenden Zahlen gefüllt:
    
    @array (9687,4,5,9687,2,5,9673,2,5,6,8,9734,4,6,7,8) und noch ein paar mehr das soll nur als Beispiel dienen. Nun muss ich eigentlich diese einzelnen Zahlen mit den mehrstelligen Zahlen zusammenfügen und in ein neues Array speichern. Das soll am Ende dann so aussehen im Array:
    
    @arrayneu(968745,968725,96732568,9734678)
    
    Ich grübel nur schon ewig wie ich jetzt am besten das Array durchlaufen soll um die Daten zusammenzusetzen, da ja nicht immer gleichviele einzelne Werte im Array stehen. Weis einer Rat ? :)
    Last edited: 2013-10-25 09:51:53 +0200 (CEST)
    - payx
      
      2013-10-25 10:17
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo Daniel,
      
      wenn ich Deine Anforderungen so genau richtig verstanden habe, könnte es so gehen:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
      
      #!/usr/bin/perl use strict; use warnings; use 5.010; my @arr_new; for my $z (9687,4,5,9687,2,5,9673,2,5,6,8,9734,4,6,7,8) { if ($z >= 10) { # mehrstellige Zahl: neuer Eintrag push @arr_new, $z; } else { # einstellige Zahl wird an letzten Eintrag angehängt $arr_new[-1] .= $z; } } say for @arr_new;
      
      HTH
      Grüße
      payx
      
      Editiert von payx: comments inserted
      Last edited: 2013-10-25 10:20:21 +0200 (CEST)
    - bianca
      
      2013-10-25 10:18
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Warum machst du das denn nicht mit einer Hash Struktur?
      
      Code: (dl )
      
      1 2 3 4
      
      { 9687 => [4,5], 9687 => [2,5], }
      
      Dann kannst du es iterieren.
      Bei deiner Lösung weiß man ja nicht, wo der Kopf beginnt und die anzufügenden Daten beginnen.
      10 print "Hallo"
      20 goto 10
    - +6 replies
    - Gast Daniel
      
      2013-10-25 10:51
      
      Also der Ansatz mit dem pushen auf das Array wenn die Zahl größer 10 ist klingt logisch aber irgendwie klappt das nich so ganz ich krieg eine Riesengroße Liste mit Zahlen und das anhängen passt nicht so ganz hier mal mein Versuch: passt da irgendwas dran nicht ?
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8
      
      for ($i=0;$i<=$#angerufen;$i++) { if (length($angerufen[$i])!= 1) { # mehrstellige Zahl: neuer Eintrag push (@angerufen2, $angerufen[$i], "\n"); } else { # einstellige Zahl wird an letzten Eintrag angehängt $angerufen2[-1] = $angerufen[$i].$angerufen2[-1]; } }
      
      Last edited: 2013-10-25 11:36:35 +0200 (CEST)
      - bianca
        
        2013-10-25 12:29
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Wenn das nicht paßt liegt das vielleicht auch an den Daten?
        Du bist auf meinen Vorschlag noch nicht eingegangen, der wäre zumindest sicherer.
        10 print "Hallo"
        20 goto 10
      - +3 replies
      - pq
        
        2013-10-25 12:35
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        Guest Daniel
        Also der Ansatz mit dem pushen auf das Array wenn die Zahl größer 10 ist [...]
        
        Code: (dl )
        
        if (length($angerufen[$i])!= 1) { # mehrstellige Zahl: neuer Eintrag
        
        halten wir mal fest:
        - oben schreibst du "Zahl größer 10"
        - im Code steht: != 1 (das würde auch auf 2, 3 etc. zutreffen)
        - im Kommentar daneben steht: mehrstellige Zahl
        
        Diese drei Dinge sagen alle was anderes.
        Mehrstellig ist eine Zahl schon, wenn sie größer gleich 10 ist, nicht nur größer.
        Und wenn du eine mehrstellige Zahl brauchst, warum schreibst du dann "ungleich 1"?
        
        Um eine Zahl größer 10 zu bekommen, solltest du schreiben:
        if ($x > 10)
        
        Um eine mehrstellige Zahl zu bekommen, solltest du schreiben:
        if ($x >= 10)
        
        welches von beiden, kann ich nicht sagen, den rest des threads habe ich nicht verfolgt. mir fiel nur die ungereimtheit deiner aussagen auf.
        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
        
        +2 replies
        
        payx
        
        2013-10-25 13:11
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        2013-10-25T10:35:29 pq
        Guest Daniel
        
        Code: (dl )
        
        if (length($angerufen[$i])!= 1) { # mehrstellige Zahl: neuer Eintrag
        
        halten wir mal fest:
        - oben schreibst du "Zahl größer 10"
        - im Code steht: != 1 (das würde auch auf 2, 3 etc. zutreffen)
        - im Kommentar daneben steht: mehrstellige Zahl
        
        Das passt doch: length(9) == 1 vs. length(10) == 2.
        
        Denkbarer Vorteil gegenüber der Prüfung mit >= 10 ist, dass so auch andere Zeichen als Ziffern behandelt werden können, falls das vorkommen kann.
        
        Grüße
        payx
        Last edited: 2013-10-25 13:13:44 +0200 (CEST)
        
        pq
        
        2013-10-25 13:15
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        ach, das length habe ich übersehen. peinlich...
        
        aber der widerspruch "mehrstellige zahl" und "größer als 10" bleibt noch.
        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
      - payx
        
        2013-10-25 13:13
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Guest Daniel
        passt da irgendwas dran nicht ?
        
        Siehe msg #171469
        
        Grüße
        payx
        
        PS: Verstehst Du etwas an der dort vorgeschlagenen Lösung nicht? Ist etwas an der Lösung so, dass es nicht Deinen Anforderungen entspricht?
        
        Editiert von payx: PS
        Last edited: 2013-10-25 13:47:47 +0200 (CEST)

View all threads created 2013-10-23 10:03.