Forum Programmation.perl monitoring disque dur

Posté par .
Tags : aucun
-3
10
oct.
2008
Bonjour,

J'essaye de surveiller l'espace de disque dur en utilisant la comande shell "df" , grace à un script Perl comme suit :


#!/usr/bin/perl -w
use MIME::Lite;

foreach (`df -h | tail +2 `) {
s/%//;
my @i=split;
if ($i[4] > 10 ) {
print "$i[0]\t($i[5])\t\t$i[4]%\n";
}


le soucis c'est que j'obtient le message d'erreur suivant :
Missing right curly or square bracket at ./monitor_test.pl line 9, at end of line
syntax error at ./monitor_test.pl line 9, at EOF
Execution of ./monitor_test.pl aborted due to compilation errors.

Merci de votre aide
  • # Oulalalala ....

    Posté par . Évalué à 3.

    Non mais une question comme ça, si simple, ça craint un petit peu.
    Rien que traduire le message d'erreur sur google translate t'aurait permis de trouver ton erreur...
    En gros il te manque un '}' ou un ']' à la ligne 9 ....
    Relis ton code, réfléchis deux secondes ... bon allé 10 secondes ... et tu devrais résoudre le problème tout seul comme un grand...
  • # Foreach

    Posté par (page perso) . Évalué à 2.

    C'est vrai que t'as pas du écrire beaucoup de scripts dans ta vie :-)
    Ton foreach n'est pas fermé.
  • # indentation

    Posté par . Évalué à 3.

    Un conseil: indente toujours ton code quand tu fais des blocks d'instructions. Tu aurais desuite vu ton erreur.
    • [^] # Re: indentation

      Posté par . Évalué à 1.

      Oui j'ai vu cela apres avoir posté, je dois prendre des vacances ....

      Mais il n'y a t-il pas moyen de supprimer les postes non pertinents

Suivre le flux des commentaires

Note : les commentaires appartiennent à ceux qui les ont postés. Nous n'en sommes pas responsables.