Boucle en Perl
Résolu/Fermé
wafa_o
Messages postés
109
Date d'inscription
mercredi 16 juillet 2008
Statut
Membre
Dernière intervention
4 janvier 2011
-
23 déc. 2009 à 09:13
wafa_o Messages postés 109 Date d'inscription mercredi 16 juillet 2008 Statut Membre Dernière intervention 4 janvier 2011 - 23 déc. 2009 à 15:16
wafa_o Messages postés 109 Date d'inscription mercredi 16 juillet 2008 Statut Membre Dernière intervention 4 janvier 2011 - 23 déc. 2009 à 15:16
3 réponses
wafa_o
Messages postés
109
Date d'inscription
mercredi 16 juillet 2008
Statut
Membre
Dernière intervention
4 janvier 2011
2
23 déc. 2009 à 11:15
23 déc. 2009 à 11:15
Personne ne peut m'aider ??
Salut,
Script perl
Avec perl en ligne de commande
Avec awk
Script perl
#!/usr/bin/perl
use strict;use warnings;
my $fic="fic.txt";
open F,"fic.txt" or die "E/S : $fic $!\n";
my %h;
while(<F>){
my ($date,$val)=(split /\s+/)[0,2];
$h{$date}+=$val;
}
print "$_ 00:00 $h{$_}\n" for(sort keys %h);
__END__
Avec perl en ligne de commande
perl -wlane '$h{$F[0]}+=$F[2];END{print "$_ 00:00 $h{$_}" for (sort keys %h)}' fic.txt
Avec awk
awk '{x[$1]+=$3}END{for(i in x) print i " 00:00 " x[i]}' fic.txt
wafa_o
Messages postés
109
Date d'inscription
mercredi 16 juillet 2008
Statut
Membre
Dernière intervention
4 janvier 2011
2
23 déc. 2009 à 15:16
23 déc. 2009 à 15:16
Merci lami20j.
En fait je me suis mal exprimée, je voulais la valeur pour chaque heure (à 00h, 1h, 2h...).
J'ai finalement trouvé la réponse grâce à l'une de tes réponses dans un post
https://forums.commentcamarche.net/forum/affich-3741856-perl-tableau-assoc-a-2-dimensions
Merci encore
En fait je me suis mal exprimée, je voulais la valeur pour chaque heure (à 00h, 1h, 2h...).
J'ai finalement trouvé la réponse grâce à l'une de tes réponses dans un post
https://forums.commentcamarche.net/forum/affich-3741856-perl-tableau-assoc-a-2-dimensions
Merci encore