Discussion :

[SonyBlack]

Tout d'abord, bonjour à tous.
Je suis nouveau sur le forum et, pour le peu que j'en ai lu,
cette communauté m'a l'air conviviale.

Maintenant que les présentations sont faites,
on va pouvoir rentrer dans le vif du sujet.

Je débute dans la programmation en Perl mais je me débrouille
vaille que vaille avec mes bouts de connaissances en Java.
Cependant, ce coup-ci, je bloque et même mes recherches
sur google n'y ont rien fait.

Je travaille sur un petit script qui donne les valeurs minimales et maximales d'un fichier .txt qui est sensé représenter les différentes températures au cours d'une journée. Dans ce fichier .txt, chaque ligne représente une heure de la journée. Vous l'aurez devinez, il y en a 24.
Cependant, j'aimerais que mon script puisse faire la moyenne d'un fichier avec plus de ligne (dans le cas où j'aurais les valeurs d'une semaine, heure par heure, ligne après ligne).

En commençant mon script, je pensais que trouver la somme de ma tableau
serait le plus facile, et pourtant voilà 2h que je bloque.

Sauriez-vous m'aider ?

Voici un extrait de mon travail à l'heure actuelle :

#=========================================================
# Script : temp_max_min_moy.pl
# Date : 01/03/2010
# USAGE :
#=========================================================

open(FICHIER, "test.txt");
@texte = <FICHIER>;

#=========================================================
#Calcul de la temperature minimale
#=========================================================
sub ascen { return $a <=> $b }
@out = sort ascen @texte;

$tempmin = @out[0];
chomp($tempmin);
$nbretempmin = 0;

#Demande de l'heure exacte de la temperature minimale
foreach $ligne (@texte)
{
if ( $ligne != $tempmin )
{
$nbretempmin++;
}
else
{
last
}
}

#=========================================================
#Calcul de la temperature maximale
#=========================================================
sub descen { return $b <=> $a }
@out = sort descen @texte;

$tempmax = @out[0];
chomp($tempmax);
$nbretempmax = 0;

#Demande de l'heure exacte de la temperature maximale
foreach $ligne (@texte)
{
if ( $ligne != $tempmax )
{
$nbretempmax++;
}
else
{
last
}
}
#=========================================================
#Calcul de la moyenne
#=========================================================

# C'est ici que ça bloque !
#$nbre = 0;
#@texte = @somme;
#
#foreach $ligne2 (@somme)
#{
# $nbre++;
# @somme[$nbre] = $add;
# $somme = $ligne2 + $add;
# if ($ligne2 = undef){
# last
# }
#
#}




print("Temp. min. : $tempmin ($nbretempmin h)\n");
print("Temp. max. : $tempmax ($nbretempmax h)\n");
print("Temp. moy. : $moyenne \n");

close(FICHIER);

[Philou67430]

En premier lieu, utilise la balise [code] au lieu de la balise [QUOTE] pour insérer du code (icône ), il sera bien indenté et colorisé

Ensuite, pour faire la somme d'une liste, il existe un module qui fait ça tout seul : List::Util.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
use strict;
use warnings;
use List::Util qw(sum);
 
my @liste = (10, 20, 14, 15, 8);
my $moyenne = sum(@liste) / @liste;

Le module List::Util fourni également les fonctions min et max.

Ton script devrait se pouvoir se resumé à quelques lignes (on peut même l'envisager en uniligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
perl -MList::Util=min,max,sum -e 'chomp(@liste = <STDIN>);print "min=", min(@liste), ", max = ", max(@liste), ", moy = ", sum(@liste)/@liste, "\n"' < temp.txt

[Schmorgluck]

Je ne comprends pas bien comment tu cherches à procéder. Mais tout d'abord, le conseil habituel : utilise le pragma strict, surtout pour un programme de plus de dix lignes. Il te forcera à déclarer toutes tes variables avec my.

D'autre part, tu devrais utiliser les balises CODE (symbole # dans la barre) plutôt que les balise QUOTE quand tu postes du code.

Pour faire la somme des éléments d'un tableau, il n'y a rien de plus simple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
# soit un tableau @tableau
my $somme=0;
foreach my $element (@tableau)
{
  $somme+=$element ;
}
#on aurait pu également écrire :
# $somme+=$element foreach my $element (@tableau);
# et voilà, la variable $somme contient la somme des éléments de @tableau.
# et si tu veux la moyenne...
my $moyenne=$somme/@tableau if @tableau>0;

EDIT: pris de vitesse, et oui, utiliser List::Utils est mieux, mais je voulais mettre en avant certains fondamentaux du langage qui me semblent échapper à SonyBlack.

[Philou67430]

EDIT: pris de vitesse, et oui, utiliser List::Utils est mieux,

Sans le s à la fin de Utils, c'est encore mieux
Mais ne pas oublier de l'ajouter pour MoreUtils

mais je voulais mettre en avant certains fondamentaux du langage qui me semblent échapper à SonyBlack.

Ca, ça ne fait jamais de mal

[SonyBlack]

Merci beaucoup.

En effet, je sais que j'ai encore beaucoup de progrès à faire
en Perl mais je crois que ça viendra petit à petit.
Je vais acheter un bon bouquin un de ces quatre et
le lire de fond en comble pour mieux comprendre ce merveilleux
langage.


Encore merci à vous.

Have A Nice Day.

[Philou67430]

Un lama book ou mieux, un Camel book...
Dommage qu'ils n'existent plus en édition française...