weidagang2046的专栏

物格而后知致
随笔 - 8, 文章 - 409, 评论 - 101, 引用 - 0

导航

<2025年3月>
日一二三四五六
2324252627281
2345678
9101112131415
16171819202122
23242526272829
303112345

常用链接

留言簿(12)

随笔档案(8)

文章分类(421)

文章档案(409)

相册

Link

搜索

  •  

最新评论

阅读排行榜

评论排行榜

进制转换以及字符串转整数

Author: kbe@www.smth.org

Converting Between Octal and Hexadecimal

 # -----------------------------
$number   =   hex ( $hexadecimal );          #  hexadecimal
$number   =   oct ( $octal );                #  octal
#-----------------------------
print   " Gimme a number in decimal, octal, or hex:  " ;
 $num   =   < STDIN > ;
 chomp   $num ;
 exit   unless   defined   $num ;
 $num   =   oct ( $num )  if   $num   =~   /^ 0 / ;  #  does both oct and hex
printf   " %d %x %o\n " ,   $num ,   $num ,   $num ;
 # -----------------------------
print   " Enter file permission in octal:  " ;
 $permissions   =   < STDIN > ;
 die   " Exiting \n "   unless   defined   $permissions ;
 chomp   $permissions ;
 $permissions   =   oct ( $permissions );    #  permissions always octal
print   " The decimal value is $permissions\n " ;
 # -----------------------------

posted on 2006-03-17 23:31 weidagang2046 阅读(733) 评论(0)  编辑  收藏 所属分类: Perl


只有注册用户登录后才能发表评论。
网站导航: