Discussion :

[mobscene]

J'ai une applie qui doit insérer des données dans une base SQL, les tables sont au format utf-16LE, j'ai donc utilisé cette méthode pour le trancodage :

Code :

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

1
2
3
4
use Unicode::String qw(utf16le);
Unicode::String->stringify_as('utf16le');
 
my $utf16 = utf16($var_en_utf8);

J'utilise correctement Unicode::String masi j'ai quelques fois

Code :

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

1
2
[Mon Jan  8 20:51:54 2007] index.pl: byteswap argument #1 not long enough at G:/Program Files/Perl/lib/Unicode/String.pm line 213.
[Mon Jan  8 20:51:54 2007] index.pl: Uneven UTF16 data at G:/Program Files/Perl/lib/Unicode/String.pm line 196.

Ma chaine utf-8 est en utf-8 strict, donc je ne comprend pas trop quel est le problème

[mobscene]

après re lecture de la doc du module sur CPAN il semble que j'ai un problème de byteswap(), il me faut utiliser byteswap2( $str, ... ) le problème c'est que je vois pas quoi mettre dedans

merci de votre aide parce que la je suis un peu beaucoup largué

[mobscene]

Bon après avoir fait un tour dans les snippets j'ai compris mon erreur pour convertire de utf8 a utf16le il faut utiliser Unicode::String comme cela :

Code :

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

1
2
3
4
use Unicode::String qw(utf8 utf16le);
Unicode::String->stringify_as('utf16le');
 
$var = utf8($var);

vala le snippets :

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
22
23
24
25
26
27
28
29
30
 
#!/usr/bin/perl -w
 
use strict; 
use Unicode::String;
 
###########################################
#
#	2UTF8.pl
#	________
#
#Pour la conversion de fichiers ISO-8859-1
#vers UTF-8
#INPUT : un fichier ASCII ISO-8859-1
#OUTPUT : un fichier ASCII UTF-8
###########################################
 
Unicode::String->stringify_as('utf8');
my($file) = $ARGV[0];
my($file_dest) = $file.".new";
open FILE, "< $file" or die "$!\n";
open FILE2, "> $file_dest" or die "$!\n";
while(<FILE>){
	$_ = Unicode::String::latin1($_);
	print FILE2 $_;
}
close FILE and close FILE2;
unlink $file;
rename($file_dest, $file);
unlink $file_dest;

mais voila j'ai un tout dernier soucie , utf8() me dit que mes chaines utf-8 ne sont pas bonne j'utilise pourtant Encode comme sa :

Code :

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

1
2
3
4
5
6
7
8
   unless ( $Charset =~ /utf8|utf-8/i ) {
       if ( $Charset ne "not_found" ) {
         $data->{'_content'} = encode("utf-8-strict", decode($Charset, $data->{'_content'}, Encode::FB_WARN));
       }
         else {
         $data->{'_content'} = encode("utf-8-strict", $data->{'_content'}, Encode::FB_WARN);
       }
   }