Manipulation de tableau avec PERL
Résolu/Fermé
A voir également:
- Manipulation de tableau avec PERL
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Afficher un tableau en c - Forum C
- Tableau word - Guide
1 réponse
TMTOWTDI@ubuntu:~$ cat text
me 01/02 790 beau
je 02/02 1024 beau
ve 03/02 650 mauvais
sa 04/02 120 beau
lu 06/02 439 mauvais
ma 07/02 370 beau
me 08/02 930 beau
TMTOWTDI@ubuntu:~$ cat moyenne_des_recettes.pl
#!/usr/bin/perl
use strict;use warnings;
my (%h,%c);
open F,"text" or die "E/S: $!\n";
while(<F>){
next unless /.*\s+(\d+)\s+(beau|mauvais)/;
$h{$2}+=$1;
$c{$2}++;
}
print "Moyenne par $_ temps : ",$h{$_}/$c{$_},"\n" for keys %h;
__END__
TMTOWTDI@ubuntu:~$ perl moyenne_des_recettes.pl
Moyenne par mauvais temps : 544.5
Moyenne par beau temps : 646.8
me 01/02 790 beau
je 02/02 1024 beau
ve 03/02 650 mauvais
sa 04/02 120 beau
lu 06/02 439 mauvais
ma 07/02 370 beau
me 08/02 930 beau
TMTOWTDI@ubuntu:~$ cat moyenne_des_recettes.pl
#!/usr/bin/perl
use strict;use warnings;
my (%h,%c);
open F,"text" or die "E/S: $!\n";
while(<F>){
next unless /.*\s+(\d+)\s+(beau|mauvais)/;
$h{$2}+=$1;
$c{$2}++;
}
print "Moyenne par $_ temps : ",$h{$_}/$c{$_},"\n" for keys %h;
__END__
TMTOWTDI@ubuntu:~$ perl moyenne_des_recettes.pl
Moyenne par mauvais temps : 544.5
Moyenne par beau temps : 646.8
24 mars 2012 à 09:51