Perl !? comment a aime

Marsh Posté le 09-01-2004 à 00:16:28

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 ?

Marsh Posté le 09-01-2004 à 00:16:28

Marsh Posté le 09-01-2004 à 09:24:43

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

Marsh Posté le 10-01-2004 à 12:03:51

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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *