Utilisez ex-command pour vérifier si deux lignes sont identiques?

Je regardais cette question et je me suis ensuite demandé comment je pourrais implémenter ma réponse qui utilise sed uniquement POSIX ex .

L'astuce est que même si sedje peux comparer l'espace de maintien avec l'espace de motif pour voir s'ils sont exactement équivalents (avec G;/^\(.*\)\n\1$/{do something}), je ne connais aucun moyen de faire un tel test dans ex.

Je sais que dans Vim, je pourrais Yécrire la première ligne, puis taper :2,$g/<C-r>0/dpour presque faire ce que je spécifie - mais si la première ligne contient autre chose que du texte alphanumérique très simple, cela devient vraiment chanceux, car la ligne est déversée en tant que regex , pas seulement une chaîne de comparaison. (Et si la première ligne contient une barre oblique, le reste de la ligne sera interprété comme une commande!)

Donc, si je veux supprimer toutes les lignes myfilequi sont identiques à la première ligne - mais pas supprimer la première ligne - comment pourrais-je le faire en utilisant ex? D'ailleurs, comment pourrais-je le faire en utilisant vi?

Existe-t-il un moyen POSIX de supprimer une ligne si elle correspond exactement à une autre ligne?

Peut-être quelque chose comme cette syntaxe imaginaire:

:2,$g/**lines equal to "0**/d

Vigueur

Dans Vim, vous pouvez faire correspondre n'importe quel caractère, y compris la nouvelle ligne avec \_.. Vous pouvez l'utiliser pour construire un modèle qui correspond à une ligne entière, n'importe quelle quantité de choses, puis cette même ligne:

/\(^.*$\)\_.*\n\1$/

Vous souhaitez maintenant supprimer toutes les lignes d'un fichier qui correspondent à la première, sans inclure la première. La substitution pour supprimer la dernière ligne qui correspond à la première est:

:1 s/\(^.*$\)\_.*\zs\n\1$//

Vous pouvez utiliser :globalpour vous assurer que la substitution est répétée suffisamment de fois pour supprimer toutes les lignes:

:g/^/ 1s/\(^.*$\)\_.*\zs\n\1$//

POSIX ex

@saginaw montre une façon plus nette de le faire dans Vim dans un commentaire à votre question, mais nous pouvons adapter la technique ci-dessus pour POSIX ex.

Pour ce faire d'une manière compatible POSIX, vous devez interdire la correspondance sur plusieurs lignes, mais vous pouvez toujours utiliser des références arrières. Cela nécessite un travail supplémentaire:

:g/^/ t- | s/^/@@@/ | 1t- | s/^/"/ | j! | s/^"\(.*\)@@@\1$/d/ | d x | @x

Voici la ventilation:

:g/^/                   for each line

t- |                    copy it above

s/^/@@@/ |              prefix it with something unique (@@@)
                        (do a search in the buffer first to make
                        sure it really is unique)

1t- |                   copy the first line above this one

s/^/"/ |                prefix with "

j! |                    join those two lines (no spaces)

s/^"\(.*\)@@@\1$/d/ |   if the part after the " and before the @@@
                        matches the part after the @@@, replace the line
                        with d

d x |                   delete the line into register x

@x                      execute it

Donc, si la ligne actuelle est un doublon de la ligne 1, le registre x contiendra d. L'exécuter supprimera la ligne actuelle. S'il ne s'agit pas d'un doublon, il contiendra un non-sens préfixé avec "lequel lorsqu'il est exécuté est un no-op, car " commence un commentaire. Je ne sais pas si c'est la meilleure façon d'y parvenir, c'est juste la première qui me vienne à l'esprit!

Il se trouve que la première ligne ne peut pas être supprimée car le processus de copie modifie temporairement la ligne 1. Si cela n'avait pas été le cas, vous pourriez plutôt préfixer le :gavec une 2,$plage.

Testé dans Vim et ex-vi version 4.0.

ÉDITER

Et une manière plus simple, qui échappe les caractères spéciaux pour créer un modèle de recherche (avec 'nomagic'set), construit une :globalcommande, puis l'exécute:

:set nomagic
:1t1 | .g/^/ s#\[$^\/]#\\\&#g | s#\.\*#2,$g/^\&$/d# | d x
:@x
:set magic

Cependant, vous ne pouvez pas le faire en tant que doublure, car vous auriez un imbriqué :global, ce qui n'est pas autorisé.

Il semblerait que la seule façon POSIX de procéder consiste à utiliser un filtre externe, tel que sed.

Par exemple, pour supprimer la 17e ligne de votre fichier uniquement si elle est exactement identique à la 5e ligne, et sinon la laisser inchangée, vous pouvez procéder comme suit:

:1,17!sed '5h;17{G;/^\(.*\)\n\1$/d;s/\n.*$//;}'

(Vous pouvez exécuter sedici tout le tampon, ou vous pouvez l'exécuter uniquement sur les lignes 5 à 17, mais dans le premier cas, vous effectuez un filtrage inutile - ce n'est pas grave - et dans le dernier cas, vous devrez utiliser le chiffres 1 et 13 dans votre sedcommande au lieu de 5 et 17. Confus.)

Comme sedil n'y a qu'une seule passe avant, il n'y a pas de moyen facile de faire l'inverse et de supprimer la 5ème ligne uniquement si elle est identique à la 17ème ligne. J'ai essayé pendant un moment par curiosité ... c'est délicat .

Percée - Vous pouvez le faire comme ceci:

:17t 5
:5,5+!sed '1N;/^\(.*\)\n\1$/d;s/\n.*$//'

Il s'agit en fait de la méthode la plus générale. Il peut également être utilisé pour donner le même résultat que la première commande (et supprimer la 17e ligne uniquement si elle est identique à la 5e ligne) comme ceci:

:5t 17
:17,17+!sed '1N;/^\(.*\)\n\1$/d;s/\n.*$//'

Pour des utilisations plus larges telles que la suppression de toutes les lignes du fichier qui sont identiques à la ligne 37, tout en laissant la ligne 37 intacte, vous pouvez procéder comme suit:

:37,$!sed '1{h;n;};G;/^\(.*\)\n\1$/d;s/\n.*$//'
:37t 0
:1,37!sed '1{h;d;};G;/^\(.*\)\n\1$/d;s/\n.*$//'

La conclusion ici est que, pour vérifier si deux lignes sont identiques, le meilleur outil ne l' est sed pas ex. Mais comme DevSolar y a fait allusion dans un commentaire , ce n'est pas un échec viou ex- ils sont conçus pour fonctionner avec les outils Unix; c'est une force majeure.