Discussion :

[piotr]

Bonjour,
J'ai un fichier data.txt avec dedans:
11326655499646464
11121212121494994
12232346565941212
....(1500 lignes en tout)

Je voudrais supprimer les retour chariots pour avoir tout sur une ligne:

Code :

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

1
2
3
4
5
6
use strict;
open (FIC,'<',F:/dossier/fichier.txt');
while (my $ligne=<FIC>)
{
$ligne=~tr/\n/''/;
}

mais ça ne donne rien!

Qui peut m'aider?

[djibril]

Code :

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

chomp($ligne);

[piotr]

Code :

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

chomp($ligne);

salut Djibril, la commande chomp ne me donne pas de résultat quand j'ouvre mon fichier j'ai toujours les données:
1554545151515
1748944313133
9862323233323
....

[djibril]

pour modifier un fichier du toi passer par un fichier temporaire. Regarde la FAQ.
sinon chomp de permet de supprimer les retour chariot, donc quand tu lis un fichier ligne à ligne, tu fais chomp de cette ligne et il la supprime, ensuite tu reecris cette ligne dans un autre fichier
.

sinon si le but de ton script est uniquement de supprimer les retour chariot, tu peux le faire en ligne de commande

Code :

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

perl -pi.bak -e "s/\n//" fichier.txt

tu auras une sauvegarde de ton fichier avec l'extension .bak et ton fichier sera modifié

[piotr]

pour modifier un fichier du toi passer par un fichier temporaire. Regarde la FAQ.
sinon chomp de permet de supprimer les retour chariot, donc quand tu lis un fichier ligne à ligne, tu fais chomp de cette ligne et il la supprime, ensuite tu reecris cette ligne dans un autre fichier
.

sinon si le but de ton script est uniquement de supprimer les retour chariot, tu peux le faire en ligne de commande

Code :

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

perl -pi.bak -e "s/\n//" fichier.txt

tu auras une sauvegarde de ton fichier avec l'extension .bak et ton fichier sera modifié

ça marche nickel!
Merci beaucoup pour ton aide, je rouille en PERL.