PDA

Visualizza la versione completa : [perl] unicode


fulzii
24-06-2005, 10:07
ciao
ho uno script perl che mi va a popolare un db...
fin qua nulla di eccezionale, ma da ieri devo settare un campo varchar con dei valori unicode tipo " " utilizzo osql che supporta unicode (-u).
il problema che questo script prima crea dei file temporanei con dentro pezzi di sql (serve per gestire le versioni) e poi esegue osql passandogli in path al file.
se il file temporaneo salvato in unicode (lo apro con wordpad e faccio salva documento unicode) non ho problemi, altrimenti la insert mi scrive della schifezza al posto dei caratteri unicode.

la mia domanda :

come faccio a creare un file unicode con perl???
questo il codice che uso giusto???
devo installarmi quelche cosa???



use Unicode::string qw(utf16);

open(FF, "unicode.txt");

$u = utf16("insert into Table");
print FF $u->utf16;
$u = utf16("( Value )");
print FF $u->utf16;
$u = utf16("values");
print FF $u->utf16;
$u = utf16("( ' !\"''(),-.:;<>?[]_`' )");
print FF $u->utf16;
$u = utf16("GO");
print FF $u->utf16;

close(FF);


grazie 1000

shishii
24-06-2005, 17:58
Hai provato a usare all'inizio dello script?:

use utf8;

se non lo hai fatto prova ad inserire questo pragma e poi ad usare le normali istruzioni Perl, senza le funzioni derivate dal modulo Unicode.

Loading