Manipulation de tableau avec PERL
Résolu/Fermé
A voir également:
- Manipulation de tableau avec PERL
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Tableau word - Guide
- Le fichier contient un tableau présentant un extrait des livres les plus prêtés à paris en 2016. filtrez le tableau pour ne faire apparaître que les bandes dessinées ado. puis filtrez le tableau pour ne faire apparaître que celles dont l'auteur est zep. quel est le titre de la bande dessinée ado de zep qui a été la plus prêtée d'après ce tableau ? ✓ - Forum Windows 10
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif suivant. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des 4 premières colonnes. cinq valeurs manquent dans le tableau suivant. retrouvez-les dans votre tableau puis reportez-les, arrondies à l’entier le plus proche, dans la zone de réponse. - Forum Excel
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