Discussion :

[March']

Bonjour !

Comme je debute en PERL, j'ai un peu de mal à faire exatement ce que je veux....

Bref, pour le moment, j'aimerai savoir s'il est possible d'utiliser l'operateur tr/// avec des restriction.

Voilà un peu plus de details :

je cherche à remplacer les retour chariot+Line Feed (CRLF) par des retour chariot simples (CR). Malheureusement tr/// se comporte comme suit :

Lorsqu'il trouve un CR, il le change en CR (pas de problème jusque là)
Lorsqu'il trouve un LF, il le change en CR (là, c'est pas bon)
Et il ne trouve jamais un CRLF (là, c'est pas bon du tout...)

voilà mon code, j'espère que vous pourrez m'apporter un élément de réponse.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 open(IN,'test0d0a');
 binmode(IN);
 read(IN,$bloc,$taille);
 close(IN);
 $bloc =~ tr/\r\n/\r/;
 open(OUT,'SORTIE');
 binmode(OUT);
 print OUT ($bloc);
 close(OUT);

Merci !

[Haiti]

Hallu,

Tu peux aussi faire une substitution :

Code :

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

$bloc =~ s/\r\n/\r/;

si tr ne fonctionne pas comme tu le veux.

[arthurr]

oui alors tu ouvre le fichier ligne a ligne

Code :

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

1
2
3
4
5
6
7
8
 
open (IN,"<ton_fichier");
open (OUT,">>ton_autre_fichier");
while (<IN>)
{
     chomp $_;
     print OUT, "$_\r";
}

[March']

Dis-moi arthurr, j'ai deja vu QQpart qu'on pouvait changer le délimiteur de fin de ligne.

Est-ce que tu te rappelle comment on fait ?

[arthurr]

pour changer le delimiteur de fin de ligne :

Code :

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

1
2
 
$/=";" # '\n' par defaut