bestimmte Zeile einer Datei in ein Array (Allgemeines zu Perl)

[thread]19861[/thread]

bestimmte Zeile einer Datei in ein Array

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+6 replies
wenze

2015-10-29 11:27
User since
2006-06-15
29 Artikel
BenutzerIn
Hallo,

ich versuche gerade eine SQL-Ausgabe zu lesen. Aber leider bin ich gerade wieder zu lange raus...
Code: (dl )

1 2 3 4 5 6 7 8 9

Database Name DB Size MB DB Free Space MB DB Full% Log Size MB Free Log MB Log Full% -------------------- ---------- ---------------- -------- ----------- ----------- --------- master 248 214 13.4 NULL 214 NULL tempdb 1048 1043 0.4 NULL 1019 NULL model 24 10 55.9 NULL 10 NULL XX1 561152 349734 35.3 20480 20399 0.4 sybsystemdb 48 34 29.2 NULL 34 NULL sybsystemprocs 200 70 64.5 NULL 70 NULL sybmgmtdb 148 97 34.1 NULL 97 NULL
Ich möchte jetzt nur die Zeile einlesen, die XX1 z.B. am Anfang enthält. Danach möchte ich die Spalte Free Space und DB Full% nach von mir gesetzten Schwellwerten auswerten.

Danke für jeden Tipp
- +3 replies
- Linuxer
  
  2015-10-29 11:34
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Und wie kommst Du an diese Ausgabe?
  Zeig doch mal den passenden Programmcode, wie Du diese Ausgabe abholst/generierst.
  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
  - wenze
    
    2015-10-29 12:31
    
    User since
    2006-06-15
    29 Artikel
    BenutzerIn
    
    Die Ausgabe bekomme ich per vorgeschalteten SQL direkt aus der Datenbank in eine Datei, damit ich kein User/Passwort benötige.
    
    Ich möchte mir eine vereinfachte Überwachung bauen.
    Last edited: 2015-10-29 12:45:11 +0100 (CET)
    - Linuxer
      
      2015-10-29 12:57
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Beispielhalfter Ablauf:
      
      - Öffne die Datei lesend
      - lese zeilenweise
      - - überspringe Zeilen, die nicht die gewünschte DB betreffen
      - - vergleiche die gewünschten Spaltenwerte mit den gesetzten Limits
      - - - gebe Info aus, wenn Limits überschritten werden
      - schließe Datei
      
      Hier ein ungetesteter Schnellschuß aus der Mittagspause:
      
      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 30
      
      #! /usr/bin/perl use strict; use warnings; my $filename = "sqldaten.txt"; my $wanted_db = "XX1"; my $free_space_threshold = 12; my $db_full_percent_threshold = 90; open my $rh, '<', $filename or die "Error: open($filename) failed: $!"; while ( my $line = <$rh> ) { my ( $dbname, $free_space, $db_full_percent ) = ( split m{\s+}, $line )[0,2,3]; next if $dbname ne $wanted_db; if ( $free_space < $free_space_threshold ) { printf "%s running out of space: %s MB left\n", $dbname, $free_space; } if ( $db_full_percent > $db_full_percent_threshold ) { printf "%s running full: %s %% filled.\n", $dbname, $db_full_percent; } } close $rh;
      
      PS: Beachte Raubtiers Hinweise bezüglich des Leerzeichens am Zeilenanfang. Ggfs. sind die Indizes der Spalten anzupassen.
      Last edited: 2015-10-29 12:58:43 +0100 (CET)
      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
- Raubtier
  
  2015-10-29 12:47
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  Vielleicht so:
  
  1. Schritt: Spaltenpositionen ermitteln. Das scheint mir nur aus der 2. Zeile zu gehen, die Spalten sind jeweils im Bereich der Bindestriche.
  
  2. Schritt: Anhand der Positionen jede Zeile in Spalten aufteilen. Dann trimmen.
  
  3. Ausgeben.
  
  Frage: ist die 1. Zeile wirklich 1 Space nach links verschoben? Oder die anderen 1 Space nach rechts?
  
  Alternativ, wenn du sicher bist, dass Spaltenreihenfolge gleich bleibt und immer alle Spalten gefüllt sind: einfach ein
  
  Code (perl): (dl )
  
  my ($dbname, $freeSpaceMB, $dbFullPercent) = (split /\s+/, $zeile)[0,2,3];
  
  machen. (bzw. 1,3,4 wenn Space am Anfang drin ist)
  Last edited: 2015-10-29 12:49:06 +0100 (CET)
  - wenze
    
    2015-10-29 13:19
    User since
    2006-06-15
    29 Artikel
    BenutzerIn
    
    Danke.
    
    Ich versuche es gerade per Shell:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
    
    #!/usr/bin/ksh set -x SID=XX1; max=30; SQL_FILE=/home/user/input_file.txt; check="$(grep $SID $SQL_FILE| awk '{print $3}')"; echo "$check" if [ $check -gt $max ] then echo " ALARM"; fi
    
    Last edited: 2015-10-29 13:33:17 +0100 (CET)

View all threads created 2015-10-29 11:27.