packed decimal to number

Algoritmusok

Sziasztok!

IBM iseries rendszerből text-be exportált adatokat kellene oracle-be beolvasnom. A gond az, hogy eredetileg a numerikus értékek packed decimal (4 digit) vannak tárolva ezért az exportált text-be is az ennek megfelelő értékek kerülnek be. Hogyan lehetne ezeket az értékeket decimális formátumra konvertálni? Valaki? Valami tapasztalat? guglival eddig nem sokra jutottam a gyakorlati megoldásokat illetően

  • 1368 megtekintés

( Fero | 2008. 11. 21., p – 11:36 )

Ha jol ertelek ennek mukodni kene: 


perl -ne 'while (s/(.)//) {
$n = ord($1);
print(chr(ord("0") + ($n / 16)), " ", chr(ord("0") + ($n % 16)), "\n");
}'