Que signifie un {à la fin d'un doublage Perl?

Question

Je l'ai vu ce one-liner

perl -lane '$_{$F[0]}+=$F[1]}print"$_ $_{$_}"for keys%_;{' file 

ici: How can I sum values in column based on the value in another column?

et je ne me souviens pas comment le "{" aux travaux finaux. Quelqu'un pourrait-il expliquer comment cela fonctionne?

Answer 1

De l'Perl help:

 
-n assume "while (<>) { ... }" loop around program 

Ceci est une opération purement textuelle, il donne ce programme:

while (<>) { $_{$F[0]}+=$F[1]}print"$_ $_{$_}"for keys%_;{ } 

Ceci est un abus du commutateur -n parce que la boucle while est fermée au début en raison de la } inégalée dans le programme d'origine. Mais la fermeture } qui est ajoutée par le commutateur -n doit toujours correspondre à quelque chose, et c'est pourquoi il doit y avoir un { supplémentaire à la fin du programme, même si cela ne fait rien. En d'autres termes, la seule raison pour laquelle le dernier { est là est de ne pas donner une erreur de syntaxe.