Perl, Fichier textes, et hashes

Version imprimable

31/12/2007, 16h16
Arnaud62

Perl, Fichier textes, et hashes

Bonjour,

Please Help Me ! :aie:

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.
31/12/2007, 19h33
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...
03/01/2008, 12h07
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.
03/01/2008, 12h36
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ï

Soluce 1

Bien evidemment.
Mais j'ai une soluce fonctionelle ;

Code:

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;

:king:

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

Code:

use Mail::Sendmail;

Quelque soit le code qui suit, cela me renvoie

Code:

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.

:bug:

03/01/2008, 17h46
Schmorgluck

Ben, faudrait voir à l'installer, le module, si tu veux pouvoir t'en servir. Ça peut aider.
03/01/2008, 18h54
messinese

Oui :lol: Effectivement , le module Mail::SendMail est absent chez toi !
Installe -le et teste , ça devrait aller mieux ....8-)
04/01/2008, 08h54
Arnaud62

Ce serveur est un serveur de messagerie.
Je n'ai pas encore toutes les informations. :oops:
Mais installer Sendmail ne risque pas de perturber la messagerie actuellement fonctionelle ?
04/01/2008, 09h28
Mr6

Aucun rapport, on te demande juste d'installer le module dont tu veux te servir, c'est tout !

@+
Mr6
04/01/2008, 12h07
Arnaud62

J'utilise betement la commande du shell "mail" qui me suffit amplement.
:yaisse2:
Merci.