Discussion :

[Jasmine80]

Bonjour à tous,

J'utilise le module Spreadsheet::ParseXLSX, afin de lire un fichier excel, cellule par cellule et de le recopier dans un fichier text.
J'obtiens un message d'erreur, mais je ne sais pas pour lequel de mes fichiers, ni quelle cellule de celui-ci.

Wide character in print at Excel_to_txt.pl line 36.

Ligne du code :

Code :

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

print $fh $cell->value();

Quel test utiliser pour identifier l'origine du problème. Je soupçonne un caractère tel que µ ... mais, ça peut être autre chose.

D'avance merci.

[JeanMi3000]

Un problème d'encodage ??
http://stackoverflow.com/questions/1...acter-in-print

Tu as peut être des caractères non ascii dans ton fichier excel.
Essaie d'ouvrir ton fichier en mode utf8 (cf lien)

[Jasmine80]

Merci, mais non, ça ne change rien.

[CosmoKnacki]

Peut-être en ajoutant le pragma use open OUT => ':utf8'; (ou un autre encodage) au début de ton script, pour régler l'encodage par défaut des flux sortants (comme un fichier en écriture). lien perldoc

[Lolo78]

Pour arrêter le débogueur sur l'émission d'un warning:

http://perl.developpez.com/faq/perl/...tialized-value

[cmcmc]

Attention, c'est le fichier sur lequel tu écris qu'il faut ouvrir en UTF-8. Par exemple (en utilisant la balise PRE au lieu de CODE car cette dernière échappe les caractères trop exotiques ):

Taisha:~/perl/forum $ cat utf8.pl
use strict; 
use warnings;
use utf8;
print "こんにちは\n";
Taisha:~/perl/forum $ 

J'ai utilisé ci-dessus le pragma use utf8; pour insérer des chaînes de caractères en UTF-8 dans mon source. A l'exécution

Taisha:~/perl/forum $ perl utf8.pl
Wide character in print at utf8.pl line 4.
こんにちは
Taisha:~/perl/forum $ 

on a un warning car STDOUT est ouvert par défaut en mode iso-8859-1 (aka latin-1, jeu de caractère standard de l'europe de l'ouest, limité à un octet par caractère, sachant qu'on veut écrire des caractères qui ne lui appartiennent pas...)

On peut s'en sortir ici en ajoutant l'option -CO dans la ligne de commande, qui force l'ouverture de STDOUT avec un encodage UTF-8 :

Taisha:~/perl/forum $ perl -CO utf8.pl
こんにちは
Taisha:~/perl/forum $ 

Dans ton cas, si $fh n'est pas ouvert avec un encodage particulier, essaie d'invoquer ton programme avec l'option -Co (attention, le o est ici en minuscules), qui va faire en sorte que les fichiers ouverts en écriture le soient par défaut avec un encodage UTF-8. ALternativement, tu peux le préciser toi-même lors de l'ouverture du fichier :

Code :

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

open my $fh, ">:encoding(UTF-8)", ...

Dans les deux cas, le fichier produit sera encodé en UTF-8.

Si le warning disparaît, cela signifiera qu'on a bien identifié le problème. Après, la suite à donner dépend de comment tu veux traiter le ou les caractères problématiques.

[Jasmine80]

Merci à tous pour vos réponses.

ALternativement, tu peux le préciser toi-même lors de l'ouverture du fichier :

Code :

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

open my $fh, ">:encoding(UTF-8)", ...

Merci cmcmc, cela fonctionne super bien ... j'ai fini par identifier le fichier posant problème, en appelant le script sur des 'tranches' de fichiers ... il a pourtant l'air comme tous les autres. Je l'ai créé via un autre programme, ainsi que tous les fichiers excel (traitement en masse) ... je ne vois vraiment pas pourquoi, celui-là en particulier, générait un message d'erreur.

[cmcmc]

houla houla houla danger, Will Robinson, danger !

je ne vois vraiment pas pourquoi, celui-là en particulier, générait un message d'erreur.

à ta place j'essaierais de comprendre dès maintenant ce qui se passe car les fichiers texte que tu as produits sont maintenant encodés en UTF-8, et contiennent des caractères que tu ne t'attends probablement pas à y trouver. Tu risques des surprises (ou des ennuis) si tu traites les fichiers sans précautions dans d'autres programmes (perl ou autres) qui s'attendent à traiter des caractères ASCII, ou iso-8859-1, ou iso-8859-15 (linux), ou Windows-1252 (windows).

Comme je l'écrivais plus haut, la suite à donner dépend de comment tu veux traiter le ou les caractères problématiques.

Le cas le plus simple est celui ou tu t'attends à avoir des caractères ASCII. Par exemple pour un fichier contenant

De l’ASCII –apparemment–, ‬mais...

une analyse révèle quelques surprises

Taisha:~/perl/forum $ perl -Mcharnames=:full -CIOio -0nE '
  END { 
    printf "[%s] \\x{%x} \\N{%s}\n", $_, ord($_), charnames::viacode(ord($_)) 
      for sort keys %h 
  } 
  ++$h{$_} for grep { ord($_) > 127 } split //
' test.txt
[–] \x{2013} \N{EN DASH}
[’] \x{2019} \N{RIGHT SINGLE QUOTATION MARK}
[‬] \x{202c} \N{POP DIRECTIONAL FORMATTING}
Taisha:~/perl/forum $ 

Ici il conviendrait sans doute de transcoder les \N{EN DASH} en '-', les \N{RIGHT SINGLE QUOTATION MARK} en simple quote, et les \N{POP DIRECTIONAL FORMATTING} en espace (probablement...).