Bonjour,
 
Voilà je cherche à trier un fichier texte et je bloque sur la méthode split où l'erreur m'indique que celle-ci n'est pas initialisé. J'ai effectivement oublier de l'initialiser j'ai donc suivi à la lettre mais la même erreur revient :
 

 
 
 
Le fichier texte est composé d'a peu prés 4000 lignes de cette forme :
 
1328051100: 5.5884907200e+06
 
La partie gauche c'est du timestamp, c'est l'autre partie qui m'intéresse, le fichier texte comportait des lignes avec un mot clé qui indiquait qu'elle ne comportait pas de valeur, j'ai donc copié uniquement celle qui comportaient une valeur dans mon tableau.  
Ensuite je cherche a séparé ces 2 valeurs par la méthode split mais c'est là que survient le problème.
En faite, je cherche a écrire uniquement la partie $data qui contient 5.5884907200e+06 (par exemple), dans un autre fichier texte.
Pour au final faire une moyenne de toutes ces valeurs contenu dans $data arrondie à 10^-2 .

Pour ta moyenne, ceci devrait coller:

#!/usr/bin/perl
use strict;
use warnings;
 
system("rrdtool fetch /var/lib/centreon/metrics/50.rrd AVERAGE --start \$\(date -d\'01 january 2012' +%s ) --end \$\( date -d\'31 January 2012\' +%s) > 50.txt" );
#-------Ouverture du fichier contenant les données renvoyées par rrdfetch()
 
my $word = "nan";
my $num = 0;
my $cpt = 0;
 
open(FF,"<50.txt" );
map {s/\s*\n$//;; s/^\d+:\s*//; if ($_) {$num += $_; ++$cpt;}} grep !/$word/io, <FF>;
close FF;
 
 
if ($cpt) {
  printf "%e\n", $num/$cpt;
}
else {
  printf "Aucune ligne trouvee\n"
}

Testé sur un fichier 50.txt comme ceci:

Je suis absent pour 1 à 2h, mais je mettrais qques explications ensuite si nécessaire.
 
A+,

1) grep !/$word/io, <FF>;
ça fait un grep sur le fichier et retourne les lignes ne contenant pas $word. ça retourne ces lignes comme un array
2) map {s/\s*\n$//;; s/^\d+:\s*//; if ($_) {$num += $_; ++$cpt;}} (@lignes)
ça applique {s/\s*\n$//;; s/^\d+:\s*//; if ($_) {$num += $_; ++$cpt;}} à chaque ligne
3) {{s/\s*\n$//;; s/^\d+:\s*//; if ($_) {$num += $_; ++$cpt;}}if ($_) {$num += $_; ++$cpt;}}
Ça vire ce qui est inutile a chaque extrémité: s/\s*\n$//;; s/^\d+:\s*//;
s'il reste qque chose dans la ligne courante $_, ça doit être la chaine contenant les caractères du nombre (et rien de plus), perl le convertit directement en un nombre si je l'utilise en contexte numérique (avec une addition ici).  
Donc si j'ai trouvé un nombre restant a ajouter à ma moyenne, je l'ajoute, et j'augmente le nombre de nombres ajoutés à la moyenne: if ($_) {$num += $_; ++$cpt;}
 
A+,

Bonjour Gilou,
 
Encore merci, j'avance plus vite grâce à toi.    
 
Ensuite au niveau de l'ensemble j'ai compris ce que fait le script mais :
 

 
J'ai compris l'explication générale, j'ai même refait quelques script avec cette fonction en utilisant \w+ (...)
Mais serait-il possible que tu me détaille cette ligne  car j'avoue que si on me demande d'expliquer au détail, je ne saurais pas comment m'y prendre    
 
Enfin le résultat est certes bon mais je n'arrive pas à le convertir en décimal, plus précisement à deux chiffres aprés la virgule avec %0.2f j'obtiens le résultat suivant :
 
5261226.49 alors que je veux 5.26
 
Merci d'avance et bonne journée

{s/\s*\n$//; s/^\d+:\s*//; (il y avait un ; inutile après un premier ;)
c'est  
1) s/\s*\n$//;  
Un classique: on nettoie la fin de ligne
On vire les espaces éventuels (\s espace \s* espaces éventuels) suivis d'un caractère de fin de ligne (\n) en fin de ligne ($)
s/toto// ça remplace (une fois) toto par rien, donc ça le vire, dans la variable $_ qui contient la ligne courante
car, map { blabla } @toto; c'est la même chose que foreach (@toto) {blabla;} qui assigne chaque ligne du tableau @toto à $_
L'avantage de map que j'utilise ici, c'est que comme le tableau arrive après le bloc, on peut y substituer un truc complexe en fin de ligne, alors que ça serait lourd avec un foreach.
2) s/^\d+:\s*//
la aussi, clairement c'est du nettoyage, puisqu'on a // en fin d'expression:
on vire ce qui est en début de ligne (^), qui est constitué d'une suite de chiffres suivis d'un : (\d+:) suivi éventuellement de blancs (\s*)
Bref cette partie vire ce qui est avant le 5.5884907200e+06 d'une ligne 1328051100: 5.5884907200e+06  
tandis que l'autre vire ce qui est après le 5.5884907200e+06 d'une ligne 1328051100: 5.5884907200e+06    (on le voit pas mais il y a du blanc)
Donc au final, les deux ne laissent que la partie 5.5884907200e+06 d'une ligne 1328051100: 5.5884907200e+06  et c'est ce qu'il faut à perl pour qu'il puisse l'interpréter comme un nombre (du blanc avant ou après ferait échouer cela).
 
A+,

Rapide, clair, efficace.
 
Merci j'ai compris le principe et pour le ";" je me disais aussi    
 
Bonne journée.

Comme tu as pu voir sur mon exemple, c'est %.2e et non pas %.2f qu'il faut utiliser
Par contre on ne peut pas contrôler avec (s)printf le nombre de chiffres de l'exposant (2 ou 3).
Bon, il y a toujours moyen de mettre ça dans une chaîne sur laquelle on fait s/\+00/+0/ avant d'afficher la chaine.
  my $a = sprintf "%0.2e\n", $num/$cpt;
  $a =~ s/\+00/+0/;
  print $a;
 
A+,