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.
Merci !
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);
Partager