[PERL] Remplacer retour chariot par espace
Fermé
F_Pignon
Messages postés
23
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
29 mai 2008
-
28 mai 2008 à 21:41
Zoubouloune - 25 juin 2010 à 13:38
Zoubouloune - 25 juin 2010 à 13:38
A voir également:
- [PERL] Remplacer retour chariot par espace
- Espace insécable word - Guide
- Remplacer disque dur par ssd - Guide
- Notepad remplacer par retour chariot ✓ - Forum Bureautique
- Retour à la ligne css - Forum CSS
- Retour à la ligne google sheet ✓ - Forum Bureautique
2 réponses
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 566
28 mai 2008 à 22:50
28 mai 2008 à 22:50
Salut,
lami20j@debian:~/trash$ cat fic.txt
ligne1
ligne2
ligne3
etc.
lami20j@debian:~/trash$ cat f_pignon.pl
#!/usr/bin/perl -i.orig
use strict;use warnings;
@ARGV = ("fic.txt");
while(<>){
next if /^$/;
s/\n/ / and print;
}
__END__
lami20j@debian:~/trash$ perl f_pignon.pl
lami20j@debian:~/trash$ cat fic.txt
ligne1 ligne2 ligne3 etc. lami20j@debian:~/trash$ cat fic.txt.orig
ligne1
ligne2
ligne3
etc.
lami20j@debian:~/trash$
29 mai 2008 à 00:01
merci bcp
je pense que ça vient du next if... je vas tester