Perl

comptage (nb max de user a instant t )

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : comptage (nb max de user a instant t )

yannvi

Bsoir a tous !
Je voudrais avant tout remercier tous ceux qui m ont aider a repondre a toutes les questions que je me posais ...et surtout vous souhaitez une hyper mega BONNE ANNEE 2004 ... bcp de sante bonheur .Et chaleur ds ton corps ... Bref c pas le sujet ...

Je reviens pour une question :
j ai un fichier genre ..

utilisateur; heure ( hh:mm:ss:miliseconde)

Et des lignes comme ca y en a une tripote dans mon fichiers .
Le but es de sortir le nombre de "utilisateur" max a un instant "heure"

Je me suis construit un tableau ..classique ... mais seulement je ne trouve pas le traitement que je dois lui appliquer pour sortir ce qu on veut .

L'un de vous aurait une idee par hasard ...
Merci

Publicité

pospos

Si tu ne veut que le nombre de "utilisateur" max a un instant "heure" tu peux t'en sortir avec uen tructure Perl, mais si tu commence à avoir besoin d'autres requetes tu aura interet à passer tout ca dans une BDD et poser tes requetes en SQL

Pour ton probleme particulier, tu peux faire une hash table avec comme clé heure, et que tu increment à chaque fois:

my %nb_utilisateurs;
while (my $ligne = <IN> ) {
my ($utilisateur, $heure) = split(/\s*;\s*, $ligne);
$nb_utilisateurs{$heure}++;
}

yannvi

Effectivement la meilleur solution aurait ete d avoir un BDD Mais l architecture qu'il y a ne le permet pas .Le bout de code ci-dessus ne me renvoie pas le resultat attendu ..

Tentacle

Citation :

Et des lignes comme ca y en a une tripote dans mon fichiers .
Le but es de sortir le nombre de "utilisateur" max a un instant "heure"

Tu pourrais préciser si tu veux connaître le nombre maximal d'utilisateur étant enregistré à une heure précise (donc par exemple entre 17h00 et 18h00) ou le nombre maximal d'utilisateur dans un écart de temps d'une heure (par exemple 17h15 17h30 17h45 18h00 18h15 18h45 ... le max se trouve entre 17h15 et 18h15 ou 17h30 et 18h30 si on exclu la borne sup).

Dans les 2 cas, le traitement est différent

yannvi

Ben en fait ce que je veux sortir c le nombre d'utilisateur maximum a un instant donne .. c a la seconde car ... sur une seconde j'ai enormement de transaction . exemple de ligne :

utilisateur2;HH:MM:SS
utilisateur2;HH:MM:SS
utilisateur1;HH:MM:SS
utilisateur1;HH:MM:SS
utilisateur1;HH:MM:SS
utilisateur2;HH:MM:SS
utilisateur2;HH:MM:SS
utilisateur1;HH:MM:SS
utilisateur2;HH:MM:SS
utilisateur2;HH:MM:SS
utilisateur2;HH:MM:SS
utilisateur3;HH:MM:SS
etc ... et a une HH:MM:SS donnee je veux donner le nombre d'utilisateurs different , pour calculer le max .
Pour info c un peu pour determiner a quelle hh:mm:ss de la journee j ai un max

Tentacle

Dernière question, ces lignes sont triées par ordre d'heure hh:mm:ss ou elles peuvent être dans le désordre ? Si c'est en ordre, c'est tout simple mais sinon je pense qu'il faut passer par un tableau.

yannvi

vu que ces lignes sont extraites d'une log de cache , elles sont triees . dans ordre croissant de HH:MM:SS

Tentacle

Voilà par exemple :

Code :

<?php
$FileName = "donnee.dat";
if ($FileHandle = fopen ($FileName, "r" )) {
$PeakHours = array ();
$PeakLevel = 0;
$CurrentHour = "";
$Counter = 0;
while (!feof ($FileHandle)) {
$Entry = explode (";", fgets ($FileHandle));
if ($Entry[1] == $CurrentHour) {
$Counter ++;
} else {
if ($Counter > $PeakLevel) {
$PeakHours = array ($CurrentHour);
$PeakLevel = $Counter;
} else if ($Counter == $PeakLevel) {
array_push ($PeakHours, $CurrentHour);
}
$CurrentHour = $Entry[1];
$Counter = 1;
}
}
fclose ($FileHandle);
}
print_r ($PeakHours);
echo $PeakLevel;
?>

Et en plus ça gère si il y a plusieurs heures qui ont le même pic ... la liste des heures est dans $PeakHours (un tableau) et le nombre d'utilisateurs à ce moment là est $PeakLevel;
Il lit directement le fichier ... dont le nom est dans $FileName.

yannvi

Euh ...euh ..suis embarasse ..c en perl que je cherche ...connais pas le php

Tentacle

yannvi a écrit :

Euh ...euh ..suis embarasse ..c en perl que je cherche ...connais pas le php

Ho zut désolé, je sais pas pourquoi j'étais embarqué dans PHP
Je vais voir ça en Perl mais c'est pas grandement différent normalement

Disons que l'algorithme est identique

Message édité par Tentacle le 06-01-2004 à 21:52:04

Publicité

pospos

yannvi a écrit :

Effectivement la meilleur solution aurait ete d avoir un BDD Mais l architecture qu'il y a ne le permet pas .Le bout de code ci-dessus ne me renvoie pas le resultat attendu ..

je te dit pas que le bout de code va marcher directe, c'etait juste pour donner l'idée

en gros, si tes lignes sont sous la forme
utilisateur2;HH:MM:SS
utilisateur2;HH:MM:SS
utilisateur1;HH:MM:SS
utilisateur1;HH:MM:SS
utilisateur1;HH:MM:SS
utilisateur2;HH:MM:SS
utilisateur2;HH:MM:SS

pour chaque ligne tu met l'heure (complete, tout ce qui est apres dans un variable $heure, et tu fais:

$compteur{$heure}++;

donc cette hash table te donne le nombre d'utilisateur à chaque HH:MM:SS

ensuite pour connaitre les pics tu classe les clés (c'est à dire les heures) par l'ordre des valurs (c'est à dire le nombre d'utilisateur associés)

donc ca donne un truc du genre :

(j'ai pas ecrit explicitement la boucle et l'extraction de $heure vu que ca dépend de ton script)

Code :

my %compteur;
#la tu fais ta boucle sur les lignes de ton log
# pour chaque ligne de ton log, tu extrait $heure et tu fais:
$compteur{$heure}++;
# fin de ta boucle de lecture du log
# maintenant on va classer tout ca
@classement_decroissant = sort{$compteur{$b} <=> $compeur{$a}} keys %compteur;
#normalement $classement_decroissant[0] te donne l'heure du max:
print "heure du pic: $classement_decroissant[0]\n";
print "deuxieme heure la plusfréquentée: $classement_decroissant[1]\n";
# et evidement pour connaitre le nombre effectif d'utilisateur alors en ligne il suffit de faire:
print "Au max à $classement_decroissant[0] on a eu $compteur{$classement_decroissant[0]} utilisateur\n";
$compteur{$classement_decroissant[0] }

Tentacle

yannvi a écrit :

Euh ...euh ..suis embarasse ..c en perl que je cherche ...connais pas le php

Voilà en Perl =)

Code :

use strict;
my $FileName = "donnee.dat";
open DATAFILE, "<$FileName" or die "Cannot open file '$FileName' : $!\n";
my @PeakHours = ();
my $PeakLevel = 0;
my $CurrentHour = "";
my $Counter = 0;
my $Line = "";
while ($Line = <DATAFILE> ) {
chomp $Line;
my @Data = split /;/, $Line;
if ($Data[1] eq $CurrentHour) {
$Counter ++;
} else {
if ($Counter > $PeakLevel) {
@PeakHours = ($CurrentHour);
$PeakLevel = $Counter;
} elsif ($Counter == $PeakLevel) {
push @PeakHours, $CurrentHour;
}
$CurrentHour = $Data[1];
$Counter = 1;
}
}
close DATAFILE;
foreach my $Hour (@PeakHours) {
print $Hour . "\n";
}
print $PeakLevel;

La partie à la fin étant juste pour afficher le résultat

yannvi

c bien ce que j'avais fais merci pour l'aide ... j'avais un c ...ille sur le tri en fait et je ne triais pas ce qu il fallait...
Bref ...merci

FORUM HardWare.fr

Programmation

Perl

comptage (nb max de user a instant t )

Sujets relatifs
[MySQL] sortir la liste des bases accessibles à un user?	[ MySQL ] Problème d'user
[PERL LDAP] Ajout d'un user dans un group	[MySQL] Access denied to user 'ocbase@localhost' to database 'mysql'.
[PHP] authentifier un user windows (XP)	[script] l'ajout massif d'user dans active directory, ca se script ?
Comment récupérer le login/password d'un user NT ?	[MySQL-Newbie] Les droits accordés à un user....
[Administration MySQL] La table user nettoyée	aide pour faire du user friendly!
Plus de sujets relatifs à : comptage (nb max de user a instant t )

Page générée en 0.073 secondes