• [^] # Re: Perl !

    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é à 10.

    Ah la la, les petits jeunes. Toujours à nous sortir une enclume pour un truc qui prends même pas une ligne:

    cat myfile | perl -pe 'if(m/^(\d+)->/) { $i=1ドル; $_=""; } else { s/(\d+);\n?/$i->1ドル;\n/g; }'

    perl -p fait la boucle et le print tout seul pour tout le contenu du fichier passée en entrée.

    perl -e execute le programme passé sur la ligne de commande

    Le if cherche un nombre suivit de '->' et le conserve dans la variable $i; il supprime la sortie en vidant $_

    Le else ajoute "$i->" devant les chiffres et ajoute un saut de ligne.

    Voila, ça ne m'a pas pris 10 minutes.