script lecture fichier et histogramme

Bonjour,

Je dispose d'un fichier texte comme suit:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

num_video: 1 - note: 9 - fgt - age: 27 - pratique: oui - duree: oui num_video: 12 - note: 8 - fgt - age: 27 - pratique: oui - duree: oui num_video: 15 - note: 9 - fgt - age: 27 - pratique: oui - duree: - - num_video: 14 - note: 9 - MB - age: 30 - pratique: oui - duree: - - num_video: 17 - note: 8 - MB - age: 30 - pratique: oui - duree: oui num_video: 12 - note: 9 - MB - age: 30 - pratique: oui - duree: oui num_video: 17 - note: 9 - mhb - age: 29 - pratique: oui - duree: - - num_video: 28 - note: 8 - mhb - age: 29 - pratique: oui - duree: oui num_video: 12 - note: 5 - noly - age: 34 - pratique: non - duree: - - num_video: 1 - note: 8 - noly - age: 34 - pratique: non - duree: non num_video: 3 - note: 6 - noly - age: 34 - pratique: non - duree: - - num_video: 5 - note: 4 - JPC - age: 52 - pratique: non - duree: non num_video: 12 - note: 6 - JPC - age: 52 - pratique: non - duree: non num_video: 17 - note: 7 - JPC - age: 52 - pratique: non - duree: - -

---

Je voudrais avoir un script (avec n'importe quel langage de script) qui lit un fichier texte et, si possible, trace un histogramme.

Le script calcule la moyenne des notes ("note") attribuées pour chaque vidéo ("num_video"), ainsi que l'écart type.

Merci d'avance pour votre aide.

Alors, pour faire gagner du temps à tout le monde, il va falloir préciser un peu ta demande.

Veux tu qu'on écrive le script pour toi? Si tel est le cas, tu risques d'essuyer un refus massif de la part des gens ici.
Sais tu écrire ce script dans un langage en particulier? As tu des compétences en informatique? En programmation?

j'ai ce code qui calcule la moyenne et l'ecart type des note attribuées pour chaque vidéos

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

#!/usr/bin/perl use strict; use warnings; use Statistics::Basic qw/:all/; my %videos; my $file = 'data.txt'; open my $fh, "<", $file or die "can't open < $file: $!"; while (my $ligne = <$fh>) { # Lecture numéro vidéo et note my ( $num, $note ) = $ligne =~ /num_video\s*:\s*(\d+)\s*-\s*note\s*:\s*(\d+)/; if ( defined $num and defined $note ) { if ( exists $videos{$num} ) { # Rajout d'une note à la liste déjà présente d'un tableau anonyme contenant la note push @{ $videos{$num} }, $note; } else { # Création d'un tableau anonyme contenant la note $videos{$num} = [$note]; } } } close $fh; # Lecture des notes pour calculer les moyenne et écart type foreach my $num_videos ( sort { $a <=> $b } keys %videos ) { print "videos : $num_videos, Avg: " . mean( @{ $videos{$num_videos} } ) . ", Stddev: " . stddev( @{ $videos{$num_videos} } ) . "\n"; }

---

Comment est ce que je peux afficher, en plus de la moyenne et de l'écart type, le nombre de notes attribuées pour chaque vidéos?

exemple:

Citation:

---

num_video : 1 - note : 10
num_video : 2 - note : 10
num_video : 1 - note : 8
num_video : 1 - note : 6
num_video : 3 - note : 2
num_video : 2- note : 8


resultats:

pour video 1 : mean= 6 ; stddev = .. ; nombre=3
pour video 2 : mean= 9 ; stddev = .. ; nombre=2
pour video 3 : mean= 2 ; stddev = 0 ; nombre = 1

---

Merci d'avance