Salut,
Citation
Basile STARYNKEVITCH
Perl est vraiement bidulique, et dans le genre des langages de script, on a fait des progrès depuis, et ces progrès sont significatifs
Ça c'est franchement du troll moisi façon Roquefort oublié dans le panier à pique-nique. Perl est un langage de script performant et expressif qui n'a rien à envier à ses petits camarades (à part peut-être le modèle objet qui est peut-être un peu moins mignon). Et pour les tâches d'administration, je le trouve particulièrement indiqué, puisqu'il a précisément été conçu pour allier la puissance du C à la souplesse du shell.
Et au passage, conseiller Ocaml, faut le faire. Je crois qu'il y a peu de langages qui soit aussi difficiles à apprendre en autodidacte tant la documentation est rare (inexistante même, si on retire celle dédiée aux matheux, dépourvue d'application pratique).
Pour répondre à la demande d'Arnaud, voilà ce qu'on pourrait imaginer (mais je ne suis pas expert en Perl non plus) :
my ($fichier, $seuil, %taille) = ("/tmp/exemple", 10000);
open F, "<" . $fichier or die "Ne peut ouvrir $fichier.\n";
while (<F>) {
$taille{$2} = $1 if m/^([0-9]+)\t([0-9]+)/;
}
close F;
for (keys %taille) {
print "L'utilisateur '$_' dépasse le quota ($seuil).\n" if $taille{$_} > $seuil;
}
Je te conseille de tenter de comprendre ce qui se fait dans ce script à l'aide de ce
bon tutoriel d'intro (mes 2¢).
Poste le Monday 31 December 2007 17:35:59