no save
Assistance
Achat
News

Forum | programmation
[PERL]Saut de ligne
lami20j, le lun. 14 nov. 2005 à 18:36:56
Bonsoir,

Hélas c'est bien la prmièe forme que tu exposes lami20j que je veux obtenir et ce que mamiemando m'a mis ne fonctionne pas, j'avais déjà essayé comme ça . . . :(
Si vous avez d'autres idées . . .

Alors en ce cas voilà le script, pareil il affiche le résultat sur STDOUT.

Si tu veux modifier le fichier sur place et tu ne sais pas le faire dit le.

Voilà le script ( faire une boucle et traiter ligne par ligne ce n'est pas laide)

#! /usr/bin/perl -w

$/=" ";
open FLIRE,'Zep3k!GnO.txt' or die "Impossible d'ouvrir le fichier : $!\n";
while (<FLIRE>){
s/\n\n<RENV/<RENV/;
print;
}


Et le résultat

[lamitest@localhost bin]$ cat Zep3k\!GnO.txt
blahblahblahblahblahblahblah

<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblah

<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblahblahblahblahblahblahblahblahblahblahblah
blahblahblah

<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
iblahblahblahblahblah

[lamitest@localhost bin]$ perl suppr_ligne_vide1.pl
blahblahblahblahblahblahblah<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblah<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblahblahblahblahblahblahblahblahblahblahblah
blahblahblah<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
iblahblahblahblahblah

[lamitest@localhost bin]$

PrécédentZep3k!GnO
nov. 05
Repen07
févr. 07
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