Avec l'autorisation de disedorgue, Mystery2.pm :
Et puis, tant qu'à golfer, autant y aller franchement, avec une version qui ne perd pas de place dans @C et @D et économise (nombre_de_lignes_en_entrée - nombre_de_groupes) affectations à @D
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 END { print "$D[$_] $C[$_]" for (1 .. $#D) } 1
OK, je sors
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Taisha:~/perl/forum $ perl -0pe's/1/0/' Mystery2.pm > Mystery3.pm Taisha:~/perl/forum $ perl -mMystery3 -nlae '$C[($F[0]ne$D[-1]and$D[@D]=$F[0]),$#D]+=$F[1]' input.dat a 9 b 7 c 9 a 7 x 7 b 4 Taisha:~/perl/forum $
Partager