no save
Assistance
Achat
News

Forum | programmation
[PERL]Saut de ligne
lami20j, le jeu. 10 nov. 2005 à 22:53:00
Salut,
Si tu veux supprimer les 2 sautes de lignes tu obtiens quelque chose comme ça

blahblahblahblahblahblahblah<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblah<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblahblahblahblahblahblahblahblahblahblahblah
blahblahblah<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
iblahblahblahblahblah
C'est ça que tu veux obtenir. En ce cas la réponse de mamiemando est suffisante.
En revanche si tu veux que ton fichier soit
blahblahblahblahblahblahblah
<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblah
<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblahblahblahblahblahblahblahblahblahblahblah
blahblahblah
<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
iblahblahblahblahblah

Tu n'as qu'un seul saute de ligne à supprimer (pas 2)

#! /usr/bin/perl -w
$/=" ";
open FLIRE,'Zep3k!GnO.txt' or die "Impossible d'ouvrir le fichier : $!\n";
while (<FLIRE>){
s/\n(?=<RENV)//; # teste avant, ne consomme pas de texte donc plus rapide
print;
}
Le scrip ne fait que lire et afficher à l'écran. Pour écrire il faut ajouter encore quelque lignes.
Ou en ligne de commande. Ici le fichier est modifé sur place et l'original est sauvegardé.
perl -pi.orig -e 's/^\n$//' Zep3k\!GnO.txt

Précédentmamiemando
nov. 05
Zep3k!GnO
nov. 05
Suivant
REPONSES
mamiemando
nov. 05
lami20j
nov. 05
Zep3k!GnO
nov. 05
Zep3k!GnO
nov. 05
mamiemando
nov. 05
Zep3k!GnO
nov. 05
mamiemando
nov. 05
Zep3k!GnO
nov. 05
lami20j
nov. 05
Repen07
févr. 07
Version Web
Réalisé par RedShift
no save