Perl

[perl] remplacer les \n par des dans un fichier ...

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [perl] remplacer les \n par des <br> dans un fichier ...

tigger59

jeune homme irrascible

salut
j'ai un fichier .csv de la forme

"1";"texte1";"texte2";"0"
"2";"texte1";"texte2";"0"
"3";"texte1
sur
plusieurs
lignes";"texte2
sur plusieurs
lignes";"0"

je voudrais mettre chaque enregistrement sur une seule ligne en remplacant tous les \n par des sauf si le \n est suivi et precedé par un doublequote
j'ai essayé
if ($_ =~ /"\n"/)
et
if ($_ =~ /"\"\n\""/)
sans succès .... une idée ?

Publicité

burgergold

5$? va chez l'diable!

truc du genre

$var =~ s/\\n/ /g;

pas testé mais ca doit pas etre loin

le s c pour remplacer, entre le 1er et le 2e /, tu indique c quoi tu remplace, entre le 2e et le 3e tu indique par quoi, et finilament le g jcrois que c pour l'appliquer à tout les occurences

---------------
http://www.boincstats.com/signature/user_664861.gif

Aricoh

gentil mais fo po pousser

burgergold a écrit :

s pour substitute
g pour global
ce que tu as écrit devrait marcher

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO

tigger59

jeune homme irrascible

$variable =~ s/\n/ /g;
fonctionne en effet, ca me remplace tous les \n par , cependant ce que je veux remplacer c'est seulement les \n encadrés par des " pour que mon fichier devienne :

"1";"texte1";"texte2";"0"
"2";"texte1";"texte2";"0"
"3";"texte1 sur plusieurs lignes";"texte2 sur plusieurs lignes";"0"

$variable =~ s/"\n"/ /g; a pas l'air de marcher
$variable =~ s/\"\n\"/ /g; non plus

Aricoh

gentil mais fo po pousser

tigger59 a écrit :

ok alors si $variable contient l'intégralité des données, essaie ceci pour voir :

Code :

$variable =~ s/\"\n\"/ /g;

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO

tigger59

jeune homme irrascible

non plus j'avais deja essayé :sweat:

anapajari

s/travail/glanding on hfr/gs;

Je pense qu'Aricoh voulait plutot dire quelque chose comme ça:

Code :

$variable =~ s/\"(.*?)\n(.*?)\"/"$1 $2"/g;

Aricoh

gentil mais fo po pousser

Anapajari a écrit :

Je pense qu'Aricoh voulait plutot dire quelque chose comme ça:

Code :

$variable =~ s/\"(.*?)\n(.*?)\"/"$1 $2"/g;

heu :sweat: heureusement que tu es là, j'avais pas lu l'exemple de données complètement, I am a big naze today

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO

d_wrk

Sauf que la dernière solution ne fonctionne que pour un seul \n au milieu d'un texte non ?
ou alors le /g fait que le filtre tourne en boucle jusqu'à avoir remplacé toutes les occurences ?

d

Message édité par d_wrk le 14-08-2003 à 10:12:32

urd-sama

waste of space

d_wrk a écrit :

ou alors le /g fait que le filtre tourne en boucle jusqu'à avoir remplacé toutes les occurences ?

:jap:

FORUM HardWare.fr

Programmation

Perl

[perl] remplacer les \n par des dans un fichier ...

Sujets relatifs
Récupérer une variable dans un autre fichier ?	[php] ecrire sur un fichier pdf existant (pas le modifier)
Proposer un fichier créé dynamiquement en téléchargement	[batch] concaténer date et nom fichier
Afficher sur mon site les données recuperer sur un fichier xml.	Copie de fichier (au sens cp Unix)
[vbscript] - supprimer une ligne dans un fichier	un script pour telecharger un fichier .txt sur un ftp toute les 2 h
[SQL] visualiser un fichier .sql	Inclusion d'un fichier texte dans un <textarea> ...
Plus de sujets relatifs à : [perl] remplacer les \n par des <br> dans un fichier ...

Page générée en 0.036 secondes

[perl] remplacer les \n par des <br> dans un fichier ...

[perl] remplacer les \n par des <br> dans un fichier ...

[perl] remplacer les \n par des <br> dans un fichier ...