implémenter en Perl l'équivalent utl_raw.cast_to_varchar2

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+

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

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

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:

---

$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:

---

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:

---

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

---

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:

---

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

---

--
Jedaï