Problème avec le caractère de fin de ligne entre linux et windows

Bonjour,
:cry: J'ai un problème urgent. Il s'agit d'un fichier que j'ai partagé (via cifs) entre linux et windows. Ce fichier est lu et édité par perl (sur linux) tandis qu'il l'est également par un programme développé en vb6.0.
Le problème: tandis que mon programme perl lit sans aucun problème le fichier même lorsqu'il est édité par l'autre en vb6.0, l'inverse n'est pas possible. J'ai essayé avec les caractères "\n", "\r\n", mais sans succès.
Que puis-je faire? Y a-t-il un moyen avec Perl?

Merci de me répondre.

Tu peux facilement convertir ton fichier vers les fins de ligne Windows avec le code suivant (marche sous Windows ou Linux) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

open my($file), '<:raw', $filename or die "Can't open $filename : $!\n"; open my($dosfile), '>:raw', "dos_$filename" or die "Can't open dos_$filename : $!\n";   while( <$file> ) { s/(?<!\r)\n/\r\n/; print {$dosfile}; }   close $file; close $dosfile;

---

--
Jedaï

Merci Jedaï,

Mais au même moment je cherchais et grâce à la doc sur la portabilité de perl trouvé sur http://search.cpan.org/~nwclark/perl...t.pod#Newlines, j'ai fait quelque chose de similaire:
Avant de traiter une ligne du fichier sous linux(récupéré dans la variable @lines) avec mon code perl, dans la boucle foreach

Code:

---

1 2 3

$i=0; $lines[$i]=~s/\r\n/\n/;

---

et avant d'écrire à nouveau le fichier,

Code:

---

1 2	$lines[$i].="\r\n";

---

Et ça marche.

Mais je vais prendre le temps de tester ton code aussi.:ccool:

Merci:ccool:

Excusez-moi, $i=0 vient avant la boucle foreach.

Citation:

---

Envoyé par Dosseh

Merci Jedaï,

Mais au même moment je cherchais et grâce à la doc sur la portabilité de perl trouvé sur http://search.cpan.org/~nwclark/perl...t.pod#Newlines, j'ai fait quelque chose de similaire:
Avant de traiter une ligne du fichier sous linux(récupéré dans la variable @lines) avec mon code perl, dans la boucle foreach

Code:

---

1 2 3

$i=0; $lines[$i]=~s/\r\n/\n/;

---

et avant d'écrire à nouveau le fichier,

Code:

---

1 2	$lines[$i].="\r\n";

---

Et ça marche.

Mais je vais prendre le temps de tester ton code aussi.:ccool:

Merci:ccool:

---