perl将十进制转换为64进制的方法

最新推荐文章于 2023-02-16 15:04:12 发布

原创最新推荐文章于 2023-02-16 15:04:12 发布 · 182 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一段Perl脚本，用于实现十进制数到64进制数的转换。脚本定义了一个子程序`ch_num_to_64`，接收一个十进制数作为输入，并返回对应的64进制字符串。通过实例演示了如何使用该脚本来完成转换。

#!/usr/bin/perl
# 将十进制转换为64进制的方法
$arr="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ+/";
sub ch_num_to_64(){
#参数
my @list_data=();
my $res_data;
my $res =$_[0];
if (int($res)==0){
$res_data=0;
}
my $res2;
while($res != 0)
{
$res2 = $res%64;
push(@list_data,substr($arr,$res2,1));
$res = int($res/64);
}
@list_data=reverse (@list_data);
foreach $item (@list_data){
$res_data.=$item;
}
return $res_data;
}
$rest64=&ch_num_to_64(129);
print "the result is : " . $rest64 . "\n";