Problème de caractères accentués avec CAM::DBF

Hello,

J'ai trouvé (un peu par hasard) un script perl qui converti tranquillou un fichier .dbf en fichier .csv. Le soucis c'est que les caractères accentués ressortent pas correctement :? .

Diantre me dis-je !! Mais pourquoi petit scarabé n'utilises-tu pas directement le module CAM:: DBF ?!?!? 8O

Voilà qui est fait avec un bout de programme très simple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#!/usr/bin/perl   ##################################################################################### # conversion dbf -> excel #####################################################################################   use strict; #vérifie que toutes les variables sont bien déclarées avec my use Carp; #Recherche les erreurs de syntaxe dans le programme use warnings; use CAM::DBF; # Perl extension for reading and writing dBASE III DBF files   my $file = "info_adm.DBF"; # infos administratives   my $dbf = new CAM::DBF($file); # ouverture de la BD   print $dbf->toText(0,-field => ',', -enclose => '', -showheader => 1);

---

Forcément, j'ai le mème soucis, à savoir que éèàçêô est transformé en ‚Š…‡ˆ“ :sm:

Bref, est-il possible de contrôler ça ? Ca vient de perl et/ou de dbf ? Je précise que je travaille sous windows XP avec active perl.

Si une âme charitable a une idée lumineuse ...

Usti

Si tu veux dire que la sortie sur la console contient n'importe quoi à la place des caractères accentués, essaie d'exécuter un script qui contient :

Code:

---

1 2	print "éàïù\n";

---

Et tu t'aperçevras que le problème ne vient pas de DBF (ni de Perl) mais tout simplement de la console Windows qui n'utilise pas le même encodage par défaut que le reste de Windows... :roll:
Si tu rediriges ton résultat vers un fichier tu t'aperçevras qu'il ne présente aucun problème.

Il existe plusieurs façon de régler le problème, ma préférée étant de changer la page de code utilisée par la console Windows (elle utilise la ~ 800, il faut utiliser la 1252) sans oublier de changer sa police (car la police originelle de la console ne supporte pas la cp1252).

--
Jedaï

Hum ...

En fait j'utilise déjà cette astuce pour la console que tu m'avais donnée il y a quelques temps ;)

Pour la sortie direct sur un fichier, en transformant mon code en :

Code:

---

1 2 3

open V3,"> testDBF.txt";   print V3 $dbf->toText(0,-field => ',', -enclose => '', -showheader => 1);

---

cela donne ça : ‚Š…‡ˆ“ :aie:

Sinon je peux envisager de prévoir tous les caractères accentués et leur transformation, et de les retransformer ensuite :?

Usti

Etrange, peut-être s'agit-il d'un problème d'encodage alors... Sais-tu quel est l'encodage de ton dbf et l'encodage utilisé par défaut par CAM::DBF ?

--
Jedaï

Euh, ben, c'est à dire ... 8O

J'ai pas trouvé justement où voir quel était l'encodage de mon dbf. En fait c'est une base hyperfile (sous DOS) qui est extraite en quickbasic pour générer les dbf (je précise que ce n'est pas moi qui gère cette partie là, je n'ai pas touché au basic depuis mon IBM PC portable à 4,77 MHz :mouarf: )

Je vois pas d'autre solution que de repérer en quoi sont transcrits les caractères accentués, et à les remplacer dans mon programme perl par l'accent originel, mais j'ai pas encore testé.

Usti