Discussion :

[toniohouse]

Pour de multiples raisons, je dois implémenter en perl l'équivalent de la fonction Oracle utl_raw.cast_to_varchar2.

RAW étant un type assez particulier. Je ne vois pas trop pour l'instant comment faire...

Est ce quelqu'un aurait des infos sur:
- le format RAW
- comment convertir en Perl le format RAW en varchar2 (je suppose string en PERL)

A+

[toniohouse]

Jje vois que mon problème n'a pas trouvé publique.

Mais c'est bon j'ai trouvé la solution

En fait utl_raw.cast_to_varchar2 est simplement une conversion équivalente à la fonction SQL hextochar.
En perl, il suffit donc d'effectuer la conversion hexa vers ascii grâce à la fonction 'pack', exemple:

Code :

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

$ascii_val = pack ("H*", $hexa_val);

Cas particulier
Attention! les valeurs hexa du type '000000' ont pour résultats des espaces qui sont perdus lors d'un simle print à l'inverse de la fonction oracle utl_raw.cast_to_varchar2. Exemple :

Code :

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

1
2
3
my $hexa_val='04000000';
$ascii_val = pack ("H*", $hexa_val);
print "!${ascii_val}!\n"; #affiche !! au lieu de  !    !

alors que si on affiche la taille de la conversion:

Code :

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

1
2
$length_ascii_val = length(pack ("H*", $hexa_val));
print "$length_ascii_val"; # le résultat est égal à 4

[Jedai]

Ce problème avec 00000 peut avoir deux raisons : soit tu affichais le résultat de ta fonction Oracle avec une interface qui affichait un espace pour le caractère nul ('\0') ce qui n'est pas le cas de la plupart des interfaces (qui se contentent de les ignorer), soit ta fonction Oracle n'est pas exactement équivalente à la conversion à partir de l'hexa, mais remplace en plus les caractères nuls par un espace, comme tu peux le faire en Perl avec :

Code :

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

1
2
$ascii_val = pack ("H*", $hexa_val);
$ascii_val =~ tr/\0/ /;

--
Jedaï