{{tag>shell awk perl }}
====== Shell - Intercaler une chaîne de caractères dans une liste ======

Imaginons le fichier suivant nommé "file.txt" :

<code>
LIGNE A
LIGNE B
LIGNE C
</code>

Pour obtenir la sortie suivante :

<code>
LIGNE A
* NOUVELLE CHAINE *
LIGNE B
* NOUVELLE CHAINE *
LIGNE C
</code>

Il est possible d'utiliser l'une des deux commandes suivantes :

<code>
cat file.txt | perl -pe 'print "* NOUVELLE CHAINE *\n" if( $. != 1 );'
</code>

ou

<code>
cat file.txt | awk '{if (NR == 1) { tmp=$0 } else { print tmp"\n* NOUVELLE CHAINE*"; tmp=$0 }} END { print tmp }'
</code>

L’intérêt est de ne pas avoir la chaîne "* NOUVELLE CHAINE *" en début ou fin de sortie.