Perl Supprimer retour chariot une ligne sur 2 Fermé

Question

Bonjour,

Je souhaite connaitre la commande pour supprimer une ligne sur deux dans un fichier

Merci de vos contribution

lami20j · Answer

Salut,

Essaie plutôt de nous montre ce que tu essaie faire.
A cette question je te réponds, pour l'autre on attends voir ce que tu as essayer faire.
On n'est pas la pour faire à ta place, mais pour t'aider où ça coince chez toi.

Les lignes paires et impaires sont traitées.

lami20j@debian-acer:~$ cat ligne 
ligne1
ligne2
ligne3
ligne4
ligne5
ligne6
lami20j@debian-acer:~$ perl -ne 'print if ($.-1)%2==0' ligne
ligne1
ligne3
ligne5
lami20j@debian-acer:~$ perl -ne 'print if $.%2==0' ligne
ligne2
ligne4
ligne6

orlando_84 · Answer

Supprimer toutes les ligne impaires

dubcek · Answer

hello
avec awk (nawk sur Solaris)
$ cat a2
ligne1
ligne2
ligne3
ligne4
ligne5
ligne6
$ 
$ awk 'NR%2{print}' a2
ligne1
ligne3
ligne5
$ 
$ awk '!(NR%2){print}' a2
ligne2
ligne4
ligne6

lami20j · Answer

Salut,

Ou avec sed https://forums.commentcamarche.net/forum/affich-37620088-sed-trucs-et-astuces#intervalle-regulier

orlando_84 · Answer

Voici ma solution open(FILE_TEMP, "FILE_FINAL") or die "Cannot open fichier : $!"; while () { if (($.-1)%2==0) { s/ //; print FILE_FINAL $_; } else { print FILE_FINAL $_; } } close (FILE_FINAL); close (FILE_TEMP);

lami20j · Answer

Salut,

pour supprimer une ligne sur deux dans un fichier
Ta solution ne corresponde pas à ce que tu as demandé ;-)

En revanche vu ton code je comprends que tu voulais en faites supprimer tout simplement le saut de ligne sur deux lignes.

ligne1
ligne2
ligne3
ligne4

en 

ligne1lign2
ligne3ligne4

Une ligne et un saut de ligne ce n'est pas la même chose ;-)

Perl Supprimer retour chariot une ligne sur 2

6 réponses

Discussions similaires