Aus einem string einen Wert herausbekommen (Allgemeines zu Perl)

[thread]17549[/thread]

Aus einem string einen Wert herausbekommen

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+24 replies
Gast Forza

2012-07-10 14:04

Hallo an alle ich hab folgendes Problem und wollte mal um Hilfe fragen und zwar habe ich ein Array mit dem Inhalt z.B.

25.03.12_00:04:53 Datenbankbackup erfolgreich erstellt
25.03.12_00:07:26 Backup der Archivelogs erfolgreich erstellt
25.03.12_00:07:26 Beende backdb_stdb (pid=28948)
25.03.12_18:00:02 Beginne backdb_stdb (pid=22744)
25.03.12_23:53:29 Datenbankbackup erfolgreich erstellt
25.03.12_23:56:07 Backup der Archivelogs erfolgreich erstellt
25.03.12_23:56:07 Beende backdb_stdb (pid=22744)

Ich müsste jetzt an den wert von pid drankommen es geht darum zu vergleichen ob ein pid der begonnen wurde auch beendet wurde weil dies manchmal nicht der fall ist.
Bin nun leider nocht nicht ganz so erfahren in Perl und weiß gerade nicht wie ich daran kommen soll ich vermute mal das Array splitten aber bin mir nüscht so sicher.
Vielen dank
Last edited: 2012-07-10 14:20:38 +0200 (CEST)
- +8 replies
- Taulmarill
  
  2012-07-10 14:33
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Ich würde so etwas über eine Regulären Ausdruck lösen. Hier mal ein kleines Beispiel:
  
  Code (perl): (dl )
  
  1 2 3
  
  my $zeile = '25.03.12_00:07:26 Beende backdb_stdb (pid=28948)'; my ($pid) = $zeile =~ /pid=(\d*)/; print "$pid\n";
  
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - Forza
    
    2012-07-11 08:03
    User since
    2012-07-11
    20 Artikel
    BenutzerIn
    
    2012-07-10T12:33:57 Taulmarill
    Ich würde so etwas über eine Regulären Ausdruck lösen. Hier mal ein kleines Beispiel:
    
    Code (perl): (dl )
    
    1 2 3
    
    my $zeile = '25.03.12_00:07:26 Beende backdb_stdb (pid=28948)'; my ($pid) = $zeile =~ /pid=(\d*)/; print "$pid\n";
    
    Das Problem ist das dies doch nur überprüft ob ein pid drin vorkommt ich bräuchte aber den exakten wert weil ich im ganzen logfile dann überprüfen muss ob dieser pid auch geschlossen wurde da meistens das backup einen tag später erst endet
    Last edited: 2012-07-11 08:24:52 +0200 (CEST)
  - +6 replies
  - Forza
    
    2012-07-11 08:13
    User since
    2012-07-11
    20 Artikel
    BenutzerIn
    
    2012-07-10T12:33:57 Taulmarill
    Ich würde so etwas über eine Regulären Ausdruck lösen. Hier mal ein kleines Beispiel:
    
    Code (perl): (dl )
    
    1 2 3
    
    my $zeile = '25.03.12_00:07:26 Beende backdb_stdb (pid=28948)'; my ($pid) = $zeile =~ /pid=(\d*)/; print "$pid\n";
    
    Okay hat sich erledigt kam auf die idee das ich den wert mit $1 bekommen kann und tada da war er drin danke an allen die geholfen haben
    Last edited: 2012-07-11 08:25:09 +0200 (CEST)
    - +5 replies
    - Gast Muffi
      
      2012-07-11 08:31
      
      Er stünde auch in $pid
      Last edited: 2012-07-11 08:39:56 +0200 (CEST)
      - +4 replies
      - Forza
        
        2012-07-11 08:45
        
        User since
        2012-07-11
        20 Artikel
        BenutzerIn
        
        Guest Muffi
        Er stünde auch in $pid
        
        im $pid hab ich immer nur ne 1 stehen gehabt wenn ein pid vorhanden war zum test hatte ich den pid aus der $zeile rausgenommen und er hat mir nichts ausgegeben schien für mich daher einfach nur zu prüfen ob wahr und wenn wahr dann 1
        
        +3 replies
        
        Linuxer
        
        2012-07-11 09:06
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Dann hast Du vermutlich den Code nicht korrekt übernommen.
        
        Wenn Dir schon Code gepostet wird, solltest Du ihn auch korrekt abschreiben.
        
        Code (perl): (dl )
        
        my ($pid) = $zeile =~ /pid=(\d*)/;
        
        Die Klammern um $pid sind wichtig, damit die eingefangene PID auch in $pid landen kann.
        Wenn Du sie weglässt, steht der Regex im skalaren Kontext und liefert eben nur, ob Erfolg oder Misserfolg vorliegt.
        
        Siehe auch: http://perldoc.perl.org/perlop.html#Regexp-Quote-L...
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        Forza
        
        2012-07-11 09:07
        
        User since
        2012-07-11
        20 Artikel
        BenutzerIn
        
        okay dann wars mein Fehler
        Danke ja bin auch noch am lernen =)
        
        Linuxer
        
        2012-07-11 09:09
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Daher weise ich drauf hin ;-))
        
        Dran bleiben! ;-)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +15 replies
- Gast Muffi
  
  2012-07-10 14:37
  ungestestet
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  my %pids = (); for my $line (@lines) { if ($line =~ /Beginne.*pid=(\d+)/) { $pids{$1}++; } elsif ($line =~ /Beende.*pid=(\d+)/) { $pids{$1}--; } } for my $uebrig_pid (keys %pids) { say $pids{$uebrig_pid} if $pids{$uebrig_pid} > 0; }
  
  Last edited: 2012-07-10 15:03:25 +0200 (CEST)
  - +14 replies
  - Gast Forza
    
    2012-07-11 07:53
    
    Danke für die Antworten werde bestimmt eins davon zu laufen kriegen
    Last edited: 2012-07-11 08:24:32 +0200 (CEST)
    - +13 replies
    - Forza
      
      2012-07-11 08:44
      
      User since
      2012-07-11
      20 Artikel
      BenutzerIn
      
      Ich bins nochmal das Problem mit den Pids wurde gelöst danke nochmals jetzt habsch noch ein anderes Problem es kann sein das ein Backup um 11 uhr ausgeführt wird und eins um 18 Uhr für mich ist es nur interessant zu wissen welche das letzte gestartete backup an diesem tag war meine vorstellung dazu ist sowas:
      ###kein vernünftiger quellcode nur die logik###
      Dazu muss man sagen ich prüfe aus dem logfile immer nur einen tag und prüfe dann nach schlagwörtern wie pid beginne und errors und nach der prüfung speicher ich dies ergebniss in einem array
      if(beginne pid x 2 im array)
      {
      lösche das ältere begonnene aus dem Array müsste man ja über den timestamp herausbekommen
      }
      
      zur Prüfung ob es öfters vorhanden ist hab ich schonmal einen Prototypen geschrieben
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      $anzahl=0; foreach(@zeilen) { if($_ =~ m/$beginne/) { $anzahl=$anzahl+1; } } if($anzahl>1) { print "beginne pid ist $anzahl mal vorhanden \n"; }
      
      Jetzt müsste man nur den spätesten zeitpunkt herausfinden und nur diesen im array schreiben und die anderen herauslöschen.
      
      Meine idee wäre es sich die zeiten der Zeilen anzugucken wo beginne pid drin vorkommt und dann zu sagen use nearest 23:59:59 weiß nur gerade nicht wie^^
      Hoffe es ist halbwegs verständlich Danke
      Last edited: 2012-07-11 09:56:09 +0200 (CEST)
      - +5 replies
      - Linuxer
        
        2012-07-11 10:08
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Hier ein Beispiel, wie man es lösen könnte.
        
        Es gibt zwei globale Variablen ($last_*), die den letzten Start-Zeitpunkt und die dazugehörige PID speichern sollen.
        
        Die "Datei" wird zeilenweise durchgegangen. Für jede Zeile werden Zeitstempel und PID ermittelt.
        Die Daten werden übernommen, wenn a) noch kein Zeitstempel gespeichert wurde ODER b) der neu eingelesene Zeitstempel größer ist als der bisher gespeicherte.
        
        Solange die Zeitstempel dieses einheitliche Format haben, kann man sie mit einem einfachen Stringvergleich vergleichen.
        
        Beispiel:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
        
        #! /usr/bin/env perl use strict; use warnings; my $last_stamp; my $last_pid; while ( my $line = <DATA> ) { if ( my ( $stamp, $pid ) = $line =~ m{^(\S+).+eginne.+pid=(\d+)} ) { if ( !defined $last_stamp || $stamp gt $last_stamp ) { $last_pid = $pid; $last_stamp = $stamp; } } } print "Last backup (pid $last_pid) started at $last_stamp\n"; __DATA__ 25.03.12_00:04:53 Datenbankbackup erfolgreich erstellt 25.03.12_00:07:26 Backup der Archivelogs erfolgreich erstellt 25.03.12_00:07:26 Beende backdb_stdb (pid=28948) 25.03.12_18:00:02 Beginne backdb_stdb (pid=22744) 25.03.12_23:53:29 Datenbankbackup erfolgreich erstellt 25.03.12_23:56:07 Backup der Archivelogs erfolgreich erstellt 25.03.12_23:56:07 Beende backdb_stdb (pid=22744)
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        Forza
        
        2012-07-11 10:34
        
        User since
        2012-07-11
        20 Artikel
        BenutzerIn
        
        Ahh okay die könnte ich wahrscheinlich gut einbauen bei der einlese arbeit von dem logfile noch a bisl rumprobieren aber das könnte klappen =)
        Danke
        
        +3 replies
        
        Gast Muffi
        
        2012-07-11 11:11
        
        2012-07-11T08:08:25 Linuxer
        25.03.12_00:04:53
        
        Was mir grad noch aufgefallen ist: Falls du das Datumsformat selbst bestimmen kannst:
        Das deutsche Datumsformat ist blöderweise recht ungünstig für programmtechnische Verarbeitung. Stell dir mal vor du willst das z.B. umsortieren.
        Die besten Erfahrungen hab ich mit sowas wie einem sql datetime gemacht.
        "JJJJ-MM-TT HH:MM:SS". Da würde ein stinknormaler Stringsort funktionieren.
        Falls kein Leerzeichen drin sein soll wegen splitten wird oft statt dem Leerzeichen auch ein "T" verwendet.
        Last edited: 2012-07-11 11:20:30 +0200 (CEST)
        
        +2 replies
        
        Linuxer
        
        2012-07-11 11:21
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Ich habe kein Datumsformat definiert. Ich nutze die Informationen, die Forza geliefert hat.
        
        Persönlich bevorzuge ich auch einen Zeitstempel bei dem die Felder die Reihenfolge YYYY, MM, DD, hh, mm, ss haben.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        Gast Muffi
        
        2012-07-11 11:24
        
        Sorry, hab dem falschen geantwortet
        Last edited: 2012-07-11 11:28:57 +0200 (CEST)
      - +3 replies
      - Gast Muffi
        
        2012-07-11 11:03
        
        So ganz hab ich das Problem noch nicht verstanden.
        
        Ist so ein Logfile nicht eh zeitlich schon sortiert?
        Also reicht es nicht das letzte "Beginne pid" aus der Datei anzuschaun und auszugeben?
        Last edited: 2012-07-11 11:04:47 +0200 (CEST)
        
        +2 replies
        
        Forza
        
        2012-07-11 11:22
        
        User since
        2012-07-11
        20 Artikel
        BenutzerIn
        
        ja die logfile ist schon zeitlich aufgebaut @Muffi ja das war auch i-wie meine idee sich das letzte zu krallen nur weiß leider nicht wie
        
        Gast Muffi
        
        2012-07-11 11:27
        
        Code (perl): (dl )
        
        1 2
        
        my @zeilen_mit_beginne = grep { $_ =~ /Beginne.+pid/ } @alle_zeilen; my $relevante_zeile = $zeilen_mit_beginne[-1];
        
        Last edited: 2012-07-11 11:29:02 +0200 (CEST)
      - +4 replies
      - pq
        
        2012-07-11 11:31
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wenn du ein anderes problem hast, wieso machst du nicht nen neuen thread auf, das wird hier langsam unübersichtlich.
        oder wenigstens nen teilbaum, indem du nen titel einträgst?
        
        steht doch extra in unseren richtlinien.
        
        und punkt und komma würden deinem text auch ganz gut stehen.
        schlichlich bist du der/die fragestellerIn und kannst dir ein bisschen mühe geben.
        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
        
        Forza
        
        2012-07-11 11:35
        
        User since
        2012-07-11
        20 Artikel
        BenutzerIn
        
        Okay, wird beim nächsten mal berücksichtigt.
        
        +2 replies
        
        pq
        
        2012-07-11 11:50
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        hm, wie wärs stattdessen, wenn du deinen artikel editierst?
        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
        
        Forza
        
        2012-07-11 16:04
        
        User since
        2012-07-11
        20 Artikel
        BenutzerIn
        
        Du kannst diesen Akrtikel meinetwegen auch jetzt schließen, ich konnte mein Programm mit der Hilfe von Muffi und Linuxer erfolgreich fertigstellen.
        Vielen dank dafür nochmal.
        mfg

View all threads created 2012-07-10 14:04.