Perl

Perl !? comment a aime

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Perl !? comment a aime

yannvi

Salut a tous
je reviens pour un avis :
j ai un fichier qui contient des lignes du genre

jj hh mm ss qte ( jj=hour, hh=heure ..enfin vous voyez le truc , qte= une quantite. Intervalle de mesure ss. Donc pour jj on a un tonne de ligne)

le but est de pondre la la qte max par jj et la qte moyenne par jj
alors j'ai ecris un truc ds le genre

Code :

boucle:
$jj=(split(/ /,$_))[0]; # pour recup jj
$lu=(split(/ /,$_))[4]; # pour recup qte
%jcpu = ($jj=>push(@tcpu,$lu)); # par jj je fais un hash ..jj
# et tableau de qte pour
# determiner le max sur jj
$cpt{$jj}++; # compte des jj identique
$cpu{$jj} += (split(/ /,$_))[4]; # somme de qte
fin boucle
foreach $jj (keys %cpt){
# pour chaque jj pris ds un hash qcq
($jj=>(@max = sort @tcpu));# tri de mon tableau pour extraire max
$moycpu = $cpu{$jj}/$cpt{$jj};# calcul de la moyenne
chomp @max ;
print "$jj -> $max[0] -> $moycpu \n";}

Vous en pensez quoi ?

Publicité

Aricoh

gentil mais fo po pousser

J'ai pas tout capté mais juste un truc à propos de la fonction sort()

Si tu as des valeurs du genre 1,2,...,9,10,11,12,...,21,22,23, la fonction sort va te retourner son tri sous cette forme :

1,10,11,12,13,...,2,20,21,22,23,...,3,30,31,...

Essaie ceci pour avoir un tri numérique :

Code :

# @max = sort @tcpu # à remplacer par :
@max = sort { $a <=> $b }(@tcpu)

Là, tu auras 1,2,3,... etc.

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

yannvi

Tiens j avais pas pense a ca ...comme ...c sympa de me faire la remarque ..

FORUM HardWare.fr

Programmation

Perl

Perl !? comment a aime

Sujets relatifs
[PERL] Structure d'arbre orienté objet	[PERL] Objet et fonction "private"
script perl pour topten sur cache	[PERL] Les librairies utiles
[PERL] Passage de plusieurs array en paramêtre à une fonction	[PERL] Debugger Perl
[perl] comme crée un daemon ??	perl et balisage: un algo? (xml inside)
[perl] timer	[PERL] Regular expression
Plus de sujets relatifs à : Perl !? comment a aime

Page générée en 0.047 secondes