• [^] # Re: Golf

    Posté par . En réponse au journal Créer un livre dont vous êtes le héros avec des outils libres + question sur les regex. Évalué à 3.

    $ perl -ne '/[{}]/?print:/\d+->/||print"$&$_"'fichier

    Si on veut bien s'autoriser à ne pas sortir le bloc digraph {}, on peut simplifier en:
    $ perl -ne '/[{}]/||/\d+->/||print"$&$_"' fichier

    Si le fichier d'entrée joue le jeu et ne contient même pas ledit bloc, c'est la fête:
    $ grep -v '[{}]' fichier |
    > perl -ne '/\d+->/||print"$&$_"'

    Merci à l'exemple awk pour l'inspiration. :-)