Discussion :

[Dosseh]

Bonjour,
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.

[Jedai]

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

Code :

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

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ï

[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 :

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

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

et avant d'écrire à nouveau le fichier,

Code :

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

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

Et ça marche.

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

Merci

[Dosseh]

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

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 :

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

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

et avant d'écrire à nouveau le fichier,

Code :

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

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

Et ça marche.

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

Merci