perl 文件读取数字进制转换（字符转数字）

caicaixuehua

一般从文件读出的需要处理的数据可能是任意进制，然而怎样正确处理呢？

（1）通过它原来代表的进制选择转换方法
如有一数据：

str = "11";    #从文件读出出来的数字是字符串，然而它可能是任意进制的

my dd = str;               #如果它本来是十进制，可以直接用
my dh = hex(str),       #如果它本来是十六进制，则可以使用hex转化
my do = oct(str),        #如果它本来是八进制，可以使用oct转化
my db = oct("0b$str") #如果它本来 是二进制，可以加"0b",再用oct转化



（2）使用printf 转换成任意的进制输出(也可以直接使用它输出至文件，用法和print一样)

printf("%05d\n",dh); #output:00017
printf("%05x\n",dh); #output:00011
printf("%05b\n",dh); #output:10001
printf("%05o\n",dh); #output:00021