Discussion :

[Arnaud62]

Bonjour,

Please Help Me !

Pour l'historique, je souhaite mettre un système d'alerte lorsqu'un seuil qu'occupe un dossier est atteint.
Pour commencer, j'ai un fichier texte de ce type :

Taille Utilisateur
9899898 298934
9293 298935
90 298936

Les séparateurs sont des tabulations.
La première ligne d'en tete est retiréé du fichier texte.

Je souhaite intégrer ces données dans un tableau associatif.

Par la suite, je pourrais faire le traitement de ce tableau.
Récupérer ceux qui dépassent le seuil. Leur envoyer un mail automatique ... etc.

Ma première étape (bloquante) est de mettre ces données dans le tableau.
Je débute en perl et ai du mal à maitriser les fichier, boucle et tableau associatif.

[Woufeil]

Bonjour,

Et tu veux que ton hash est quelle forme ? Si tu ne nous dis pas précisément ce que tu veux obtenir, il nous sera difficile de t'aider. A priori, je dirais qu'il te faudrais lire le fichier ligne à ligne et extraire chaque partie via une regex par exemple...

[Arnaud62]

J'ai mon fichier texte de la forme
"Taille Boite aux Lettre" [tabulation] "Nom utilisateur"

Je veux le tableau de la même forme.
Que je puisse retrouver la taille de la boite au lettre de l'utilsateur XXX.

Pour etre plus concret, j'ai ma liste des BAL et les tailles de BAL.
Et je voudrais lister les personnes dépassant par exemple 500000 (ko)

Je ne sais pas si je suis très clair, j'ai surement du mal à expliquer sachant que je ne comprends pas encore bien tout Linux.

[Jedai]

Fais un essai et nous t'aiderons à le corriger, mais nous ne ferons pas le code pour toi, ce ne serait pas te rendre un service à long terme.

--
Jedaï

[Arnaud62]

Bien evidemment.
Mais j'ai une soluce fonctionelle ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
my ($fichier, $size_limit, %taille) = ("/root/BAL_Adh.txt", 500000);
open FILE, "<" . $fichier or die "Ne peut ouvrir $fichier.\n";
while (<FILE>) {
    $taille{$2} = $1 if m/^([0-9]+)\t([0-9]+)/;
}
close F;
for (keys %taille) {
    print "L'utilisateur '$_' dépasse le quota ($size_limit).\n" if $taille{$_}
> $size_limit;

Mais je souhaite maintenant utiliser l'envoi de mail :
au début du script je met :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

use Mail::Sendmail;

Quelque soit le code qui suit, cela me renvoie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Can't locate Mail/Sendmail.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.4 /usr/local/share/perl/5.8.4 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at ./BAL_limit_alert.pl line 6.
BEGIN failed--compilation aborted at ./BAL_limit_alert.pl line 6.

[Schmorgluck]

Ben, faudrait voir à l'installer, le module, si tu veux pouvoir t'en servir. Ça peut aider.