在perl中怎样将fixed decimal转换成普通的数字类型

ssming0622

UID: 11844
帖子: 48
积分: 110
在线时间: 3 小时

1^# ssming0622 发表于 2008-08-03 16:45

在perl中怎样将fixed decimal转换成普通的数字类型

兄弟姐妹们，多多指点。小弟新接触这些语言，完全不懂。

我从mvs上ftp get的文件中有fixed decimal类型的数字，怎样在perl中转换成普通的数字类型呢？

ssming0622

UID: 11844
帖子: 48
积分: 110
在线时间: 3 小时

2^# ssming0622 发表于 2008-08-03 22:18

大家帮帮忙，小弟先谢过了！

mvs上的fixeddecimal的数值13
普通方式显示如下
..DFTRLR080729 .....

hex方式显示如下
44CCEDDDFFFFFF4440000344444444
BB4639390807290000001C00000000

我perl程序将mvs的上文件，ftpget后，先读取文件的最后一行（..DFTRLR080729 ..... ），怎样将fixeddecimal的数值部分转换成普通的数值类型？

hdc1112

UID: 2620
帖子: 83
积分: 190
在线时间: 9 小时

3^# hdc1112 发表于 2008-08-03 23:09

为什么13就变成了DFTRLR080729

smonkey0

UID: 42438
帖子: 74
积分: 170
在线时间: 7 小时

4^# smonkey0 发表于 2008-08-04 21:50

QUOTE:

原帖由 hdc1112 于 2008-8-3 23:09 发表
为什么13就变成了DFTRLR080729

没用过，但不知道是不是可以用传说中的 “pack” 函数？