Bonjour,
J'ai fait un script perl qui récupère plusieurs fichiers de logs de connexions en fonction d'un critère, en vu de faire les statistiques du mois. Le script a l'air de fonctionner. J'aimerai pouvoir mettre le script sur le web avec un formulaire, afin que l'utilisateur puisse saisir le mois (sous la forme 200810) pour lequel il veut éditer les statistiques et automatiser l'éditon à l'aide d'un bouton submit.
Pour le moment, je ne sais pas comment m'y prendre. Si quelqu'un a une idée, ce serait sympa.
Merci d'avance.
Deniss92
Voici le script
#!/usr/bin/perl
system "clear";
chdir('/home/user/stats') || die ("Erreur chdir \n");
$motif="COMPTE_UTILISATEUR";# pour ne récupérer que les lignes ayant le motif "COMPTE_UTILISATEUR"
$mois="*200810*";# pour récupérer la liste des fichiers de logs dont le nom a un motif "200810"
%table;
chomp(@logs = glob($mois));
foreach $e(@logs){
open FILE,"$e" or warn "E/S : $!\n";
while (<FILE>){
if ($_=~/$motif/){
$total++;
chomp;
($date,$compte,$id,$user,$ip)=split (/\|/,$_);
$_=join(";",$user,$date);
push @{$table{$user}}, $date;
}
}
}
print "Utilisateur\t| Nombre de connexion\n";
print "_____________________________________\n\n";
foreach $user (sort keys %table) {
$nombre = 0;
@dates = @{$table{$user}};
foreach $date (@dates) {
$nombre++;
}
$longueur=15;
$dif=" " x ($longueur-length($user));
print "$user $dif| $nombre\n";
}
print "_____________________________________\n\n";
print "Total\t\t:",$total,"\n";
Résultat
Utilisateur | Nombre de connexion
_____________________________________
Alain Terrieur | 100
Alex Terrieur | 20
Chantl Opéra | 16
Aude Veiselt | 20
Jean Peuplu | 30
Mégane Renault | 81
Molo Molo | 18
Gilet de sauvetage | 16
Allan Limite | 103
Toto | 70
Tata | 3
Autres | 500
_____________________________________
Total : xxxx
