[PERL] Remplacer retour chariot par espace

Bonjour tout le monde,


Je réactualise la discussion:
http://www.commentcamarche.net/forum/affich 4375050 remplacer un retour a la ligne par un espace

pour une question toute bête mais qui ne fonctionne visiblement pas dans mon cas


Je voudrais trouver un moyen de remplacer les retour chariot par des espaces à partir d'un script perl

Mon fichier est de type :

ligne1
ligne2
ligne3
etc.

et j'aurais besoin de récupérer :

ligne1 ligne2 ligne3 etc

les propositions de la discussion qui portait déjà sur le sujet suggérait des commandes essentiellement en ligne de commande, dont celle de lami20j :

 perl -pe 's/\n/ /g' fichier 

qui fonctionne très bien (tant qu'on reste en ligne de commande)

Sauf que quand je met cette même commande dans mon script :
Extrait :

(...)
while(<FIC>){
   $ligne=$_;
   $ligne=~s/toto/titi/g;
   $ligne=~s/tata/tutu/g;
   ...
   $ligne=~s/\n/ /g;
}
(...)

ça ne fonctionne plus... :( et j'ai essayé avec tr ($ligne=~tr/\n/ /g;) mais en vain..
(et je n'ai aucun message d'erreur ; mon fichier initial ne bouge pas)


et j'ai absolument besoin de faire cette opération dans le script même


Donc si quelqu'un pouvait m'aider ??


Merci d'avance !