perl写的小程序

最新推荐文章于 2019-09-21 21:58:23 发布

net2kc

最新推荐文章于 2019-09-21 21:58:23 发布

阅读量1.3k

点赞数

本文链接：https://blog.csdn.net/net2kc/article/details/223422

版权

#!/usr/bin/perl
## WwW.52ChB.CoM
##
##
print "-----------+编码转换工具+Net2k的垃圾^_^+-----------";
print "/n/n输入参数(1)十六进制转十进制,什么也不输入ascii码转换成一个unsigned字符:";
$cia=1;
$ci = <STDIN>;
if($ci==$cia)
{
print "/n########## 十六进制转十进制小程序 ##########";
print "/n请输入需要转换的数值:";
$cinn = <STDIN>;
chomp $cinn;
$decimal=hex("$cinn");
print "/n$cinn的十进制值是:$decimal";
}else{
print "/n#####ascii码转换成一个unsigned字符######";
print "/n请输入需要转换的ascii码:";
$scann = <STDIN>;
chomp $scann;
print "/n请输入要转换成的unsigned字符:";
$scanna = <STDIN>;
chomp $scanna;
$string=pack("$scann",$scanna);
print "$string";
}
exit;