Discussion :

[mamax29]

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 :

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

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

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

[Philou67430]

En fait, le module Encode::Guess semble plus adapté...

[mamax29]

oulà...

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

Je vais regarder cela.

[mamax29]

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

Code :

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

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