Détection d'encodage de fichier

Version imprimable

Bonjour,

J'ai réalisé un script qui permet de convertir un fichier CSV en un fichier XML un peu particulier.

Ce fichier XML doit être encodé en latin9 (ISO-8859-15)

du coup le script donne en résumé cela:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 use Encode; open (FILE, "<:encoding(utf8)",$filein) || die "Ouverture impossible du fichier $ARGV[0]: $!"; @lines = <FILE>; close (FILE); open(my $out,'>:encoding(latin9)',$outfile); for (my $i=0; $i<scalar(@lines); $i++) { print $out $line[$i]; } close ($out);
Le seul souci dans mon cas, c'est que je dois spécifier un encodage pour le fichier CSV d'entrée ici j'ai utilisé UTF-8.

Existe-t-il une solution pour que le script détecte automatiquement le type d'encodage (UTF-8, ISOxxxxx) du fichier CSV?

Max

16/06/2011, 12h36
Philou67430

Le module Text::GuessEncoding ne fait pas ce que tu veux (j'en avais aussi cherché un), mais peut-être trouveras-tu dans son code source de quoi coder la devinette.
16/06/2011, 12h37
Philou67430

En fait, le module Encode::Guess semble plus adapté...
16/06/2011, 13h41
mamax29

oulà...

J'ai beau lire et relire la doc du module, j'arrive pas à comprendre comment ça marche...

Je vais regarder cela.

Bon... avec le code ci-dessous cela semble fonctionner:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use strict;
use warnings;
use Encode;
require Encode::Detect;
 
my @lines;
my $string;
my $stringout;
 
open (FILE, "<",$ARGV[0]) || die "Ouverture impossible du fichier $ARGV[0]: $!";
@lines = <FILE>;
close (FILE);
 
open(my $out,'>:encoding(latin9)',"result.txt");
for (my $i=0; $i<scalar(@lines); $i++)
{
	$lines[$i] = encode("iso-8859-15", decode("Detect", $lines[$i]));
  print $out $lines[$i];
}
close ($out);

Merci Philou67430