Discussion :

[VinnieMc]

Bonjour, je débute en Perl et je dois traiter un fichier .txt, engros je remplace les espaces par des \n ainsi j'ai une liste, mais dans cette liste il y a des lignes vides et je n'arrive pas à les supprimer.
sous linux ^$ signifie ligne vide, mais ça ne marche pas avec mon script( je suis sous windows).
Voila un bout de mon code, j'essaie de remplacer les lignes vides par rien,mais ça ne marche pas.Si qqn a une regex qui marche, pourrait-il la partager avec moi.Merci d'avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
while (<LIGNES>) {
 
$_ =~ s/^$ //g;
 
print (ECRIRE "$_");

[Jedai]

Je pense que l'espace à la fin de ta regex est une faute de frappe ?
De toute façon ça ne peut pas marcher : ^$ est ce qu'on appelle une "zero-width assertion" autrement dit cette regex matche 0 caractères. Tu remplaces donc rien par rien, mais tu laisses le passage à la ligne... Donc, tu ne supprimes pas les lignes vides. Habituellement, quand je veux supprimer les lignes vides, je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
while( <IN> ){
  next if m/^$/;
  #...
  print OUT $_;
}

--
Jedaï

[VinnieMc]

Merci bcp Jedai, ça marche parfaitement.

[GLDavid]

VinnieMc, penses qux bqlises code et à marquer ton thread comme résolu en cliquant sur le bouton en bas à gauche.
Merci d'avance.

@++

[VinnieMc]

Désolé.

[GLDavid]

Merci d'avoir ajouté le tag Résolu.
Les balises codes s'utilisent pour entourer ton code source, pas pour le titre

@++