Fehlersuche Skript gibt falsche Warnungen aus (Allgemeines zu Perl)

[thread]16591[/thread]

Fehlersuche Skript gibt falsche Warnungen aus

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+15 replies

hcx

2011-08-03 12:08

User since
2011-07-02
5 Artikel
BenutzerIn
[default_avatar]

Hallo Perlmonks,

ich brauche mal wieder euere Hilfe. Ich habe mir ein Skript geschrieben, welches bei verschiedenen Graden der Belegung des / Verzeichnisses Warnungen ausgeben soll, indem es mir eine Email schickt. Klappt soweit ganz gut, doch schickt es falsche Meldungen z.B. "VORSICHT das Wurzelverzeicnis ist zu mehr als 80 % belegt " , obwohl mir ein df -h lediglich 63 % anzeigt.
Finde jedch den Fehler nicht - wahrscheinlich ein ganz blöder:

Code (perl): (dl )

#!/usr/bin/perl -w
# Dieses Skript analysiert die Belegung der Festplatten
# und gibt Warnungen aus, sofern das Wurzelverzeichnis zu mehr als 50 und 80% belegt ist
# bei 90% Belegung wird eine Warnung ausgegeben und die Platte von Datenmuell gesäubert
#
#
#


use Mail::Sender;
#use SMS::SMS77;
#use Net::SMS::Massenversand;
use strict;
my @zeilen = `df -h`;
my $zeilenanzahl = @zeilen;
my $zeilennummer = 0;
my $wurzelverzeichnis = $zeilen[$zeilennummer];
my $absender;
my $DEBUG;
while($zeilennummer < $zeilenanzahl) {
        my @spalten = split(' ',$zeilen[$zeilennummer]);   # die aktuelle Zeile wird aufgespalten in die einzelnen Spalten Muster ' ' steht für                                                           # ein Leerzeichen mittels dessen der Inhalt der Spalten getrennt ist 
        my $letzte_spalte = $spalten[@spalten-1];          # mit [@spalten-1] wird das letzte Element des Arrays qspalten ermittelt
        if($letzte_spalte eq "/") {                        # sofern die letzte Spalte das / enthält ist es das Wurzelverzeichnis
                $wurzelverzeichnis = $zeilen[$zeilennummer];
        }
        $zeilennummer = $zeilennummer+1;

}
chomp($wurzelverzeichnis);
my @spalten = split(' ',$wurzelverzeichnis);

my @use = split('%',$spalten[4]);

print "marker1 Belegung des Wurzelverzeichnisses betraegt aktuell @use\n";
if ($use[0] > 50) {
        &SENDEMAIL;
        print "marker2 Verschicke eine Mail, daß Wurzelverzeichnis zu mehr als 50% belegt ist.\n";
        print "##### ACHTUNG das Wurzelverzeichnis ist zu mehr als 50% belegt! ####\n";

}
if ($use[0] > 80) {
        &SENDEMAIL;
        print "marker3 Verschicke eine Mail, dass Wurzelverzeicnis zu mehr als 80% belegt ist.\n";
        &SENDESMS;
        print "#### VORSICHT das Wurzelverzeicnis ist zu mehr als 80 % belegt ####\n";
}
if ($use[0] > 90) {
        &SENDEMAIL;
        &SENDESMS;
        print "##### WARNUNG DAS WUZELVERZEICNIS HAT DIE KRITISCHE MARKE VON MEHR ALS 90% ÜBERSCHRITTEN!!! ####\n";
        system("apt-get autoclean");
        system("apt-get autoremove");
        system("apt-get clean");
        system("apt-get install localepurge");

}

Schon jetzt vielen Dank für euere Hilfe und Anregungen - bitte Geduld ich bin mit Perl erst ganz am Anfang.

Gruss

hcx

+13 replies

FIFO

2011-08-03 12:34

User since
2005-06-01
469 Artikel
BenutzerIn

user image

Hi, einige Anmerkungen:

Die Analyse der `df -h`- Ausgabe geht vielleicht etwas übersichtlicher, insbesondere, wenn Du eigentlich nur die %-Belegung von / brauchst:

Code (perl): (dl )

my @zeilen = `df -h`;
my $used;

for my $zeile (@zeilen) {
    if ($zeile =~ m[(\d+)%\s+\/$]) {
        $used = $1;
        last;
    }
}

die "df -h doesn't show root usage\n" if ! defined $used;

if ($used > 50) {
    # ...

- Wenn Du split ' ', $string verwendest, brauchst Du chomp nicht mehr.
- Bei > 80% bzw. 90% bekommst Du mehrere Warnungen (> 50, > 80, ...), ist das beabsichtigt?

Gruß 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"

+4 replies
Gast hcx

2011-08-03 14:01

Hallo FIFO,
erstmal Danke für deine Tipps das mit CHOMP wusste ich als ich das Skript geschrrieben habe noch nicht.

Eigentlich brauche ich nur eine Warnung bei usage>50%

eine critical Warning bei usage>80%

und die apt Kommandos bei usage>90%

Sinn des ganzen soll sein das / nicht unbemerkt "vollaufen" kann.

Gruss

hcx
Last edited: 2011-08-03 14:07:04 +0200 (CEST)
- +3 replies
- FIFO
  
  2011-08-03 14:14
  
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  
  Ich meinte nur, dass bei > 80% zwei der if-Bedingungen zutreffen, Du also zwei Meldungen erhältst. Stattdessen kannst Du ja mit if ... elsif ... elsif arbeiten. Hat mit Deinem ursprüngichen Problem nichts zu tun.
  
  Hast Du mal ein Minimalskript geschrieben, was Dir nur die Ausgabe von df -h zeigt?
  
  Editiert von FIFO: renee war schneller ...
  Last edited: 2011-08-03 14:15:30 +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"
  - +2 replies
  - Linuxer
    
    2011-08-03 14:46
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Hi, die Reihenfolge der Prüfung ist auch mit if/elsif entscheidend.
    Wenn zuerst auf >50 geprüft wird, wird das auch bei Werten >80 und >90 wahr sein.
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    if ( $value > 50 ) { # auch wahr, wenn $value > 80 } elsif ( $value > 80 ) { # schon durch den >50 zweig abgedeckt... }
    
    Daher:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    if ( $value > 90 ) { # maximal kritisch } elsif ( $value > 80 ) { # ist ne warnung wert } elsif ( $value > 50 ) { # ist ein hinweis auf 2. halbzeit wert }
    
    Alternativ kann man auch die Bedingung erweitern auf " >50 && <80" , dann dürfte die Reihenfolge nicht mehr relevant sein.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    if ( $value > 50 && $value <= 80 ) { # ... 2. halbzeit } elsif ( $value > 80 && $value <= 90 ) { # warnung } elsif ( $value > 90 ) { # kritisch }
    
    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 hcx
      
      2011-08-03 18:33
      
      Hallo Linuxer,
      
      DANKE eine einleuchtende Erklärung und so einfach - grauliere das können so nicht viele.
      
      Gruss
      
      hcx
+8 replies

Gast hcx

2011-08-03 14:28

Hallo FIFO,

funktioniert bestens - DANKE!

Falls ich noch eine Frage stellen darf, in der definition meiner sub SENDMAIL

gibt der Compiler für diese Zeile

Code (perl): (dl )

 from => 'hackbox@gmx.net',

diese Warnung aus:

Code (perl): (dl )

Useless use of anonymous hash ({}) in void context

Leider verstehe ich nicht wieso jetzt ein anonymer hash sinnlos verwendet wird????

die Definition der sub sieht so aus:

Code (perl): (dl )

sub SENDEMAIL {
        $absender = new Mail::Sender
        (
                {
                        from => 'hackbox@gmx.net',
                        mail => 'mail.gmx.net',
                        authid => 'hackbox@gmx.net',
                        authpwd => 'cr-pup40.zip',
                        debug => $DEBUG,
                        auth => 'LOGIN'
                }
        );

        $absender->MailMsg
        (
                {
                        to =>'hackbox@lug-saar.de',
                        subject => 'Wurzelverzeichnis ',
                        msg => "#### Achtung die Root Partition ist zu mehr als 80% belegt!!!####"
                }
        );

        print "mail wurde verschickt";

Ich bin redlich bemüht den Perl Interpreter zu verstehen, doch noch fällt es mir nicht leicht.

Gruss

hcx
Last edited: 2011-08-03 14:29:58 +0200 (CEST)

+7 replies

FIFO

2011-08-03 14:39

User since
2005-06-01
469 Artikel
BenutzerIn

user image

Guest hcx

Code (perl): (dl )

sub SENDEMAIL {
        $absender = new Mail::Sender
        (
                {
                        from => 'hackbox@gmx.net',
                        mail => 'mail.gmx.net',
                        authid => 'hackbox@gmx.net',
                        authpwd => 'cr-pup40.zip',
                        debug => $DEBUG,
                        auth => 'LOGIN'
                }
        );

Lass mal die runden Klammern weg.
Aus der Mail::Sender-Doku:
new Mail::Sender ([from [,replyto [,to [,smtp [,subject [,headers [,boundary]]]]]]])

bzw.

new Mail::Sender {[from => 'somebody@somewhere.com'] , [to => 'else@nowhere.com'] [...]}

edit: Ist wahrscheinlich nicht der zielführende Tip, weiter unten in der Doku ist ein Aufruf wie Deiner ...
Last edited: 2011-08-03 14:55:19 +0200 (CEST)

+2 replies
renee

2011-08-03 14:53

User since
2003-08-04
14371 Artikel
ModeratorIn

Benutzt bitte *nicht* die indirekte Notation!

Schreibt besser Mail::Sender->new({ from => ... })

Hier werden mögliche Probleme aufgezeigt: http://www.modernperlbooks.com/mt/2009/08/the-prob...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
- Gast hcx
  
  2011-08-03 18:34
  
  Hallo Rene,
  
  danke für den Link ich werde mich mal durchlesen und versuchen es zu berücksichtigen.
  
  Gruss
  
  hcx

Gast hcx

2011-08-03 18:27

Hallo FIFO,

da hab ich ja was losgetreten :-)

Also die Abfrage sieht nun so aus:

Code (perl): (dl )

die "df -h doesn't show root usage\n" if ! defined $used;

if ($used > 50) {
        print "WARNUNG ROOTPARTITION IST ZU MEHR ALS 50% BELEGT \n" or die "KANN WURZELVERZEICHNIS NICHT ÖFFNEN!";
}
elsif ($used > 80) {
        print "KRITISCHE WARNUNG ROOTPARTITION IST ZU MEHR ALS 80% BELEGT \n" or die "KANN WURZELVERZEICHNIS NICHT ÖFFNEN!";
}
elsif ($used > 90) {
        print "ROOTPARTITION DROHT VOLLZULAUFEN ERGREIFE MASSNAHMEN \n" or die "KANN WURZELVERZEICHNIS
        NICHT ÖFFNEN!";
        &SENDEMAIL;
        &SENDESMS;
        system("apt-get autoclean");
        system("apt-get autoremove");
        system("apt-get clean");
        system("apt-get install localepurge");


}

die Definition der sub SENDEMAIL habe ich so geschrieben - ich habe es hoffentlich richtig verstanden - ich und SYNTAX

Code (perl): (dl )

sub SENDEMAIL {
        $absender = new Mail::Sender
        (
                {
                        [from => 'hcx@zz.net'],
                        [mail => 'mail.gmx@zz.net'],
                        [authpwd => 'geheim'],
                        [debug => $DEBUG],
                        [auth => 'LOGIN']
                }
        );

        $absender->MailMsg
        (
        {
                        [to =>'hcx@yyy.de'],
                        [subject => 'Wurzelverzeichnis'],
                        [msg => "#### Achtung die Root Partition ist zu mehr als 80% belegt!!!####"]
                }
        );

        print "mail wurde verschickt";


}

und

Code (perl): (dl )

sub SENDESMS {
        $absender = new Mail::Sender
        (
                {
                        [from => 'hcx@xxx.net'],
                        [mail => 'mail.xxx.net'],
                        [authid => 'hcx@gxxx.net'],
                        [authpwd => 'geheim'],
                        [debug => $DEBUG],
                        [auth => 'LOGIN']
                }
        );

        $absender->MailMsg
        (
                {
                        to =>'49108154711.weaver_system@tmsg.de',
                        subject => 'Wurzelverzeichnis ',
                        mag => "#### Achtung die Root Partition ist zu mehr als 80% belegt!!!####"
                }
        );


print "SMS wurde verschickt";

Syntax Error oder Warnings erhalte ich jedenfalls nicht mehr.

Gruss

hcx

+3 replies

Gast hcx

2011-08-03 18:31

Hallo FIFO,

nochmals Danke für die Hinweise
die Abfrage habe ich so geschrieben:

Code (perl): (dl )

if ($used > 50) {
        print "WARNUNG ROOTPARTITION IST ZU MEHR ALS 50% BELEGT \n" or die "KANN WURZELVERZEICHNIS NICHT ÖFFNEN!";
}
elsif ($used > 80) {
        print "KRITISCHE WARNUNG ROOTPARTITION IST ZU MEHR ALS 80% BELEGT \n" or die "KANN WURZELVERZEICHNIS NICHT ÖFFNEN!";
}
elsif ($used > 90) {
        print "ROOTPARTITION DROHT VOLLZULAUFEN ERGREIFE MASSNAHMEN \n" or die "KANN WURZELVERZEICHNIS
        NICHT ÖFFNEN!";
        &SENDEMAIL;
        &SENDESMS;
        system("apt-get autoclean");
        system("apt-get autoremove");
        system("apt-get clean");
        system("apt-get install localepurge");


}

die subfunktionen so definiert - ich hioffe dich richtig verstanden zu haben - ich und Syntax

Code (perl): (dl )

sub SENDEMAIL {
        $absender = new Mail::Sender
        (
                {
                        [from => 'system@gmx.net'],
                        [mail => 'mail.gmx.net'],
                        [authid => 'hcx@gmx.net'],
                        [authpwd => 'geheim'],
                        [debug => $DEBUG],
                        [auth => 'LOGIN']
                }
        );

        $absender->MailMsg
        (
        {
                        [to =>'hcx@lug-saar.de'],
                        [subject => 'Wurzelverzeichnis'],
                        [msg => "#### Achtung die Root Partition ist zu mehr als 80% belegt!!!####"]
                }
        );

        print "mail wurde verschickt";

und

Code (perl): (dl )

sub SENDESMS {
        $absender = new Mail::Sender
        (
                {
                        [from => 'system@gmx.net'],
                        [mail => 'mail.gmx.net'],
                        [authid => 'hcx@gmx.net'],
                        [authpwd => 'geheim'],
                        [debug => $DEBUG],
                        [auth => 'LOGIN']
                }
        );

        $absender->MailMsg
        (
                {
                        to =>'49108154711.system_system@tmsg.de',
                        subject => 'Wurzelverzeichnis ',
                        mag => "#### Achtung die Root Partition ist zu mehr als 80% belegt!!!####"
                }
        );


print "SMS wurde verschickt";

Syntax Error und Warnings bekomme ich jedenfalls nicht mehr.

Gruss

Uli

Last edited: 2011-08-03 18:33:56 +0200 (CEST)

pq

2011-08-03 18:35

User since
2003-08-04
12208 Artikel
Admin1

auch an dich: bitte nicht zweimal dasselbe posten!
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

2011-08-04 07:25
User since
2005-06-01
469 Artikel
BenutzerIn
Hi, wie Linuxer ja schon erklärt hat, musst Du die Reihenfolge der if-Bedingungen beachten (die größte Zahl zuerst):
Code (perl): (dl )

1 2 3

if ($used > 90) { ... } elsif ($used > 80) {... } elsif ($used > 50) { ... }
Der Aufruf von Mail::Sender->new() macht so keinen Sinn, die eckigen Klammern in der Doku des Moduls sollen kenntlich machen, dass die Argumente fakultativ sind. Deine Version erzeugt eine Liste '()' mit genau einem Element, nämlich einem anonymen Hash '{}', dieses hat als Elemente eine zufälligerweise gerade Anzahl von Array-Referenzen (anonymen Arrays) '[]'. Ersetz mal die Kommata hinter dem 1., 3. usw. Element durch den (äquivalenten [edit: s. unten]) Pfeil, dann siehst Du folgenden Aufbau:
Code (perl): (dl )

1 2 3 4 5

{ [from => 'system@gmx.net'] => [mail => 'mail.gmx.net'], [authid => 'hcx@gmx.net'] => [authpwd => 'geheim'], [debug => $DEBUG] => [auth => 'LOGIN'] }
Das ist dasselbe wie:
Code (perl): (dl )

1 2 3 4 5

{ ['from', 'system@gmx.net'] => ['mail', 'mail.gmx.net'], ['authid', 'hcx@gmx.net'] => ['authpwd', 'geheim'], ['debug', $DEBUG] => ['auth', 'LOGIN'] }
Das ergibt zwar keine Fehlermeldung (Arrayreferenzen sind ja Skalare), ist aber sicher nicht gewünscht.

Schau Dir am besten mal 'perldoc perlreftut' und 'perldoc perldsc' an.
Besser ist (vgl. renee) ohnehin die 'direkte' Objektsyntax, also das Aufrufen des Konstruktors mit
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

my $mailsender = Mail::Sender->new( { from => 'system@gmx.net', mail => 'mail.gmx.net', authid => 'hcx@gmx.net', authpwd => 'geheim', debug => $DEBUG, auth => 'LOGIN' } );
Hier gibst Du dem Konstruktor eine Hashreferenz (ein anonymes Hash) als Argument.

Gruß FIFO

edit: zur Pfeil- vs. Kommanotation: Der Pfeil ist wie ein Komma, heißt auch 'fat comma', bewirkt aber ein automatisches Quoten des linken Operanden, wenn dieser ein bareword ist. (foo => $bar) ist also äquivalent zu ('foo', $bar)

Editiert von FIFO: Pfeil/Komma klarer, perlreftut
Last edited: 2011-08-04 09:32:50 +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"

renee

2011-08-03 14:09

User since
2003-08-04
14371 Artikel
ModeratorIn

Hast Du Dir testweise mal die Ausgabe von 'df -h' ausgeben lassen?
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View all threads created 2011-08-03 12:08.